Rutiini, joka ruksaa kaikki Formilla olevat Checkbox:it. Vältää Late Bind virheen, vaikka Option Strict olisi päällä.
Käyttö: RuksaaKaikki(Me)
jossa Me viittaa haluttuun formiin.
Late Bind - virhe: Objektin tyyppi ei ole kääntäjän tiedossa käännettäessä, se selviää vasta ajettaessa.
Sub RuksaaKaikki(ByVal fr As Form)
Dim cb As Object
'ruksataan kaikki Checkbox:sit formilla
For Each cb In fr.Controls
If cb.GetType.ToString = "System.Windows.Forms.CheckBox" Then
'Ctype() jotta vältetään Late bind virhe jos option strict on päällä
CType(cb, System.Windows.Forms.CheckBox).Checked = True
End If
Next
End SubAihe on jo aika vanha, joten et voi enää vastata siihen.