Cari Amici ho un grosso problema!
Grazie ai post di html.it e ai manuali sono rioscito a creare da codice x bottoni come segue
Panel13.Visible = True
Dim tblClientia As New DataTable
tblClientia = daset1.Tables("spese")
Dim cont, x As Integer
cont = 1000
Dim c As New Point
c.X = 30
c.Y = 100
Dim spazio As New Size
spazio.Height = 100
spazio.Width = 50
Dim INTButton_IM() As System.Windows.Forms.Button
ReDim Preserve INTButton_IM(cont)
'ReDim Preserve INTButton_IM(Cont)
x = 0
While x < tblClientia.Rows.Count
INTButton_IM(x) = New System.Windows.Forms.Button
Me.Panel13.Controls.Add(INTButton_IM(x))
c.X = c.X + (x * 60)
spazio.Height = tblClientia.Rows(x).Item(2) \ 500
c.Y = 400 - tblClientia.Rows(x).Item(2) \ 500
INTButton_IM(x).Location = c
INTButton_IM(x).Size() = spazio
INTButton_IM(x).Text = "Cat:" & tblClientia.Rows(x).Item(0)
INTButton_IM(x).BackColor = System.Drawing.Color.YellowGreen
x = x + 1
End While
Nella stessa sub mi collego il click dei bottoni su creati ad una seconda sub come segue
x = 0
While x < tblClientia.Rows.Count
AddHandler INTButton_IM(x).Click, AddressOf EventoClick
x = x + 1
End While
Ovviamente poi creo la sub eventoclick
Private Sub EventoClick(ByVal sender As Object, ByVal e As EventArgs)
Button2.Text =.................
End Sub
Vorrei sostituire i .............. con il nome del bottone premuto
(P.S. il bottone è un bottone creato da codice)
Help Binos(che non sa nulla) che altrimenti non lo pagano!
pss se rinasco faccio il chiromante tanto tutto quello che c'è sopra ho tirato a caso
Rispondi quotando
