Keskustelu: Ohjelmointikysymykset: VB.NET: VB5 -> VB.Net

setä [11.03.2011 19:02:51]

Alkuun pahimpia kompastuskiviä on kontrollien indeksoimattomuus VB.Net:ssä.Miten esim. seuraava koodataan VB.Net:ssä.
On kolme labelia, VB5:ssä nimetty lblN ja indeksoitu 0, 1 ja 2. Alussa kunkin Caption = "0". Kun klikkaan labelia, kasvaa sen lukema yhdellä ja toimii koodilla:

Private Sub lblN_Click(Index As Integer)
  lblN(Index) = lblN(Index) + 1
End Sub

Miten VB.Netissä ? Jos labeleita on vain kolme, ne voi tietysti nimetä eri nimille ja tehdä jokaiselle koodi erikseen. mutta jos niitä on kymmeniä tai satoja niin pakko tehdä jollain muulla tavalla.

Grez [11.03.2011 19:12:49]

Voi ne tehdä ihan taulukkona. Mutta graafisella editorilla ei voi tehdä sellaista. Yleensä jos tarvitaan vaikka sata, niin ne olisi joka tapuaksessa helpompi generoida ohjelmallisesti.

setä [12.03.2011 09:12:10]

Nimen omaan generointi ohjelmallisesti mutta miten niihin viitataan kun ei ole indeksejä.

Grez [12.03.2011 09:38:25]

Niissä on indeksit jos teet niihin indeksit. Pitäisi varmaan etsiä ketju johon viimeksi kirjoitin esimerkin.

Edit: En nyt löytänyt, niin kirjoitin uuden

Public Class Form1
    Dim lblN As New Dictionary(Of Integer, Label)

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim i As Integer
        Me.SuspendLayout()
        For i = 0 To 99
            Dim l = New Label()
            l.AutoSize = True
            l.Location = New System.Drawing.Point(0, 20 * i)
            l.Name = "lblN_" & i
            l.Size = New System.Drawing.Size(39, 13)
            l.TabIndex = i
            l.Text = "0"
            lblN(i) = l
            Me.Controls.Add(l)
            AddHandler l.Click, AddressOf lblN_Click
        Next
        Me.ResumeLayout()
    End Sub

    Private Sub lblN_Click(ByVal sender As Label, ByVal e As System.EventArgs)
        sender.Text = (CInt(sender.Text) + 1).ToString()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim ix As Integer
        Dim r As New Random()
        ix = r.Next(99)
        MessageBox.Show("LblN(" & ix & ") arvo on " & lblN(ix).Text)
    End Sub
End Class

setä [12.03.2011 10:16:01]

Suurkiitokset, Grez! Eipä tuo hirveän pahalta näytä. Tuohon kielioppiin pitäisi vaan syventyä. VB5:ssä on erinomainen helppi ja editori ja lisäksi vielä VB on Line. Asennanpa tuon Expressin uudelleen.

Vastaus

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

Kirjautuminen

Haku