Newsgroup: it.comp.lang.visual-basic
Titolo: Check button. Aiuto

Salve a tutti
Ho un piccolo problema (almeno spero) da sottoporvi.
In una Form apro tre button check in cui devo selezionare tre distinti
lavori da svolgere. Se però viene selezionato il primo Check, allora
obbligatoriamente anche gli altri risulteranno selezionati per eseguire
tutti e tre le istanze.
Quando provo il programma sotto VB5, non ci sono problemi, cioè quando premo
il primo Check, anche gli altri si selezionano e, quando premo il pulsante
di conferma, fà l'elaborazione che chiedo. Quando invece lo faccio girare
compilato, dopo aver selezionato il primo bottone di Check, seleziona
automaticamente gli altri due, e, quando premo il pulsante di conferma,
invece che visualizzare immediatamente il messaggio di conferma, mi dà
l'errore "Errore di run-time '5': Chiamata di routine o argomento non
valido". Dopo di ciò, visualizza il box di conferma dell'operazione ed
infine esce dal programma.
Ho provato di tutto, anche a reinstallare VB5, ma niente da fare. Vi allego,
per chiarezza (spero) alcune righe di codice che spiegano come funziona. La
prima controlla quando viene selezionato un Check, che, se è il primo Check,
seleziona anche gli altri due. Il secondo pezzo, è il controllo dei bottoni
"OK" e "Annulla". Chiaramente il pulsante "OK" è indicizzato a 1
C'è nessuno che può darmi una mano a capire se è la libreria del bottone
Check o qualche errore da me commesso?
Grazie
Sergio
bi...@krenet.it
----------------------------------------------------------------------------
-----
Private Sub Check1_Click(Index As Integer)
Select Case Index
    Case 0
        If Check1(1).Enabled = True Then Check1(1).value = 1
        If Check1(2).Enabled = True Then Check1(2).value = 1
End Select
End Sub
----------------------------------------------------------------------------
-----
Private Sub Command1_Click(Index As Integer)
Select Case Index
    Case 1
        Visible = False
        Check1(0).value = 0
        Check1(1).value = 0
        Check1(2).value = 0
        Exit Sub
    Case Else
        Visible = False
        If Check1(0).value And Check1(0).Enabled Then
            msg = "Confermi la cancellazione della fase " & Chr$(34) & "P" &
Chr$(34)
            If Check1(1).value And Check1(1).Enabled Then msg = msg & ",
della fase " & Chr$(34) & "S" & Chr$(34)
            If Check1(2).value And Check1(2).Enabled Then msg = msg & " e
della coda"
            msg = msg & "?"
----------------------------------------------------------------------------
----

 wrote in message
news:8paglj$btg$1...@hermes.unipg.it...


 Ad occhio e' un problema internazionale
'azz... ci vuole il corpo diplomatico, allora... ;)))
ciao
Enrico

             msg = msg & "?"
prova, al posto di
If Check1(n).Value And ....
a mettere
If Check1(n).Value = vbChecked And ...
Ciao
Faber


Cosa intendi per IDE in italiano compilato in inglese?
Sergio

 ha scritto nel messaggio
news:8pak4r$qqi$1...@nslave1.tin.it...

Ciao Faber
ho provato come suggerivi, ma la sostanza non cambia

 Cosa intendi per IDE in italiano compilato in inglese?
credo intenda
Visual Basic in Italiano su s.o. in inglese
Ciao
Enrico

 wrote in message
8paglj$btg$1...@hermes.unipg.it...


 Ciao, Fortunato
Ho provato come avevi detto tu, ma anche qui il messaggio d'errore ricompare

 wrote in message
news:8pb3a0$20nk$1...@stargate1.inet.it...
