Oppure

Loading
04/08/09 11:00
antometal
molto bene funziona, ho risolto così

    Function GetButton(ByVal Index As Int16) As Button
        For Each C As Control In Me.Controls
            If TypeOf (C) Is Button Then
                If C.Name = "btnArray_" & Index.ToString Then Return C
            End If
        Next
    End Function


ancora grazie,
a stanotte:rotfl:
aaa
04/08/09 11:43
ruggy94
Postato originariamente da antometal:
a stanotte:rotfl:

Ci sarò :D
aaa
18/06/13 10:51
emanuele19956
Questo post è molto interessante.
Sto creando una battaglia navale e quindi mi serve di creare qualcosa come 150 button, e sono appena riuscito a farlo seguendo questo post...

Ecco il codice che ho scritto:
Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Button160.Enabled = False
        Dim k, j As Byte
        Dim posx, posy As Short
        posx = 0
        posy = 0
        For j = 1 To 10
            For k = 1 To 15
                Dim Btn As New Button()
                Btn.Location = New Point(150 + posx, 150 + posy)
                Btn.Size = New Point(25, 25)
                Btn.Visible = False
                Me.Controls.Add(Btn)
                posx = posx + 25
            Next k
            posx = 0
            posy = posy + 25
        Next j

    End Sub


Come vedete i button sono creati invisibile. Ora tramite dei radiobutton (che permettono all'autente di scegliere la disposizione automatica o manuale delle sue navi) voglio che i button vengano mostrati o nascosti. Quindi se l'utente sceglie "Automatico" i button spariscono, se sceglie "Manuale" appaiono. Come fare una cosa del genere?
Anche io sono nuovo col vb.net e in generale con la programmazione ad oggetti.


---------------------------------------------------------------------edit--------------------------------------------------


Risolto da solo :)
Ultima modifica effettuata da emanuele19956 18/06/13 12:56
aaa