Visual Basic 2010 Tutorial - Eigene Buttons Erstellen

In meinem ersten Tutorial werde ich euch zeigen, wie Ihr eure eigenen Buttons erstellet und sie anschliessend in eure Toolbox einfügen könnt.

_______________________________________________________________
CODE:

Public Class NAME-EURES-BUTTONS
Inherits Windows.Forms.Button

Public Sub New()
Me.Size = New System.Drawing.Point(100, 30)
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.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 GrayButton2_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown
End Sub


Private Sub GrayButton2_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.MouseEnter
End Sub


Private Sub GrayButton2_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.MouseLeave
End Sub


Private Sub GrayButton2_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseUp
End Sub
End Class
_____________________________________________________________

Bitte Abonnieren, Berwerten und kommentieren
Danke

[Bastelhirni]

Mann du hast mir viel Arbeit erspart. Danke. Hat sofort geklappt :)

[cryptologic]

danke, hast mir echt geholfen! kannst du das selbe auch mal zeigen, aber mit einer form?

[Weihnachtsmann]

wenn man den Button aber in mehreren Programmen braucht, muss man den immer neu machen.

[thefiloe]

sag ma was soll eig size = new point?!
size müsste eig ne system.drawing.size besitzen oder irre ich mich?

[dragstrail]

Hei.

Ich verwende VS 2015.

Wenn ich die Form1 erstelle bleiben die Fehler jedoch. Was mach ich falsch???

Danke

[timkiw]

Hej, vielen Dank für das gute Tutorial.
Leider liefert der code in Visual Basic Studio 2017 einen Fehler aus:
System.InvalidCastException: "Das Objekt des Typs "System.EventArgs" kann nicht in Typ umgewandelt werden."

Woran kann das liegen? - Hoffe zu diesemTutorial gibt es noch einen Support.
DANKE!

[Weihnachtsmann]

warum klickst du so oft auf erstellen?

[counterstrikenerd]

My Toolbox dissapeared on Microsoft Visual basic 2010

[Weihnachtsmann]

kannste mir die Bilder von den Buttons geben? ich kann so welche Bilder nicht machen.
Und schreib mir bitte ne Nachricht, wenn du es machst.

[confused]

ich mach doch nicht das alles um nen kleinen button zu machen XD

[dragstrail]

Ich habs.

Hier der Code für VS 2015

Imports System
Imports System.Drawing
Imports System.Windows.Forms


Public Class GoldButton1
Inherits System.Windows.Forms.Button

Public Sub New()
Me.Size = New System.Drawing.Point(150, 50)
Me.FlatStyle =
Me.FlatAppearance.Bordersize = 0
Me.FlatAppearance.Bordercolor = System.Drawing.Color.DarkGray
=
=
Me.Backcolor =
Me.BackgroundImage = My.Resources.Normal
Me.BackgroundImageLayout =
Me.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))


End Sub

Private Sub GoldButton1_MouseDown(ByVal sender As Object, ByVal e As Handles Me.MouseDown
Me.BackgroundImage = My.Resources.Pressed
End Sub

Private Sub GoldButton1_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.MouseEnter
Me.BackgroundImage = My.Resources.Over
End Sub


Private Sub GoldButton1_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.MouseLeave
Me.BackgroundImage = My.Resources.Normal
End Sub


Private Sub GoldButton1_MouseUp(ByVal sender As Object, ByVal e As Handles Me.MouseUp
Me.BackgroundImage = My.Resources.Over
End Sub
End Class

[MinecraftzlStar]

Irgendwie voll unnötig du kannst bei den button einfach dein bild einfügen und das wars lol.. !!

[dragstrail]

Hei.

Ich verwende VS 2015.

Wenn ich die Form1 erstelle bleiben die Fehler jedoch. Was mach ich falsch???

Danke