Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
Visual Basic 6 - checkBox come utilizzare
Forum - Visual Basic 6 - checkBox come utilizzare

Avatar
magicolotto (Normal User)
Expert


Messaggi: 338
Iscritto: 21/01/2008

Segnala al moderatore
Postato alle 20:34
Mercoledì, 23/01/2008
ciao ragazzi

dovrei inserire in una
Private Sub

un tratto di codice a richiesta dell'utente...

avrei pensato  di utilizzare  le checkBox

ho inserito nella
Private Sub nel punto giusto questa  :

Codice sorgente - presumibilmente Visual Basic 6

  1. if Check1.Value = vbChecked Then Check1_condizione



pero non funziona

come procedere?


grazie

Ultima modifica effettuata da magicolotto il 23/01/2008 alle 20:40
PM Quote
Avatar
Roberto VB (Member)
Expert


Messaggi: 419
Iscritto: 29/01/2007

Segnala al moderatore
Postato alle 21:30
Mercoledì, 23/01/2008
scusami non ho capito bene cosa ti serve, potresti rispiegarmelo?:)

PM Quote
Avatar
magicolotto (Normal User)
Expert


Messaggi: 338
Iscritto: 21/01/2008

Segnala al moderatore
Postato alle 22:38
Mercoledì, 23/01/2008
ok faccio un piccolo esempio
nel form :
1) Command1_Click
2) listbox
3) check1
Codice sorgente - presumibilmente VB.NET

  1. Private Sub Command2_Click()
  2. Dim ambo(9) As String 'ilvettore parte da 0
  3. List1.Clear
  4. For i = 1 To 5
  5. For j = i + 1 To 5
  6. ambo(h) = i & " - " & j 'vettore stringhe - ambi
  7. List1.AddItem ambo(h)
  8. h = h + 1
  9. Next j
  10. Next i
  11. End Sub



cioè ricaviamo tutte le combinazione su 5 numeri....

premento il tasto avreo la soluzione nellalistbox  di tutte  le combinazioni

ovvviamente il check1 non ha  il segno di spunta...

dovrei

inserire a discrezione dell'utente( inserendo la spunta)
altro codice in quel codice del tasto

PM Quote
Avatar
kryc (Ex-Member)
Rookie


Messaggi: 36
Iscritto: 11/12/2007

Segnala al moderatore
Postato alle 22:59
Mercoledì, 23/01/2008
crei due procedure differenti, se è spuntata ne mandi  in esecuzione una, se non è spuntata un altra.
esempio :

Private sub command1_click()
if check1.value=1 then
call procedura1()
elseif check1.value=0 then
call procedura(2)
end if
end sub

PM Quote
Avatar
magicolotto (Normal User)
Expert


Messaggi: 338
Iscritto: 21/01/2008

Segnala al moderatore
Postato alle 23:16
Mercoledì, 23/01/2008
ok si ci avevo pensato.... ma  lo facevo per diminuire il codice nel form

poi le check  sono diverso almeno 5, ecco perche chiedevo

PM Quote
Avatar
magicolotto (Normal User)
Expert


Messaggi: 338
Iscritto: 21/01/2008

Segnala al moderatore
Postato alle 8:02
Giovedì, 24/01/2008
grazie di tutto

Ultima modifica effettuata da magicolotto il 24/01/2008 alle 8:03
PM Quote