codice:
Public Sub CreaTastiV()
posx = InsPos
poslung = Lung
If poslung <= 0 Then
poslung += 25
End If
If posx <= 10 Then
posx = 10
End If
Dim V As New Button
V.Size = New Size(poslung, 25) 'grandezza pulsante
V.Name = "Pulsante" & Nome.ToString 'nome pulsante
V.Text = "" 'testo pulsante
V.Location = New Point(posx, 20) 'posizione pulsante
V.BackColor = Color.GreenYellow 'colore
V.Tag = InsNota 'inserisce nel tag il valore completo della nota
FrmChart.NoteBox.Controls.Add(V) 'aggiunge
AddHandler V.DoubleClick, AddressOf Pulsante_DoubleClick
AddHandler V.Click, AddressOf Pulsante_Click 'assegna click
AddHandler V.MouseHover, AddressOf Pulsante_MouseHover
Nome += 1 'incrementa numero pulsante
FrmChart.NoteBox.Refresh()
End Sub
Notebox è il panel dove aggiungo i pulsanti alla fine faccio il refresh
Inoltre ora ho scoperto che se creo pulsanti consecutivamente me li sovrappone come dicevo ma se tra un pulsante e un altro faccio un operazione nel panel o su uno dei tasti creati mi va avanti regolarmente. Però il tutto solo dopo che raggiungo una certa lunghezza