Selbstgemachte Buttons ins Programm hinzufügen?

  • VB.NET

Es gibt 13 Antworten in diesem Thema. Der letzte Beitrag () ist von Drain.

    Selbstgemachte Buttons ins Programm hinzufügen?

    Hallo, ich hab selbstgemachte Buttons in Photoshop CS2 gemacht. Einmal die helle version und die dunkle version (Wenn man klickt, damit es dann so gedrückt aussieht). Jetzt wollt ich fragen, wie man diesen Button in sein Programm hinzufügen kann. Es soll wie ein normaler Button sein, erst normal und dann gedrückt, wenn man draufklickt. Wie mach ich das? ?(

    Machs in eine Picbox

    VB.NET-Quellcode

    1. Im Mousehover event:
    2. Picbox.borderstyle = fixedsingle
    4. MouseLeave event:
    5. Picbox.borderstyle = none
    7. Mousedown event:
    8. Picbox.borderstyle = fixed3D
    10. MouseUp event:
    11. ' was der button machen soll

    Also ich machs so: erst mal Neues Projekt--> Class Library
    Dann gehst du im Projekt Mappen explorer auf My Project und dann auf den unterpunkt Resources.
    Dort ziehst du deine Buttons rein.
    Dann gehst du zur Code-Ansicht und gibst diesen Code ein:

    VB.NET-Quellcode

    1. Public Class <Hier der Name>
    2. Inherits Windows.Forms.Button
    4. Public Sub New()
    5. Me.Size = New System.Drawing.Point(<Hier die größe. ZB 100,100)
    6. Me.FlatStyle = Windows.Forms.FlatStyle.Flat
    7. Me.FlatAppearance.BorderSize = 0
    8. Me.FlatAppearance.BorderColor = System.Drawing.Color.Gray
    9. Me.FlatAppearance.MouseDownBackColor = System.Drawing.Color.Transparent
    10. Me.FlatAppearance.MouseOverBackColor = System.Drawing.Color.Transparent
    11. Me.BackColor = System.Drawing.Color.button1
    12. Me.BackgroundImageLayout = Windows.Forms.ImageLayout.Stretch
    13. Me.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
    14. End Sub
    16. Private Sub <name des Button>_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown
    17. Me.BackgroundImage = My.Resources.Button2
    20. End Sub
    21. Private Sub <name des Button>_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.MouseEnter
    22. Me.BackgroundImage = My.Resources.Button3
    23. End Sub
    26. Private Sub <name des button>_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.MouseLeave
    27. Me.BackgroundImage = My.Resources.Button1
    28. End Sub
    31. Private Sub <name des button>_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseUp
    32. Me.BackgroundImage = My.Resources.Button3
    33. End Sub
    34. End Class


    Für Button1 setzt du den namen des normalen Button ein. (Normal)

    Für Button2 setzt du den namen des dunklen Button ein.(Wenn klick)

    Für Button3 setzt du den namen des hellen Button ein.(Wenn mit Cursor oben drüber)

    Hier noch BSP Buttons:
    Bilder

    • Button1.png

      14,03 kB, 100×100, 459 mal angesehen

    • Button2.png

      13,51 kB, 100×100, 421 mal angesehen

    • Button3.png

      16,1 kB, 100×100, 405 mal angesehen

    Danke für die Antworten, werde es gleich mal testen.



    //



    @Drain: Hm das geht irgendwie nicht :/ wird fast alles bei mir als Fehler angezeigt. Habs genauso gemacht wie du es beschrieben hast.

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Striker09“ ()

Facebook
Telefonspende