Hi,
ich habe mir einen eigenen Button erstellt und möchte auch, dass der Button einen eigenen Namen hat(zB. <Test>). Wie stelle ich das an?
Gruß Andreas
ich habe mir einen eigenen Button erstellt und möchte auch, dass der Button einen eigenen Namen hat(zB. <Test>). Wie stelle ich das an?
Gruß Andreas
VB.NET-Quellcode
- Public Class Button_rund5
- Inherits windows.forms.button
- Public Sub New()
- Me.size = New System.Drawing.Point(40, 40)
- Me.FlatStyle = Windows.Forms.FlatStyle.Flat
- Me.flatappearance.BorderSize = 0
- Me.flatappearance.Bordercolor = System.Drawing.Color.Gray
- Me.FlatAppearance.MouseDownBackColor = System.Drawing.Color.Transparent
- Me.FlatAppearance.MouseOverBackColor = System.Drawing.Color.Transparent
- Me.backcolor = System.Drawing.Color.Transparent
- Me.BackgroundImage = My.Resources.nicht_gedrückt
- Me.BackgroundImageLayout = Windows.Forms.ImageLayout.Stretch
- Me.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
- End Sub
- Private Sub windowsbutton_mousedown(ByVal sender As Object, ByVal e As System.windows.forms.mouseeventargs) Handles Me.mousedown
- Me.BackgroundImage = My.Resources.gedrückt_neu
- End Sub
- Private Sub windowsbutton_mouseenter(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.mouseenter
- Me.BackgroundImage = My.Resources.über_neu
- End Sub
- Private Sub windowsbutton_mouseleave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.mouseleave
- Me.backgroundimage = My.Resources.nicht_gedrückt
- End Sub
- Private Sub windowsbutton_mouseup(ByVal sender As Object, ByVal e As System.windows.forms.mouseeventargs) Handles Me.mouseup
- Me.BackgroundImage = My.Resources.über_neu
- End Sub
- End Class