Kirjautuminen

Haku

Tehtävät

Kilpailu

Putka Open 2025
Alkuerät ovat ohi.

Keskustelu: Koodit: VB.NET: Ruksaa kaikki checkbox:it

tnb [13.03.2005 13:39:01]

#

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 Sub

Vastaus

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

Tietoa sivustosta