C# / VB.NET - Array di controlli...come si fanno??

Forum - C# / VB.NET - Array di controlli...come si fanno?? - Pagina 2

Pagine: [ 1 2 ]

gabriele (Ex-Member)
Newbie

Messaggi: 10
Iscritto: 29/03/2008

Postato alle 18:05
Domenica, 17/01/2010

certo, sono un pò in ritardo,
ma ormai mi sono rassegnato a lasciare vb6 perchè sul nuovo pc con windows 7 64 bit vb6 non si installa.
ecco come ho risolto il problema di una matrice di textbox di 81 elementi per una griglia tipo sudoku, ho impiegato un sacco di tempo a trovare la soluzione, ve la propongo sperando sia utile a qualcuno.
create un form con un command button "button1"

Codice sorgente - presumibilmente VB.NET

Dim text1(81) As TextBox
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim i As Integer, inizioX As Integer = 40, inizioY As Integer = 40, stepX As Integer, stepY As Integer
        For i = 1 To 81
            Dim newCella As New TextBox
            newCella.Name = "cella" + i.ToString()
            stepY = Int((i - 1) / 9)
            stepX = i - 1 - stepY * 9
            newCella.Location = New Point(inizioX + stepX * 41, inizioY + stepY * 41)
            newCella.MinimumSize = New Point(41, 41)
            newCella.MaximumSize = New Point(41, 41)
            newCella.Size = New Point(41, 41)
            newCella.Font = New Font(Font.FontFamily, 14)
            newCella.Text = i.ToString()
            Controls.Add(newCella)
            text1(i) = newCella
            AddHandler text1(i).Click, AddressOf Me.text1Click
        Next
        Me.Refresh()
    End Sub
 
    Private Sub text1Click(ByVal sender As TextBox, ByVal e As System.EventArgs)
        Dim indice As String
        indice = sender.Text
        MessageBox.Show(indice)
    End Sub

Il Totem (Admin)
Guru^2

Messaggi: 3635
Iscritto: 24/01/2006

Postato alle 16:45
Lunedì, 18/01/2010

Più di un anno. Apri una nuova discussione.

Pagine: [ 1 2 ]