Novità

VISUALIZZAZIONE ARCHIVIO

  • Creatore Discussione Creatore Discussione joe
  • Data di inizio Data di inizio
Ok ... confermo. Risolti i problemi, ho completato l'interfaccia grafica per gli imput. :) Buona serata a tutte/i.
 
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 :-)
 
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 ...
 
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
 
hai Ragione Moro , mi è sfuggito .. ecco l'istruzione per gestire quel pulsante

Codice: 
Private Sub pbSelColore_Click()
    Dim nColor

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


End Sub
 
Ultima modifica di un moderatore:
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
 
Ultima modifica:
ciao Moro , strano .. avevo provato .. comunque ..
verifica che la funzione nel modulo funzioni sia cosi
Codice: 
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
 
LuigiB;n2053941 ha scritto:
ciao Moro , strano .. avevo provato .. comunque ..
verifica che la funzione nel modulo funzioni sia cosi
Codice: 
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
Clicca per espandere...

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

Codice: 
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:

Codice: 
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...
 
Ultima modifica:
queste due funzioni sembrano apposto .. invece verificacoerenza ? posta pure quella ..
 
LuigiB;n2053985 ha scritto:
queste due funzioni sembrano apposto .. invece verificacoerenza ? posta pure quella ..
Clicca per espandere...

Eccola:

Codice: 
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
 
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 ?
 
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..
 
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
 
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
 
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 :)
 
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!
 
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 ...
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 23 novembre 2024
    Bari
    33
    80
    86
    52
    25
    Cagliari
    67
    57
    59
    05
    80
    Firenze
    31
    32
    58
    88
    77
    Genova
    40
    39
    23
    36
    81
    Milano
    28
    58
    45
    25
    38
    Napoli
    20
    82
    23
    44
    57
    Palermo
    76
    56
    88
    62
    31
    Roma
    12
    81
    59
    74
    72
    Torino
    46
    53
    72
    45
    23
    Venezia
    04
    12
    42
    64
    20
    Nazionale
    63
    44
    78
    10
    55
    Estrazione Simbolotto
    Torino
    43
    42
    12
    39
    22
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto