Button Back - Button Forward WebBrowser

  • VB.NET

Es gibt 10 Antworten in diesem Thema. Der letzte Beitrag () ist von One-Soft.

    Button Back - Button Forward WebBrowser

    Salut Com,

    ich wollte mal fragen ob es Buttons gibt die einen Hover-Effekt(also wenn man drüber geht z.B. eine Umradung gibt)haben und wo man ein Bild auch noch einfügen kann ?
    Hab bis jetzt nichts gefunden und in der MetroSuite von Gather kann man bei den Buttons kein Hintergrundbild einfügen :(
    Ich hoffe Ihr könnt mir Helfen !
    Und ich hoffe ich habs ins richtige Unterforum gepostet :/

    Gruß iEi

    Bau dir selber etwas. Schau mal in die Tuts GDI Controltechniken, oder in meine Opensource Droidcontrols. Die gezeigten Buttons sind zwar auch ohne Bilder aber wenn du dich halbwegs damit auskennst kannst du das sehr schnell bewerkstelligen ;)

    8-) faxe1008 8-)

    faxe1008 hat recht. Das sollte mit GDI+ sehr leicht gehen. Schau hier im Forum nach Tuts davon gibts mehr als genug ;)

    Gruß
    Youtube Info Library 2013 jetzt im Showroom.

    Die Lösung die ich benutze:

    VB.NET-Quellcode

    1. Imports System.Drawing
    3. Public Class SmartButton
    4. Inherits Panel
    6. Public Sub New()
    7. Me.BorderStyle = Windows.Forms.BorderStyle.FixedSingle
    8. End Sub
    10. Dim _ms As MouseState
    11. Dim _p As New Pen(Color.Gainsboro, 5)
    12. Dim _q As New Pen(Color.Orange, 5)
    14. Private WriteOnly Property MS() As MouseState
    15. Set(ByVal value As MouseState)
    16. _ms = value
    17. Me.Invalidate()
    18. End Set
    19. End Property
    21. Private Enum MouseState
    22. None
    23. MouseOver
    24. Clicked
    25. End Enum
    27. Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)
    29. With e.Graphics
    30. Select Case _ms
    31. Case MouseState.None
    32. .Clear(Me.BackColor)
    33. Case MouseState.MouseOver
    34. .DrawRectangle(_p, Me.ClientRectangle)
    35. Case MouseState.Clicked
    36. .DrawRectangle(_q, Me.ClientRectangle)
    37. End Select
    38. End With
    40. MyBase.OnPaint(e)
    41. End Sub
    43. Protected Overrides Sub OnMouseDown(ByVal e As System.Windows.Forms.MouseEventArgs)
    44. MS = MouseState.Clicked
    45. MyBase.OnMouseDown(e)
    46. End Sub
    48. Protected Overrides Sub OnMouseUp(ByVal e As System.Windows.Forms.MouseEventArgs)
    49. MS = MouseState.MouseOver
    50. MyBase.OnMouseUp(e)
    51. End Sub
    53. Protected Overrides Sub OnMouseEnter(ByVal e As System.EventArgs)
    54. MS = MouseState.MouseOver
    55. MyBase.OnMouseEnter(e)
    56. End Sub
    58. Protected Overrides Sub OnMouseLeave(ByVal e As System.EventArgs)
    59. MS = MouseState.None
    60. MyBase.OnMouseLeave(e)
    61. End Sub
    62. End Class


    EDIT:// Nur wie kann ich jetzt einen Text einfügen mir reicht ja das zeichen < um zurück zu gehen

    Edit by der_Kurt: unerlaubte Colorierung entfernt. Die Farbe ROT ist der Moderation vorbehalten.

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

    e.Graphics.DrawString(Text, Font, Brush, Point)

    Bitte versuche das was du "übernimmst" zu verstehen und versuch nach außen nicht wie eines der Scrippt Kiddies zu wirken die hier sonst noch unterwegs sind.

    Außerdem ist Rot der Moderation vorbehalten :rolleyes:

    8-) faxe1008 8-)

    Artentus schrieb:

    Und mit WPF noch vieeeeeeel leichter.

    Das ist natürlich richtig und ich würde auch WPF bevorzugen und dem TE empfehlen, dass zu lernen. Damit kann man sehr sehr viel mehr machen als mit WinForms Anwendungen. ;)

    Gruß
    Youtube Info Library 2013 jetzt im Showroom.

Facebook
Telefonspende