Scrollen durch Mauszeiger

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

Es gibt 12 Antworten in diesem Thema. Der letzte Beitrag () ist von RodFromGermany.

    Scrollen durch Mauszeiger

    Hallo Leute!
    Ihr kennt das ja, wenn man z.B: in der TextBox die Linke Maus haltet, weil man was markieren möchte, und man geht mit der Maus nach unten oder nach oben, scrollt es von alleine nach unter oder nach oben.

    Wie stelle ich die Funktion an?
    Nehmen wir mal Panel und UserControl.
    Die Panel ist viel größer als die UserControl.
    Wie stelle ich es an, wenn Die linke Maus gehalten wird, und man geht mit der Maus nach unten, so das die Panel automatisch nach oben geht, damit man die untere Panel erreichen kann. ?(

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

    Ist das Panel im UserControl oder ist das UserControl im Panel?
    Kannst Du mal bitte eine ungefähre Zeichung des Ist-Zustands hochladen? Warum ist das UserControl nicht größer als das Panel? Gibt es ScrollBars?

    Moderatorenanmerkung: Vergib zeitnah einen aussagekräftigen Titel. Scrollen hat viel zu wenig Aussagekraft. Es beschreibt Dein Problem nicht. erledigt
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

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

    Scrollen durch Mauszeiger

    Hallo Panel ist im UserControl
    Ich habe leider keine Zeichnung
    Doch Scrollbar existiert und funktioniert.
    Es ist so ich versuche ein Benutzerelement zu erstellen mit ein mit Bilder.
    Picturebox befindet sich per Code Erstellung auf dem Panel.
    je mehr Bilder eingetragen werden, um so Größer wird der Panel.
    Ist der Panel größer als UserControl, wird Scrollbar angezeigt.
    Ich habe sogar eine Funktion eingebaut um die Bilder zu markieren.
    nun wenn ich die Bilder markieren will und die Bilder sind nicht Sichtbar, muss entsprechen gescrollt werden.
    da ist mir die Idee gekommen, wie beim TextBox oder sogar hier im Forum wo ich gerade schreibe, kann man markieren und wenn unten angekommen ist, aber das war nicht der ganze Text, wird automatisch nach unten gescrollt während man markiert.

    Oder Besser zu erklären was ich möchte, nehme diese Internet Seite wo du gerade bist und gehe ganz nach oben, klicke auf die Linke taste und halte Sie, und fahre mit der Maus nach unten.
    Es fängt an zu markieren und die Seite geht nach unten.
    Das meine ich, leider weiß ich nicht wie das benannt wird.

    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „tommy“ ()

    1. Thementitel anpassen! erledigt
    2. Habe mit einem Trick erstmal das Autoscrollen simuliert. Sobald man im reinen Panel ist, also nicht über einem anderen Control innerhalb des Panels ist, kann man so autoscrollen (erstmal ohne MouseButton):

    VB.NET-Quellcode

    1. Private Sub ScrollUp(sender As Object, e As MouseEventArgs)
    2. Using c As New Control With {.Parent = Panel1, .Top = -1, .Height = 1}
    3. Panel1.ScrollControlIntoView(c)
    4. c.Parent = Nothing
    5. End Using
    6. End Sub
    8. Private Sub ScrollDown(sender As Object, e As MouseEventArgs)
    9. Using c As New Control With {.Parent = Panel1, .Top = Panel1.Height, .Height = 1}
    10. Panel1.ScrollControlIntoView(c)
    11. c.Parent = Nothing
    12. End Using
    13. End Sub
    15. Private Sub Panel1_MouseMove(sender As Object, e As MouseEventArgs) Handles Panel1.MouseMove
    16. If e.Y < Panel1.Height * 0.1 Then ScrollUp(sender, e)
    17. If e.Y > Panel1.Height * 0.9 Then ScrollDown(sender, e)
    18. End Sub


    ##########

    nächster Schritt wär natürlich, dass Pseudoscrollcontrol permanent existent zu machen und immer nur seine Position entsprechend zu setzen oder gar gleich eine ScrollablePanel-Klasse zu erzeugen, welches jenes Control schon von Haus aus enthält.
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „VaporiZed“ ()

    Hallo VaporiZed!
    Ich hoffe, das mit dem Thementitel besser ist.
    Ich weiß sonst nicht wie ich es schreiben soll, da ich leider nicht weiß, wie der korrekte Bezeichnung dieser Funktion ist.
    Und Danke für den Code aber es ist nicht das was ich suche.
    Ich glaube du hast meine frage falsch verstanden.
    Mit dem Scrollen hat nichts mit Scrollbar und auch nicht mit Mousewheel, sprich Mausrad direkt zu tun.
    Mehr als Erklären und Beschreiben kann ich es leider nicht.

    Aber Herzlichen Dank für deine Bemühungen :thumbup:

    Mein Code scrollt das zu kleine Panel automatisch nach oben oder unten, wenn man am oberen oder unteren Rand des Panels ist, ohne (erstmal), dass man etwas klickt.
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    Hmm Sorry aber es hat nicht gemacht.
    Ich habe dir ein fertiges Code angehängt.
    Vielleicht habe ich da ein Denk Fehler
    Ich habe Test weise Panel mit dem Name panUser genommen, es soll den später ein UserControl sein.
    Das ist der Form1-Designer
    Spoiler anzeigen

    VB.NET-Quellcode

    1. <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
    2. Partial Class Form1
    3. Inherits System.Windows.Forms.Form
    5. 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
    6. <System.Diagnostics.DebuggerNonUserCode()> _
    7. Protected Overrides Sub Dispose(ByVal disposing As Boolean)
    8. Try
    9. If disposing AndAlso components IsNot Nothing Then
    10. components.Dispose()
    11. End If
    12. Finally
    13. MyBase.Dispose(disposing)
    14. End Try
    15. End Sub
    17. 'Wird vom Windows Form-Designer benötigt.
    18. Private components As System.ComponentModel.IContainer
    20. 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
    21. 'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
    22. 'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
    23. <System.Diagnostics.DebuggerStepThrough()> _
    24. Private Sub InitializeComponent()
    25. Me.panUser = New System.Windows.Forms.Panel()
    26. Me.Panel1 = New System.Windows.Forms.Panel()
    27. Me.Label1 = New System.Windows.Forms.Label()
    28. Me.Label2 = New System.Windows.Forms.Label()
    29. Me.Label3 = New System.Windows.Forms.Label()
    30. Me.Label4 = New System.Windows.Forms.Label()
    31. Me.Label5 = New System.Windows.Forms.Label()
    32. Me.Label6 = New System.Windows.Forms.Label()
    33. Me.Label7 = New System.Windows.Forms.Label()
    34. Me.Label8 = New System.Windows.Forms.Label()
    35. Me.Label9 = New System.Windows.Forms.Label()
    36. Me.Label10 = New System.Windows.Forms.Label()
    37. Me.panUser.SuspendLayout()
    38. Me.Panel1.SuspendLayout()
    39. Me.SuspendLayout()
    40. '
    41. 'panUser
    42. '
    43. Me.panUser.BackColor = System.Drawing.Color.White
    44. Me.panUser.Controls.Add(Me.Panel1)
    45. Me.panUser.Location = New System.Drawing.Point(18, 23)
    46. Me.panUser.Name = "panUser"
    47. Me.panUser.Size = New System.Drawing.Size(209, 237)
    48. Me.panUser.TabIndex = 0
    49. '
    50. 'Panel1
    51. '
    52. Me.Panel1.BackColor = System.Drawing.Color.Lime
    53. Me.Panel1.Controls.Add(Me.Label9)
    54. Me.Panel1.Controls.Add(Me.Label10)
    55. Me.Panel1.Controls.Add(Me.Label7)
    56. Me.Panel1.Controls.Add(Me.Label8)
    57. Me.Panel1.Controls.Add(Me.Label5)
    58. Me.Panel1.Controls.Add(Me.Label6)
    59. Me.Panel1.Controls.Add(Me.Label3)
    60. Me.Panel1.Controls.Add(Me.Label4)
    61. Me.Panel1.Controls.Add(Me.Label2)
    62. Me.Panel1.Controls.Add(Me.Label1)
    63. Me.Panel1.Location = New System.Drawing.Point(3, 3)
    64. Me.Panel1.Name = "Panel1"
    65. Me.Panel1.Size = New System.Drawing.Size(203, 536)
    66. Me.Panel1.TabIndex = 0
    67. '
    68. 'Label1
    69. '
    70. Me.Label1.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer))
    71. Me.Label1.Location = New System.Drawing.Point(12, 15)
    72. Me.Label1.Name = "Label1"
    73. Me.Label1.Size = New System.Drawing.Size(180, 31)
    74. Me.Label1.TabIndex = 0
    75. Me.Label1.Text = "Label1"
    76. Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
    77. '
    78. 'Label2
    79. '
    80. Me.Label2.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer))
    81. Me.Label2.Location = New System.Drawing.Point(12, 68)
    82. Me.Label2.Name = "Label2"
    83. Me.Label2.Size = New System.Drawing.Size(180, 31)
    84. Me.Label2.TabIndex = 1
    85. Me.Label2.Text = "Label2"
    86. Me.Label2.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
    87. '
    88. 'Label3
    89. '
    90. Me.Label3.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer))
    91. Me.Label3.Location = New System.Drawing.Point(12, 118)
    92. Me.Label3.Name = "Label3"
    93. Me.Label3.Size = New System.Drawing.Size(180, 31)
    94. Me.Label3.TabIndex = 3
    95. Me.Label3.Text = "Label3"
    96. Me.Label3.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
    97. '
    98. 'Label4
    99. '
    100. Me.Label4.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer))
    101. Me.Label4.Location = New System.Drawing.Point(12, 170)
    102. Me.Label4.Name = "Label4"
    103. Me.Label4.Size = New System.Drawing.Size(180, 31)
    104. Me.Label4.TabIndex = 2
    105. Me.Label4.Text = "Label4"
    106. Me.Label4.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
    107. '
    108. 'Label5
    109. '
    110. Me.Label5.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer))
    111. Me.Label5.Location = New System.Drawing.Point(12, 224)
    112. Me.Label5.Name = "Label5"
    113. Me.Label5.Size = New System.Drawing.Size(180, 31)
    114. Me.Label5.TabIndex = 5
    115. Me.Label5.Text = "Label5"
    116. Me.Label5.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
    117. '
    118. 'Label6
    119. '
    120. Me.Label6.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer))
    121. Me.Label6.Location = New System.Drawing.Point(12, 278)
    122. Me.Label6.Name = "Label6"
    123. Me.Label6.Size = New System.Drawing.Size(180, 31)
    124. Me.Label6.TabIndex = 4
    125. Me.Label6.Text = "Label6"
    126. Me.Label6.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
    127. '
    128. 'Label7
    129. '
    130. Me.Label7.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer))
    131. Me.Label7.Location = New System.Drawing.Point(12, 334)
    132. Me.Label7.Name = "Label7"
    133. Me.Label7.Size = New System.Drawing.Size(180, 31)
    134. Me.Label7.TabIndex = 7
    135. Me.Label7.Text = "Label7"
    136. Me.Label7.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
    137. '
    138. 'Label8
    139. '
    140. Me.Label8.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer))
    141. Me.Label8.Location = New System.Drawing.Point(12, 389)
    142. Me.Label8.Name = "Label8"
    143. Me.Label8.Size = New System.Drawing.Size(180, 31)
    144. Me.Label8.TabIndex = 6
    145. Me.Label8.Text = "Label8"
    146. Me.Label8.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
    147. '
    148. 'Label9
    149. '
    150. Me.Label9.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer))
    151. Me.Label9.Location = New System.Drawing.Point(12, 443)
    152. Me.Label9.Name = "Label9"
    153. Me.Label9.Size = New System.Drawing.Size(180, 31)
    154. Me.Label9.TabIndex = 9
    155. Me.Label9.Text = "Label9"
    156. Me.Label9.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
    157. '
    158. 'Label10
    159. '
    160. Me.Label10.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer))
    161. Me.Label10.Location = New System.Drawing.Point(12, 496)
    162. Me.Label10.Name = "Label10"
    163. Me.Label10.Size = New System.Drawing.Size(180, 31)
    164. Me.Label10.TabIndex = 8
    165. Me.Label10.Text = "Label10"
    166. Me.Label10.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
    167. '
    168. 'Form1
    169. '
    170. Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
    171. Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
    172. Me.ClientSize = New System.Drawing.Size(857, 611)
    173. Me.Controls.Add(Me.panUser)
    174. Me.Name = "Form1"
    175. Me.Text = "Form1"
    176. Me.panUser.ResumeLayout(False)
    177. Me.Panel1.ResumeLayout(False)
    178. Me.ResumeLayout(False)
    180. End Sub
    182. Friend WithEvents panUser As Panel
    183. Friend WithEvents Panel1 As Panel
    184. Friend WithEvents Label9 As Label
    185. Friend WithEvents Label10 As Label
    186. Friend WithEvents Label7 As Label
    187. Friend WithEvents Label8 As Label
    188. Friend WithEvents Label5 As Label
    189. Friend WithEvents Label6 As Label
    190. Friend WithEvents Label3 As Label
    191. Friend WithEvents Label4 As Label
    192. Friend WithEvents Label2 As Label
    193. Friend WithEvents Label1 As Label
    194. End Class


    Das ist der Code im Form1
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class Form1
    3. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    4. Panel1.AutoScroll = True
    5. panUser.AutoScroll = True
    6. End Sub
    7. Private Sub ScrollUp(sender As Object, e As MouseEventArgs)
    8. Using c As New Control With {.Parent = Panel1, .Top = -1, .Height = 1}
    9. Panel1.ScrollControlIntoView(c)
    10. c.Parent = Nothing
    11. End Using
    12. End Sub
    14. Private Sub ScrollDown(sender As Object, e As MouseEventArgs)
    15. Using c As New Control With {.Parent = Panel1, .Top = Panel1.Height, .Height = 1}
    16. Panel1.ScrollControlIntoView(c)
    17. c.Parent = Nothing
    18. End Using
    19. End Sub
    21. Private Sub Panel1_MouseMove(sender As Object, e As MouseEventArgs) Handles Panel1.MouseMove
    22. If e.Y < Panel1.Height * 0.1 Then ScrollUp(sender, e)
    23. If e.Y > Panel1.Height * 0.9 Then ScrollDown(sender, e)
    24. End Sub
    26. End Class

    Dieser Beitrag wurde bereits 4 mal editiert, zuletzt von „tommy“ ()

    Hallo Leute!
    Ich habe mal eine Funktion geschrieben, vielleicht könnt ihr mal darauf schauen und eurer Feedback abgeben.
    würde mich sehr interessieren.
    Macht ein neues Projekt auf mit eine Form1 und eine Klasse mit dem Name MyMouseScroll.
    zu erst das Form1 Designer.
    Spoiler anzeigen

    VB.NET-Quellcode

    1. <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
    2. Partial Class Form1
    3. Inherits System.Windows.Forms.Form
    5. 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
    6. <System.Diagnostics.DebuggerNonUserCode()> _
    7. Protected Overrides Sub Dispose(ByVal disposing As Boolean)
    8. Try
    9. If disposing AndAlso components IsNot Nothing Then
    10. components.Dispose()
    11. End If
    12. Finally
    13. MyBase.Dispose(disposing)
    14. End Try
    15. End Sub
    17. 'Wird vom Windows Form-Designer benötigt.
    18. Private components As System.ComponentModel.IContainer
    20. 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
    21. 'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
    22. 'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
    23. <System.Diagnostics.DebuggerStepThrough()> _
    24. Private Sub InitializeComponent()
    25. Me.Panel1 = New System.Windows.Forms.Panel()
    26. Me.Panel2 = New System.Windows.Forms.Panel()
    27. Me.Button6 = New System.Windows.Forms.Button()
    28. Me.Button4 = New System.Windows.Forms.Button()
    29. Me.Button7 = New System.Windows.Forms.Button()
    30. Me.Button1 = New System.Windows.Forms.Button()
    31. Me.Button5 = New System.Windows.Forms.Button()
    32. Me.Button3 = New System.Windows.Forms.Button()
    33. Me.Button2 = New System.Windows.Forms.Button()
    34. Me.cmdLoad = New System.Windows.Forms.Button()
    35. Me.cmdUnLoad = New System.Windows.Forms.Button()
    36. Me.Panel1.SuspendLayout()
    37. Me.Panel2.SuspendLayout()
    38. Me.SuspendLayout()
    39. '
    40. 'Panel1
    41. '
    42. Me.Panel1.Controls.Add(Me.Panel2)
    43. Me.Panel1.Location = New System.Drawing.Point(12, 41)
    44. Me.Panel1.Name = "Panel1"
    45. Me.Panel1.Size = New System.Drawing.Size(173, 206)
    46. Me.Panel1.TabIndex = 3
    47. '
    48. 'Panel2
    49. '
    50. Me.Panel2.BackColor = System.Drawing.SystemColors.ActiveCaption
    51. Me.Panel2.Controls.Add(Me.Button6)
    52. Me.Panel2.Controls.Add(Me.Button4)
    53. Me.Panel2.Controls.Add(Me.Button7)
    54. Me.Panel2.Controls.Add(Me.Button1)
    55. Me.Panel2.Controls.Add(Me.Button5)
    56. Me.Panel2.Controls.Add(Me.Button3)
    57. Me.Panel2.Controls.Add(Me.Button2)
    58. Me.Panel2.Location = New System.Drawing.Point(0, 0)
    59. Me.Panel2.Name = "Panel2"
    60. Me.Panel2.Size = New System.Drawing.Size(244, 330)
    61. Me.Panel2.TabIndex = 2
    62. '
    63. 'Button6
    64. '
    65. Me.Button6.Location = New System.Drawing.Point(19, 240)
    66. Me.Button6.Name = "Button6"
    67. Me.Button6.Size = New System.Drawing.Size(180, 26)
    68. Me.Button6.TabIndex = 8
    69. Me.Button6.Text = "Button6"
    70. Me.Button6.UseVisualStyleBackColor = True
    71. '
    72. 'Button4
    73. '
    74. Me.Button4.Location = New System.Drawing.Point(19, 150)
    75. Me.Button4.Name = "Button4"
    76. Me.Button4.Size = New System.Drawing.Size(180, 26)
    77. Me.Button4.TabIndex = 7
    78. Me.Button4.Text = "Button4"
    79. Me.Button4.UseVisualStyleBackColor = True
    80. '
    81. 'Button7
    82. '
    83. Me.Button7.Location = New System.Drawing.Point(19, 283)
    84. Me.Button7.Name = "Button7"
    85. Me.Button7.Size = New System.Drawing.Size(180, 26)
    86. Me.Button7.TabIndex = 6
    87. Me.Button7.Text = "Button7"
    88. Me.Button7.UseVisualStyleBackColor = True
    89. '
    90. 'Button1
    91. '
    92. Me.Button1.Location = New System.Drawing.Point(19, 19)
    93. Me.Button1.Name = "Button1"
    94. Me.Button1.Size = New System.Drawing.Size(180, 26)
    95. Me.Button1.TabIndex = 2
    96. Me.Button1.Text = "Button1"
    97. Me.Button1.UseVisualStyleBackColor = True
    98. '
    99. 'Button5
    100. '
    101. Me.Button5.Location = New System.Drawing.Point(19, 196)
    102. Me.Button5.Name = "Button5"
    103. Me.Button5.Size = New System.Drawing.Size(180, 26)
    104. Me.Button5.TabIndex = 0
    105. Me.Button5.Text = "Button5"
    106. Me.Button5.UseVisualStyleBackColor = True
    107. '
    108. 'Button3
    109. '
    110. Me.Button3.Location = New System.Drawing.Point(19, 104)
    111. Me.Button3.Name = "Button3"
    112. Me.Button3.Size = New System.Drawing.Size(180, 26)
    113. Me.Button3.TabIndex = 4
    114. Me.Button3.Text = "Button3"
    115. Me.Button3.UseVisualStyleBackColor = True
    116. '
    117. 'Button2
    118. '
    119. Me.Button2.Location = New System.Drawing.Point(19, 61)
    120. Me.Button2.Name = "Button2"
    121. Me.Button2.Size = New System.Drawing.Size(180, 26)
    122. Me.Button2.TabIndex = 3
    123. Me.Button2.Text = "Button2"
    124. Me.Button2.UseVisualStyleBackColor = True
    125. '
    126. 'cmdLoad
    127. '
    128. Me.cmdLoad.Location = New System.Drawing.Point(12, 12)
    129. Me.cmdLoad.Name = "cmdLoad"
    130. Me.cmdLoad.Size = New System.Drawing.Size(75, 23)
    131. Me.cmdLoad.TabIndex = 4
    132. Me.cmdLoad.Text = "Load"
    133. Me.cmdLoad.UseVisualStyleBackColor = True
    134. '
    135. 'cmdUnLoad
    136. '
    137. Me.cmdUnLoad.Location = New System.Drawing.Point(110, 12)
    138. Me.cmdUnLoad.Name = "cmdUnLoad"
    139. Me.cmdUnLoad.Size = New System.Drawing.Size(75, 23)
    140. Me.cmdUnLoad.TabIndex = 5
    141. Me.cmdUnLoad.Text = "Unload"
    142. Me.cmdUnLoad.UseVisualStyleBackColor = True
    143. '
    144. 'Form1
    145. '
    146. Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
    147. Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
    148. Me.ClientSize = New System.Drawing.Size(247, 294)
    149. Me.Controls.Add(Me.cmdUnLoad)
    150. Me.Controls.Add(Me.cmdLoad)
    151. Me.Controls.Add(Me.Panel1)
    152. Me.Name = "Form1"
    153. Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
    154. Me.Text = "Form1"
    155. Me.Panel1.ResumeLayout(False)
    156. Me.Panel2.ResumeLayout(False)
    157. Me.ResumeLayout(False)
    159. End Sub
    160. Friend WithEvents cmdLoad As Button
    161. Friend WithEvents Panel1 As Panel
    162. Friend WithEvents Panel2 As Panel
    163. Friend WithEvents cmdUnLoad As Button
    164. Friend WithEvents Button7 As Button
    165. Friend WithEvents Button1 As Button
    166. Friend WithEvents Button3 As Button
    167. Friend WithEvents Button5 As Button
    168. Friend WithEvents Button2 As Button
    169. Friend WithEvents Button4 As Button
    170. Friend WithEvents Button6 As Button
    171. End Class


    Als nächste Form1 Code
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class Form1
    2. Private AutoSlider As New MyMouseScroll
    4. Private Sub Button4_Click(sender As Object, e As EventArgs) Handles cmdLoad.Click
    5. AutoSlider.Load(Panel1, Panel2)
    6. End Sub
    8. Private Sub Button6_Click(sender As Object, e As EventArgs) Handles cmdUnLoad.Click
    9. AutoSlider.UnLoad()
    10. End Sub
    11. End Class


    und als letzter die Klasse
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class MyMouseScroll
    2. Dim varParent As Control
    3. Dim varChild As Control
    4. Private m_ctrRootContainers() As Control
    5. Dim Timer As Timer
    6. Dim KlickControl As Control
    7. Public Sub Load(Parent As Object, Child As Object)
    8. If (TypeOf Parent Is Panel Or TypeOf Parent Is GroupBox Or
    9. TypeOf Parent Is SplitContainer Or TypeOf Parent Is TabControl Or
    10. TypeOf Parent Is TableLayoutPanel Or TypeOf Parent Is FlowLayoutPanel) = True Then
    11. varParent = CType(Parent, Control)
    12. Else
    13. Throw New Exception("Diese Steuerelement " & Parent.ToString & " ist kein Container!")
    14. Exit Sub
    15. End If
    16. If (TypeOf Child Is Panel Or TypeOf Child Is GroupBox Or
    17. TypeOf Child Is SplitContainer Or TypeOf Child Is TabControl Or
    18. TypeOf Child Is TableLayoutPanel Or TypeOf Child Is FlowLayoutPanel) = True Then
    19. varChild = CType(Child, Control)
    20. Else
    21. Throw New Exception("Diese Steuerelement " & Child.ToString & " ist kein Container!")
    22. Exit Sub
    23. End If
    24. Dim ctr As Control
    25. For Each ctr In varChild.Controls
    26. AddHandler ctr.MouseDown, AddressOf Control_MouseDown
    27. AddHandler ctr.MouseUp, AddressOf Control_MouseUp
    28. Next ctr
    29. Timer = New Timer()
    30. Timer.Interval = 100
    31. Timer.Enabled = False
    32. AddHandler Timer.Tick, AddressOf Timer_tick
    33. End Sub
    34. Private Sub Control_MouseDown(sender As Object, e As MouseEventArgs)
    35. Timer.Enabled = True
    36. KlickControl = CType(sender, Control)
    37. End Sub
    38. Private Sub Control_MouseUp(sender As Object, e As MouseEventArgs)
    39. Timer.Enabled = False
    40. KlickControl = Nothing
    41. End Sub
    42. Private Sub Timer_tick(sender As Object, e As EventArgs)
    43. If IsNothing(KlickControl) Then Timer.Enabled = False
    44. Dim Point As Point = varParent.PointToClient(Control.MousePosition)
    45. If Point.Y > (varParent.Height - 50) Then
    46. If (varChild.Height - varParent.Height) > varChild.Top Then
    47. If ((varChild.Height - varParent.Height) * -1) > varChild.Top - 5 Then
    48. varChild.Top = -(varChild.Height - varParent.Height)
    49. Else
    50. varChild.Top -= 5
    51. End If
    52. End If
    53. End If
    54. If Point.Y < 50 Then
    55. If varChild.Top < 0 Then
    56. If varChild.Top + 5 > 0 Then
    57. varChild.Top = 0
    58. Else
    59. varChild.Top += 5
    60. End If
    61. End If
    62. End If
    63. If Point.X > (varParent.Width - 50) Then
    64. If (varChild.Width - varParent.Width) > varChild.Left Then
    65. If ((varChild.Width - varParent.Width) * -1) > varChild.Left - 5 Then
    66. varChild.Left = -(varChild.Width - varParent.Width)
    67. Else
    68. varChild.Left -= 5
    69. End If
    70. End If
    71. End If
    72. If Point.X < 50 Then
    73. If varChild.Left < 0 Then
    74. If varChild.Left + 5 > 0 Then
    75. varChild.Left = 0
    76. Else
    77. varChild.Left += 5
    78. End If
    79. End If
    80. End If
    81. Application.DoEvents()
    82. End Sub
    83. Public Sub UnLoad()
    84. Dim ctr As Control
    85. For Each ctr In varChild.Controls
    86. RemoveHandler ctr.MouseDown, AddressOf Control_MouseDown
    87. RemoveHandler ctr.MouseUp, AddressOf Control_MouseUp
    88. Next ctr
    89. End Sub
    90. End Class


    Fertig.
    zum Schluss Kompilieren und starten, sobald die Linke Maus gehalten wird, und mit der Maus herum fährt, seht ihr wie es Scrollt.

    Mfg tommy

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

    tommy schrieb:

    Fertig.
    zum Schluss Kompilieren
    und wundern, weil Dein Code unter Option Strict On nicht compiliert.
    Visual Studio – Empfohlene Einstellungen
    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!

    Hallo RodFromGermany!
    Sorry habe wohl vergessen unter My Projekt \ Kompilieren den Option Strict On etc. zu Aktivieren.
    Ich habe den vorherige Eintrag ausgebessert.
    Aber was ich wissen wollte, was sagt ihr zu den Code, ist der gut oder nicht?
    Ich persönlich nein, wegen dem Timer .
    Der Code funktioniert, aber ich denke der Code besser sein ohne Timer oder was sagt ihr?

    @tommy Das ist eine Definitionsfrage (Scrollen, Verschieben).
    Probier mal, das mit MouseScroll zu machen, da brauchst Du keinen Timer, hast aber keine y-Bewegung.
    learn.microsoft.com/de-de/dotn…l?view=windowsdesktop-6.0
    Allerdings kannst Du dem Panel selbst 2 ScrollBars geben und auf denen das MouseScroll auswereten.
    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!

    Das Problem mit MouseScroll ist, wenn ich etwas markiere und verschieben möchte funktioniert das nicht.
    Den ich habe ein Usercontroll darin habe ich ein Panel und im Panel mehrere PictureBox.
    Wenn ich das obere PictureBox mit der linken Maustaste klicke und halte, und währenddessen mit dem Mauszeiger nach unten gehe, so das ich bei UserControll unten angekommen bin, aber der Panel Länger als Usercontroll ist, wird der Panel nicht nach oben geschoben.
    Warum ? weil ich die Bilder Reihung verändern möchte.
    Wenn ich aber mit der Maus auf dem SchrollBar klicke und drauf und runter schiebe, Verschiebt sich der Panel nach oben oder nach unten.
    Ich hoffe du verstehst was ich jetzt meine?

    @tommy Klar.
    Noch ein Vorschlag:
    Mausklick in das Panel, nicht auf Button & Co, und dann bewegen, wie man eine Form an der Titelzeile bewegt.
    Das geht sehr einfach und ist im Forum gut beschrieben.
    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!

Facebook
Telefonspende