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:
Ich bedanke mich herzlich.
mfG
PepsiMax
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.
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
- Public Class ListBox
- Public lable1 As Label
- Public itemId As String
- Public itemCollection As New Collection
- Public bgEnterColour, bgLeaveColour, txtEnterColour, txtLeaveColour As Color
- Public x, y, paddingInt As Integer
- Public Event item_Clicked()
- Public Sub UpdateItems()
- For Each item As String In itemCollection
- lable1 = New Label
- With lable1
- .BackColor = (bgLeaveColour)
- .ForeColor = (txtLeaveColour)
- .Width = Me.Width
- .Tag = item
- .Text = item
- .Location = New Point(x, y)
- .Font = New Font("Segoe UI", 11.5, FontStyle.Regular)
- y += .Height + paddingInt
- End With
- Me.Controls.Add(lable1)
- AddHandler lable1.MouseEnter, AddressOf item_Enter
- AddHandler lable1.MouseLeave, AddressOf item_Leave
- AddHandler lable1.MouseDoubleClick, AddressOf item_MouseDown
- Next
- End Sub
- Private Sub item_Enter(ByVal sender As Label, ByVal e As EventArgs)
- sender.BackColor = (bgEnterColour)
- sender.ForeColor = (txtEnterColour)
- itemId = sender.Tag
- End Sub
- Private Sub item_Leave(ByVal sender As Label, ByVal e As EventArgs)
- sender.BackColor = (bgLeaveColour)
- sender.ForeColor = (txtLeaveColour)
- End Sub
- Private Sub item_MouseDown(ByVal sender As Label, ByVal e As MouseEventArgs)
- Select Case e.Button
- Case Windows.Forms.MouseButtons.Left
- RaiseEvent item_Clicked()
- End Select
- End Sub
- End Class
Ich bedanke mich herzlich.
mfG
PepsiMax