VISUALIZZAZIONE ARCHIVIO

[joe]

Ok ... confermo. Risolti i problemi, ho completato l'interfaccia grafica per gli imput. Buona serata a tutte/i.

 

[LuigiB]

Ciao Joe , benissimo, vorrei aspettare anche l'intervento di Moro ..io nel frattempo sto facendo il tutorial 5 che avverto sarà abbastanza corposo d'altra parte non lo posso dividere .. dobbiamo gestire un bel po' di roba..wekk end di lavoro per tutti

 

[Moro_80]

Ciao a tutti,
mi fa piacere che Luigi "attende" il mio intervento...ed eccomi qua, sotto i sorgenti con la lezione e il pdf dentro lo zip, come al solito i link di tutte le lezioni evitando così di perdersi nei vari post a cercarle.

http://www.mediafire.com/file/ypyayp...wser_1-VB6.zip

http://www.mediafire.com/file/6w3d1s...wser_2-VB6.zip

http://www.mediafire.com/file/niz2tl...wser_3-VB6.zip

http://www.mediafire.com/file/95abq9vr252wjm7/Sorgenti_Mini-Browser_4-VB6.zip

Un Saluto a tutti!

 

[LuigiB]

Ciao Moro .. squadra che vince on si cambia cosi ho sentito dire ... per me questa impostazione che o spiego e che tu metti in pratica la spiegazione è il metodo migliore ..

aggiungo la quinta parte del tutorial , un po corposa ma d'altra parte con questa implementiamo tutte le funzionalita dela finestra per inserire i pronostici..

http://www.mediafire.com/file/1r288ixog1t8zx4/MiniBrowser_5.pdf

saluti a tutti ...

 

[Moro_80]

Luigi, prova a rivedere la guida...c'è qualcosa che non torna con la gestione del colore da evidenziare, è come se non sia stata assegnata nessuna routine all'evento di pressione del command button chiamato "PbSelColore" , pulsante per scelta del colore.


Saluti

 

[LuigiB]

hai Ragione Moro , mi è sfuggito .. ecco l'istruzione per gestire quel pulsante

Private Sub pbSelColore_Click()
    Dim nColor

    nColor = SelColor(Me.CommonDialog1)
    If nColor <> vbWindowBackground Then
        LabColore.BackColor = nColor
    End If


End Sub

 

[LuigiB]

aggiungo la parte 6 che ineffetti è un appendice del tutorial 5 .. ciao a tutti

http://www.mediafire.com/file/0b4roj4ni5gp05p/MiniBrowser_6.pdf

 

[Moro_80]

Ciao Luigi, buon sabato prima di tutto, volevo fare solo 2 considerazioni per i tutorial 5 e 6:

- Al termine del tutorial 5 nonostante venga immesso la parte mancante di codice di gestione pulsante "scegli colore" il programma non va a buon fine se lanciato in run, c'è un blocco in debug su "Seleziona Colore" nella procedura VerificaCoerenza...come se il valore della Labelcolor non venga settato...e dunque visto sempre in default.

- Per il tutorial 6 ti chiedo di mettere a disposizione anche i file immagine delle icone (Esempio immagine "inverti" e "clear"), lo dico per quanti magari vogliono cimentarsi come me nello scrivere di proprio pugno il codice e fare tutto passo passo...evitanto di impazzire a trovarle, tutto qua.


Un saluto

 

[LuigiB]

ciao Moro , strano .. avevo provato .. comunque ..
verifica che la funzione nel modulo funzioni sia cosi

Function SelColor(dlg As CommonDialog) As Long
    On Error GoTo errUNKNOWN


    dlg.ShowColor

    SelColor = dlg.Color



errUNKNOWN:
    Select Case Err
    Case Is <> 0
        SelColor = vbWindowBackground
        Err.Clear
    End Select

End Function

la routine del command è gia scritta sopra e nella parte 6 del tutorial .. hai ragione per le icone .. eccole

http://www.mediafire.com/file/uq534isik4dsas3/Ico.rar

 

[claudio8]

Un saluto al volo a tutti, LuigiB in primis e buon proseguo per l'eccellente lavoro.

 

[Moro_80]

ciao Moro , strano .. avevo provato .. comunque ..
verifica che la funzione nel modulo funzioni sia cosi

Function SelColor(dlg As CommonDialog) As Long
On Error GoTo errUNKNOWN


dlg.ShowColor

SelColor = dlg.Color



errUNKNOWN:
Select Case Err
Case Is <> 0
SelColor = vbWindowBackground
Err.Clear
End Select

End Function

la routine del command è gia scritta sopra e nella parte 6 del tutorial .. hai ragione per le icone .. eccole

http://www.mediafire.com/file/uq534isik4dsas3/Ico.rar

E' davvero strano Luigi,
la funzione nel modulo Funzioni è la seguente (identica alla tua):

Function SelColor(dlg As CommonDialog) As Long
    On Error GoTo errUNKNOWN ' se errore richiama la funzione errore sconosciuto
    dlg.ShowColor ' mostra scelta colori
    SelColor = dlg.Color ' scelta colore da dialogo
