Jag vill kunna spara ett tal tillsammans med min checkbox. Men hur gör man?

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim i As Integer

        For i = 0 To 20
            CheckBoxTest(i)
        Next

    End Sub

    Sub CheckBoxTest(ByVal i As Integer)
        Dim checkBox1 As New CheckBox



        checkBox1.Top = 20 * i
        checkBox1.Left = 10
        checkBox1.Text = "Min text " & i
        checkBox1.AutoCheck = True

        'Här vill jag lägga till ett tal tex i som är bunden till checkboxen

        AddHandler checkBox1.Click, AddressOf CheckBoxHandler_Click

        Controls.Add(checkBox1)

    End Sub

    Private Sub CheckBoxHandler_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

        MsgBox("Här vill jag visa talet som kommer från checkboxen")


    End Sub

I checkBox1.Tag kan du placera ett objekt som kan vara en sträng, integer eller av någon annan typ.



Såhär:
<code>

Sub CheckBoxTest(ByVal i As Integer)
Dim checkBox1 As New CheckBox



checkBox1.Top = 20 * i
checkBox1.Left = 10
checkBox1.Text = "Min text " & i
checkBox1.AutoCheck = True
checkBox1.Tag = i
'Här vill jag lägga till ett tal tex i som är bunden till checkboxen

AddHandler checkBox1.Click, AddressOf CheckBoxHandler_Click

Me.Controls.Add(checkBox1)

End Sub

Private Sub CheckBoxHandler_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

MsgBox(CType(sender, CheckBox).Tag)


End Sub
</code>

Tack för svaret men ber om ursäkt. Jag var otydlig.

Tag fungerar utmärkt i vb.net när det gäller vanlig platform men i detta fall är det till en Pocket PC (Windows Mobile) och då gick det tyvärr inte... :-(

Vad jag försöker få till är en lista med poster med en checkbox först på raden, liknande "tasks" ¨på en Pocket PC. Datagrid har jag inte lyckats med (tycks inte gå?), lösningen ovan fungerar delvis men jag måste kunna identifera ett värde till varje post (som kommer från en db). Ska titta på listview och se om den kan lösa mitt problem.

All förslag och tankar mottages varmt.

/Janne

Ärv CheckBox och lägg till vad du vill i den och använd sen den i stället för dess checkbox...

Exempelvis så har du "myTag" på "myCheckBox" nedan!

<code>

Public Class myCheckBox
Inherits CheckBox
Private strTag As String

Public Property myTag() As String
Get
Return strTag
End Get
Set(ByVal Value As String)
strTag = Value
End Set
End Property

End Class
</code>

/Benny

Detta är inte överlagring utan ärvning. Överlagring är när man har flera metoder med samma namn fast med olika input-parametrar (obs, man kan inte överlagra genom att skilja på returvärdet). Detaljer, men det är likabra att använda rätt termonologi :-D

Du har helt rätt.... Jag är bara så van vid att jag överlagrar en massa i det jag ärver ner för att få saker att fungera som man vill... Så jag ändrade mitt inlägg ovan....