Keskustelu: Ohjelmointikysymykset: VB6: checkbox enablet true ja false

Eli teen ruksattavan boxin(semmoisen pienen) siitä pitää alkuun klikata jos hyväksyy "Käyttöehdot" ja samalla command1 tulee käyttöön. Ja nyt vikana on jos sitä klikkaa uudelleen, eli ei hyväksykkään sääntöjä, niin command1 on edelleen päällä siinä on vain Command1.Enabled = True | Miten saan siis klikkaa niin buttoni on päällä klikkaa pois pukin niin buttoni on enablet on taas false ?

Checkboboxin on clickiin:

If Command1.Enabled = True Then
    Command1.Enabled = False
Else
    Command1.Enabled = True
End If

Hoh, turhan pitkästi :)

Command1.Enabled = Not Command1.Enabled

Toisin ylempi vaan toimii :D

Molemmat näyttäis minulla toimivan.

Musta kumpikaan ei toimi. Kertosko joku mihin ne pitää laittaa koodiin??? Tein uuden formin ja painoin F5 mut ei toimi??

En tiedä mikä tässä nyt on hankalaa, mutta käyttää suoraan tuota CheckBox:n arvoa määärittämään onko nappula käytössä vai ei.

Private Sub Check1_Click()
    If Me.Check1.Value < 2 Then Me.Command1.Enabled = CBool(Me.Check1.Value)
End Sub

Koodi voisi tietysti olla nätimpi/luettavampi:

Private Sub Check1_Click()
    Command1.Enabled = (Check1.Value = vbChecked)

    ' suluissa oleva vertailu palauttaa joko True tai False
    ' vbChecked on puolestaan valmiiksi kieleen rakennettu arvo
    ' näitä arvoja voi tutkia Object Browserilla (saa esille F2-näppäimellä)
End Sub

:)

Muoks: lisäsin jälkikäteen hieman kommenttia tuon toiminnasta

Nätimpi, kyllä. Luettavampi, siinä rajoilla, jos ajatellaan aloittelijoita. Muuten hyvä esimerkki. =)