Keskustelu: Ohjelmointikysymykset: VB6: VB:n checkboxia

Eli kun pitäsi saada niin että jos check1.value vaihtuu niin se suorittaisi koodin A, jos check1.value ei vaihdu niin se suorittaisi koodin B.

Toivottavasti ymmärsitte .)

Ehkä tämä auttaa eteenpäin:

' checked = ruksi valintaruudussa
If Check1.Value = Checked Then
    Tee_Koodi_A
End If

' unchecked = ei ruksia valintaruudussa
If Check1.Value = UnChecked Then
    Tee_Koodi_B
End If

Periaate on siis tarkkailla tuota ruksia siinä valintaruudussa ja sen mukaan ajaa koodia. Tuon kun pistää esim. Timer:n sisälle ja intervalliksi sopivan arvon, niin koodit ajetaan automaattisesti.

Toinen tapa on:

Select case Check1.Value
Case Checked
  DoMyCodeA
Case UnChecked
  DoMyCodeB
End Select

Komponenttinäkymässä kaksoiklikkaa valintaboksin objektia, niin siirryt kooditilaan ja uusi aliohjelma Check1_Change on ilmestynyt. Sijoita tuo koodi tähän aliohjelmaan. Ei tarvitse pelleillä Timerien kanssa.