Hallo Liebe Community,
ich habe ein Frame erstellt, in der man per Knopfdruck einen Button erstellen kann. Dieser wird zum Schluss in ein tablelayoutpanel abgelegt.
Ich möchte nun ein Effekt hinzufügen, dass wenn man mit der Maus über den neu erstellten Button hovert, dieser dann groß wird.
Meine Problematik ist nun, dass ich nicht weiß wie ich den neu erstellten Button ansprechen soll, da dieser in meinem Code noch nicht existiert.
Hoffe, dass man verstehen kann was ich meine.
Hier noch mein Code zur Buttonerstellung:
Es sind ein paar Sachen noch ausgeklammert, die ich später einbauen will.
ich habe ein Frame erstellt, in der man per Knopfdruck einen Button erstellen kann. Dieser wird zum Schluss in ein tablelayoutpanel abgelegt.
Ich möchte nun ein Effekt hinzufügen, dass wenn man mit der Maus über den neu erstellten Button hovert, dieser dann groß wird.
Meine Problematik ist nun, dass ich nicht weiß wie ich den neu erstellten Button ansprechen soll, da dieser in meinem Code noch nicht existiert.
Hoffe, dass man verstehen kann was ich meine.
Hier noch mein Code zur Buttonerstellung:
VB.NET-Quellcode
- Public Class ButtonCreator
- Public btnAnz As Integer = 0
- Public Sub createButton(btnName)
- Dim newb As New Button
- Dim NewLbl As New Label
- With newb
- .Text = ""
- .Size = New Size(90, 90)
- If frmMain2.OpenFileDialog1.ShowDialog() = DialogResult.OK Then
- .BackgroundImage = Image.FromFile(frmMain2.OpenFileDialog1.FileName)
- Else
- .BackgroundImage = My.Resources.Media_Button2
- End If
- .BackgroundImageLayout = ImageLayout.Stretch
- '.Location = New Point((frmMain1.Width - newb.Width) / 3, (frmMain1.Height - newb.Height) / 2)
- '.Location = New Point((frmMain1.Width - newb.Width) / 3 + (newb.Width + 15) * btnAnz, (frmMain1.Height - newb.Height) / 2)
- .FlatStyle = FlatStyle.Flat
- .FlatAppearance.BorderSize = 0
- .FlatAppearance.MouseDownBackColor = Color.Transparent
- .FlatAppearance.MouseOverBackColor = Color.Transparent
- End With
- With NewLbl
- .Text = btnName
- .Location = New Point((newb.Location.X), (newb.Location.Y + 95))
- .Name = "lbl" & NewLbl.Text
- End With
- newb.Name = "btn" & btnName
- frmMain2.TableLayoutPanel1.Controls.Add(newb)
- btnAnz += 1
- End Sub
- End Class
Es sind ein paar Sachen noch ausgeklammert, die ich später einbauen will.