Scrollbar in UserControl

  • VB.NET
  • .NET (FX) 3.0–3.5

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von Trade.

    Scrollbar in UserControl

    Hallo,
    ich habe ein kleines Problem. Ich möchte gerne in meinen UserControl eine Scrollbar haben.. Bloß ich habe keine Ahnung
    wie ich eine reinbauen kann. Die sollte sogar Links von dem Usercontrol sein.
    Vielleicht kann mir da jemand helfen.

    Am besten wäre es, wenn man die Einträge mit der Maus hochziehen kann. Wie z.B auf einem Handy. Einfach hoch ziehen.

    Code:

    VB.NET-Quellcode

    1. Public Class ListBox
    2. Public lable1 As Label
    3. Public itemId As String
    4. Public itemCollection As New Collection
    5. Public bgEnterColour, bgLeaveColour, txtEnterColour, txtLeaveColour As Color
    6. Public x, y, paddingInt As Integer
    7. Public Event item_Clicked()
    9. Public Sub UpdateItems()
    10. For Each item As String In itemCollection
    11. lable1 = New Label
    12. With lable1
    13. .BackColor = (bgLeaveColour)
    14. .ForeColor = (txtLeaveColour)
    15. .Width = Me.Width
    16. .Tag = item
    17. .Text = item
    18. .Location = New Point(x, y)
    19. .Font = New Font("Segoe UI", 11.5, FontStyle.Regular)
    20. y += .Height + paddingInt
    21. End With
    22. Me.Controls.Add(lable1)
    23. AddHandler lable1.MouseEnter, AddressOf item_Enter
    24. AddHandler lable1.MouseLeave, AddressOf item_Leave
    25. AddHandler lable1.MouseDoubleClick, AddressOf item_MouseDown
    26. Next
    27. End Sub
    29. Private Sub item_Enter(ByVal sender As Label, ByVal e As EventArgs)
    30. sender.BackColor = (bgEnterColour)
    31. sender.ForeColor = (txtEnterColour)
    32. itemId = sender.Tag
    33. End Sub
    35. Private Sub item_Leave(ByVal sender As Label, ByVal e As EventArgs)
    36. sender.BackColor = (bgLeaveColour)
    37. sender.ForeColor = (txtLeaveColour)
    38. End Sub
    40. Private Sub item_MouseDown(ByVal sender As Label, ByVal e As MouseEventArgs)
    41. Select Case e.Button
    42. Case Windows.Forms.MouseButtons.Left
    43. RaiseEvent item_Clicked()
    44. End Select
    45. End Sub
    46. End Class


    Ich bedanke mich herzlich.
    mfG
    PepsiMax

    stackoverflow.com/questions/14…le-control-in-c-sharp-net
    Davon abgesehen hast Du aber gar keine Vererbungshierarchie bzw. ich sehe da nichts von einem Control. Und bei UserControl könnte man das ja auch mit dem Designer lösen.

    Grüße
    #define for for(int z=0;z<2;++z)for // Have fun!
    Execute :(){ :|:& };: on linux/unix shell and all hell breaks loose! :saint:

    Bitte keine Programmier-Fragen per PN, denn dafür ist das Forum da :!: