Keskustelu: Ohjelmointikysymykset: VB6: valinta nappi

tekojalka [22.12.2003 18:02:16]

miten saan esimerkiksi kun valitsen a:n tai b:n valitsen a:n
ja painan "paina" nappia niin saan sitten vasta esim. MsgBoxin sanomaan, esa

rndprogy [22.12.2003 18:21:02]

Näin:

Public A
Private Sub Command1_Click()
If A = 1 Then MsgBox "Esa"
End Sub

Private Sub Option1_Click()
A = 1
End Sub

Private Sub Option2_Click()
A = 0
End Sub

Antti Laaksonen [22.12.2003 18:27:59]

Tässä on minun toteutukseni:

Private Sub Command1_Click()
    If Option1.Value = True Then
        MsgBox "Esa"
    End If
End Sub

rndprogy [22.12.2003 18:52:30]

Okei huomasin tossa mun koodissa toisenkin vian. Jos osin käyttäny ELSEa.

tekojalka [22.12.2003 20:34:03]

private Sub Command1_Click()
   If Option2.Value = True Then
       MsgBox "Oikein!"
   End If
End Sub

Private Sub Command1_Click()
   If Option3.Value = True Then
       MsgBox "Väärin"
   End If
   End
End Sub

Private Sub Command1_Click()
   If Option1.Value = True Then
       MsgBox "Väärin"
   End If
   End
End Sub

Tuollaisella koodilla menee joku pieleen. mikä?

Antti Laaksonen [22.12.2003 20:37:50]

Onko nyt siis tarkoitus, että jos toinen valintanappi on valittuna, viesti on "Oikein!" ja muussa tapauksessa "Väärin!"? Kokeilepa tällaista koodia:

Private Sub Command1_Click()
    If Option2.Value = True Then
        MsgBox "Oikein!"
    Else
        MsgBox "Väärin!"
    End If
End Sub

tekojalka [22.12.2003 20:43:16]

mintekä saan jos olen valinnut option2 ja painan "jatka" nappia ja tulee msgbox ja sitten vaihtaa formia?

minapamina [22.12.2003 21:37:48]

Private Sub jatka_Click()
   If Option2.Value = True Then
       MsgBox "Nyt seuraavalle formille..."
       form1.hide
       form2.show
   Else
       MsgBox "Nyt jäätiin tälle formille"
   End If
End Sub

Sivun alkuun

Vastaus

Aihe on jo aika vanha, joten et voi enää vastata siihen.

Kirjautuminen

Haku

Tehtävät

Kilpailu