tsaG
2010-01-21, 14:33:02
Ich habe eine Form mit 8 Checkboxen, aus der Kombination der Häkchen soll eine Zahl errechnet werden. Die Checkboxen tragen die namen 11 bis 18
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
AddHandler r11.CheckStateChanged, AddressOf builddata1
AddHandler r12.CheckStateChanged, AddressOf builddata1
AddHandler r13.CheckStateChanged, AddressOf builddata1
AddHandler r14.CheckStateChanged, AddressOf builddata1
AddHandler r15.CheckStateChanged, AddressOf builddata1
AddHandler r16.CheckStateChanged, AddressOf builddata1
AddHandler r17.CheckStateChanged, AddressOf builddata1
AddHandler r18.CheckStateChanged, AddressOf builddata1
End Sub
Sub builddata1()
Dim daten As Byte
For i As Int32 = 1 To 8
If CType(Me.Controls("r1" & i.ToString), CheckBox).Checked Then
daten += 1 << i - 1
End If
Next
senden(1, daten)
End Sub
Wenn ich nun jedoch auf ein Häkchen klicke wirft er mir eine Exception aus:
Der Objektverweis wurde nicht auf eine Objektinstanz festgelegt.
Wo liegt der Fehler? ;(
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
AddHandler r11.CheckStateChanged, AddressOf builddata1
AddHandler r12.CheckStateChanged, AddressOf builddata1
AddHandler r13.CheckStateChanged, AddressOf builddata1
AddHandler r14.CheckStateChanged, AddressOf builddata1
AddHandler r15.CheckStateChanged, AddressOf builddata1
AddHandler r16.CheckStateChanged, AddressOf builddata1
AddHandler r17.CheckStateChanged, AddressOf builddata1
AddHandler r18.CheckStateChanged, AddressOf builddata1
End Sub
Sub builddata1()
Dim daten As Byte
For i As Int32 = 1 To 8
If CType(Me.Controls("r1" & i.ToString), CheckBox).Checked Then
daten += 1 << i - 1
End If
Next
senden(1, daten)
End Sub
Wenn ich nun jedoch auf ein Häkchen klicke wirft er mir eine Exception aus:
Der Objektverweis wurde nicht auf eine Objektinstanz festgelegt.
Wo liegt der Fehler? ;(