' gestione errori
errUNKNOWN:
    Select Case Err
    Case Is <> 0
        SelColor = vbWindowBackground
        Err.Clear
    End Select
' fine gestione errori
End Function ' fine funzione

e la chiamata sul command button seguente:

Private Sub pbSelColore_Click()
    Dim nColor 'dichiaro la variabile
    nColor = SelColor(Me.CommonDialog1) 'setto il valore del colore
    If nColor <> vbWindowBackground Then 'se colore diverso da
        LabColore.BackColor = nColor 'setta il colore alla label
    End If 'fine condizione
End Sub

purtroppo al run, dopo aver inserito tutto nel Frame all'OK continua a darmi il seguente errore...

[IMG2=JSON]{"data-align":"none","data-size":"full","src":"http:\/\/i67.tinypic.com\/2s1urn8.jpg"}[/IMG2]


P.S. se vuoi ti passo il sorgente via mail...



Un saluto...

 

[LuigiB]

queste due funzioni sembrano apposto .. invece verificacoerenza ? posta pure quella ..

 

[Moro_80]

queste due funzioni sembrano apposto .. invece verificacoerenza ? posta pure quella ..

Eccola:

Function VerificaCoerenza()
    Dim sRet 'dichiaro la variabile
    If Trim(txtNumeri.Text) = "" Then sRet = "Inserire i numeri del pronostico" 'se txtnumeri è vuoto
    If cmbSorte.ListIndex = -1 Then sRet = "Selezionare la sorte" ' se combo non scelta
    If GetStringaRuoteSel = "" Then sRet = "Selezionare le ruote" ' se ruote non scelte
    If LabColore.BackColor = vbWindowBackground Then sRet = "Selezionare il colore" ' se colore non scelto
    If sRet = "" Then ' se tutte le condizioni sono rispettate
        VerificaCoerenza = True ' tutto ok check passato
    Else ' altriemnti
        MsgBox sRet, vbExclamation 'visualizza l'errore corrispondente
    End If 'fine condizione
End Function ' fine funzione

 

[LuigiB]

strano perche tra l'altro ho preso le tue funzioni e le ho messe al posto di quelle fatte da me e funziona tutto ...
domanda 1 : Ma quando selezioni il colore la label poi effettivamente lo prende ?

 

[Moro_80]

Si certo , la label diventa del colore che scelgo io, poi all'ok da l'erroe,,,e le lineette "|||||||||" non diventano del colore scelto...

Dai un occhio alla mail...ti dò il sorgente completo..

 

[LuigiB]

tutto chiaro ... i due pulsanti li devi mettere dentro al frame in modo che scompaiano insieme a lui quando l'utente conferma l'inseriemento oppure preme annulla.
fatta appena la prova e inseriti due pronostici funziona perfettamente ...
ciao

 

[Moro_80]

Grande Luigi..ecco dov'era l'errore !

A breve i sorgenti delle lezioni 5 e 6 tutti commentati nel dettaglio.

P.S. Ma gli altri? Che fine hanno fatto?


Saluti

 

[i legend]

Ciao vi seguo.
ho scaricato la lezione 5 , e devo ancora studiarla.
la 6 non riesco a scaricarla perché l antivirus la blocca.
ci riprovo domani .
notte a tutti

 

[Moro_80]

Ciao a tutti,
come promesso trovate qua sotto i sorgenti con le lezioni e i pdf di Luigi dentro i vari zip, come al solito i link di tutte le lezioni evitando così di perdersi nei vari post a cercarle.

http://www.mediafire.com/file/ypyayp...wser_1-VB6.zip

http://www.mediafire.com/file/6w3d1s...wser_2-VB6.zip

http://www.mediafire.com/file/niz2tl...wser_3-VB6.zip

http://www.mediafire.com/file/95abq9...wser_4-VB6.zip

http://www.mediafire.com/file/przqj49kh8mpmo4/Sorgenti_Mini-Browser_5-VB6.zip

http://www.mediafire.com/file/xj2hw83932dq8nk/Sorgenti_Mini-Browser_6-VB6.zip


P.S. Luigi che mi dici di "Call AlimentaArrayPronostici(Listview1)" che sia un anticipo della lezione numero 7??


Un Saluto a tutti!

 

[LuigiB]

Ciao Moro .. .eheh si ... mi ero anticipato col codice de è rim,sta quell'isuzione che no ti è sfuggita
Sarà oggetto del prossimo tutorial ..

ho provato i sorgenti , ci sono un paio di cose da sistemare.

la label che contiene il nome del file del pronostico mettila sotto la listview ma non dentro al frame , quella label deve essere sempre visibile enon scomparire col frrame.

la chiamata che fa il form frmInsProno.Show invece di finire nell'evento click del menu è finita nell'evento click della label che sta sotto (quella con scritto "estrazione")

è sfuggito un "If" nella routine "GestioneSalva"

per il resto tutto ok ..

Prima di continuare vediamo se è tutto chiaro per tutti ...