Panel mit Buttons scrollen geht nicht :/

  • VB.NET
  • .NET (FX) 4.5–4.8

Es gibt 9 Antworten in diesem Thema. Der letzte Beitrag () ist von Luca.

    Panel mit Buttons scrollen geht nicht :/

    Hi,
    ich hab ein Panel und möchte es in der Horizontalen mit Buttons scrollen ohne das die horizontale Scrollbar gezeigt oder beim scrollen kurz eingeblendet wird. Ich hab es mit diesem Code versucht, aber manchmal kann man einfach nicht mehr weiter scrollen und die Scrollbars werden beim Scrollen immer ganz kurz eingeblendet.

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class frmTest
    2. Dim X As Integer = 0
    4. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    6. AddControls()
    8. End Sub
    10. Private Sub AddControls(Optional ControlCount As Integer = 20)
    12. With pControls
    14. Controls.Clear()
    16. For i = 0 To ControlCount - 1 ' -1 weil --- ControlCount = 20 --> 21 Buttons werden hinzugefügt --- 0,1,2...19,20,20 mit 0 sind es 21 Buttons
    18. Dim newBtn As New Button
    19. newBtn.Location = New Point((newBtn.Width + 2) * i, .Height / 2 - newBtn.Height / 2)
    20. newBtn.Text = "Button - " + i.ToString
    22. .Controls.Add(newBtn)
    24. Next
    26. End With
    28. End Sub
    30. Private Sub pControls_Scroll(sender As Object, e As ScrollEventArgs) Handles pControls.Scroll
    32. X = e.NewValue
    34. End Sub
    36. Public Enum ScrollDirection
    38. Left
    39. Right
    41. End Enum
    43. Public Sub ScrollPanel(SD As ScrollDirection, Optional Factor As Integer = 25)
    45. With pControls.HorizontalScroll
    47. Select Case SD
    49. Case ScrollDirection.Left
    50. X -= Factor
    51. If X < .Minimum Then X = .Minimum
    53. .Value = X
    55. Case ScrollDirection.Right
    56. X += Factor
    57. If X > .Maximum Then X = .Maximum
    59. .Value = X
    61. Case Else
    62. Exit Sub
    64. End Select
    66. End With
    68. End Sub
    70. Private Sub btnLeft_Click(sender As Object, e As EventArgs) Handles btnLeft.Click
    72. ScrollPanel(ScrollDirection.Left, pControls.HorizontalScroll.LargeChange)
    74. End Sub
    76. Private Sub btnRight_Click(sender As Object, e As EventArgs) Handles btnRight.Click
    78. ScrollPanel(ScrollDirection.Right, pControls.HorizontalScroll.LargeChange)
    80. End Sub
    82. Private Sub btnNewButtons_Click(sender As Object, e As EventArgs) Handles btnNewButtons.Click
    84. AddControls(nudControlCount.Value)
    86. End Sub
    87. End Class


    Ich hoffe ihr könnt mir helfen :D

    MfG Luca
    Dateien

    • Test.zip

      (95,44 kB, 104 mal heruntergeladen, zuletzt: )

    @Luca Probier mal dies:

    VB.NET-Quellcode

    1. Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    2. Me.Panel1.Location = New Point(Me.Panel1.Location.X - 20, Me.Panel1.Location.Y)
    3. End Sub
    5. Private Sub Button5_Click(sender As System.Object, e As System.EventArgs) Handles Button5.Click
    6. Me.Panel1.Location = New Point(Me.Panel1.Location.X + 20, Me.Panel1.Location.Y)
    7. End Sub
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Ich hab ein SplitLayoutPanel und darin das Panel. Also kann ich es nicht so groß machen, wie es sein muss, damit alle Controls hinzugefügt werden können ohne, dass eine ScrollBar benötigt wird. Das würde also nicht gehen, weil ich das Panel nicht vergrößern kann. Kann man vielleicht ohne das die ScrollBars angezeigt werden AutoScrollPosition benutzen ? :D

    EDIT: sry, SplitContainer :D

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

    Luca schrieb:

    ich hab ein Panel

    Luca schrieb:

    Ich hab ein SplitLayoutPanel
    Wenn Du mit Deiner Aufzählung fertig bist, beschreibe bitte Dein Problem so, dass man es so versteht, wie Du es meinst. X(
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Definiere

    Luca schrieb:

    SplitLayoutPanel
    solch kommt bei mir (VS 2010) nicht vor.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Luca schrieb:

    SplitLayoutPanel

    So etwas kommt bei mir auch nicht vor, und ich habe VS 2013.
    Also was bitte benutzt du?!
    Es existiert ein Interesse an der generellen Rezession der Applikation relativ primitiver Methoden komplimentär zur Favorisierung adäquater komplexer Algorithmen.
    ------------------------------------------------------------------------------------
    Rising Existence - das GTA V-MP Projekt mit Zukunft und Innuvation

    sry hab mit meinem Handy geschrieben und dachte es heißt so :/ . Ich hab ein SplitContainer :D Ich dachte wegen FlowLayoutPanel, dass es so heißt. Aber darin hab ich ein Panel und ich möchte es nur scrollen ohne, dass die Scrollbars angezeigt werden.

    @Luca Hatten wir doch gerade.
    Probier dies:

    VB.NET-Quellcode

    1. Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    2. Me.Panel1.Location = New Point(Me.Panel1.Location.X - 20, Me.Panel1.Location.Y)
    3. End Sub
    5. Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
    6. Me.Panel1.Location = New Point(Me.Panel1.Location.X + 20, Me.Panel1.Location.Y)
    7. End Sub
    9. Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
    10. Me.Panel1.Location = New Point(Me.Panel1.Location.X, Me.Panel1.Location.Y - 20)
    11. End Sub
    13. Private Sub Button4_Click(sender As System.Object, e As System.EventArgs) Handles Button4.Click
    14. Me.Panel1.Location = New Point(Me.Panel1.Location.X, Me.Panel1.Location.Y + 20)
    15. End Sub
    Und ersetze dann dier Buttons durch Deine eigene Ansteuerung.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!