Mausrad verwenden

  • VB.NET

Es gibt 8 Antworten in diesem Thema. Der letzte Beitrag () ist von wolfjuli.

    Mausrad verwenden

    Hi Leute,

    bin noch eher ein Neuling in VB 2008 (hab bisher immer in QuickBASIC 4.5 Geprogged, was ich, denke ich, schon sehr gut konnte) und hab daher eine Frage: Wie kann ich das Mausrad verwenden? Ich hab die Suche verwendet, und stieß dabei auf den e.Delta befehl. Leider worked der bei mir nicht, da ich nicht weiß, wie ich mit dem Umgehen soll (weder als MsgBox noch in einem Textfeld kann ich ihn anzeigen, auch nicht mit der ToString erweiterung -> Runtime-Error). Ich hab zwar die MouseWheel-Funkti0on auch schon gefunden, hab aber keinen Dau wie ich mit der umgehen soll (hier hab ich auch schon irgendwas mit Up und Down gefunden, kA aber wo das hingehört).

    also wie ihr seht, noch absoluter neuling und am meisten würdet ihr mir helfen wenn ihr mir einen Beispielcode aus einem euer Programme zeigt.

    Vielen Dank im Vorraus

    Julian

    PS: Ich hab auch schon den Eintrag der FAQ gefunden, in dem man die Registry manipuliert. Auch das funzte nicht, da ich keinen Add-In Manager fand (auch nicht in der Sucher der Hilfe)

    Hallo wolfjuli,
    ich denke der Knackpunkt ist zu verstehen daß Delta (daher der Name!) nicht einen absoluten Wert enthält, sondern eine relative Veränderung durch das Drehen des Mausrades, seit dem letzten Mal. Je größer die Veränderung, desto schneller / mehr wurde das Mausrad gedreht. Ob das Mausrad nach oben oder unten gedreht wurde, wird demzufolge dadurch ausgedrückt daß der Wert für Delta entweder größer oder kleiner 0 ist. Ein Beispiel: (Progressbar1 auf die Form zeichnen, code einfügen, ausführen)

    VB.NET-Quellcode

    1. Public Class Form1
    2. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    3. ProgressBar1.Minimum = 0
    4. ProgressBar1.Maximum = 100
    5. ProgressBar1.Value = 0
    6. End Sub
    8. Private Sub Form1_MouseWheel(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseWheel
    9. If e.Delta > -1 Then
    10. If ProgressBar1.Value < 100 Then
    11. ProgressBar1.Value += 5
    12. End If
    13. Else
    14. If ProgressBar1.Value > 0 Then
    15. ProgressBar1.Value -= 5
    16. End If
    17. End If
    18. End Sub
    19. End Class

    Grüße,
    f0x

    Danke für die schnelle antwort, dein Beispiel funktioniert genau so wie ich es mir vorgestellt habe. Jetzt hab ich aber folgendes Problem:

    ich wollte einfach zum Üben eine Bildanzeige mit Zoommöglichkeit programmieren. Funktioniert auch alles. Ich hätte nur gerne, dass ich das bild nach oben und unten scrolle, wenn ich das Mausrad drehe. Das problem ist, wenn ich die Trackbar zum Zoomen verwende, dann hängt das mausrad dort "fest" und es kümmert sich nur mehr um diese, nicht aber um das scrollen der leisten. ich hab dan folgenden code ausprobiert:

    VB.NET-Quellcode

    1. Private Sub TrackBar1_MouseWheel(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TrackBar1.MouseWheel
    3. If e.Delta > -1 Then
    4. If VScrollBar1.Value < VScrollBar1.Maximum Then
    5. VScrollBar1.Value += 5
    6. End If
    7. Else
    8. If VScrollBar1.Value > 0 Then
    9. VScrollBar1.Value -= 5
    10. End If
    11. End If
    12. End Sub


    läuft aber auch nicht so wie erhoft :( (es scrolled die track bar und die VScrollbar, wobei das bild seine Position nicht verändert, was aber logisch ist, weil ich es ja nicht mit der Scrollbar synchronisiere)

    Hier ist der gesamte code, den ich geschrieben habe, der eiegentlich auch, bis auf diesen Teil, funktioniert:

    VB.NET-Quellcode

    1. Public Class Form1
    3. Dim pbreite
    4. Dim phoehe
    5. Dim last
    6. Dim zahl As Double
    13. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    14. pbreite = Me.PictureBox1.Width
    15. phoehe = Me.PictureBox1.Height
    16. End Sub
    18. Private Sub durchsuchen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles durchsuchen.Click
    19. Me.OpenFileDialog1.ShowDialog()
    21. If Me.OpenFileDialog1.CheckFileExists = True Then
    22. Me.TextBox1.Text = Me.OpenFileDialog1.SafeFileName
    23. Me.PictureBox1.ImageLocation = Me.TextBox1.Text
    24. End If
    26. If PictureBox1.Width > 0 Then VScrollBar1.Maximum = PictureBox1.Width - pbreite
    27. If PictureBox1.Height > 0 Then HScrollBar1.Maximum = PictureBox1.Height - phoehe
    28. End Sub
    30. Private Sub TrackBar1_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles TrackBar1.MouseLeave
    32. End Sub
    34. Private Sub TrackBar1_MouseWheel(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TrackBar1.MouseWheel
    36. If e.Delta > -1 Then
    37. If VScrollBar1.Value < VScrollBar1.Maximum Then
    38. VScrollBar1.Value += 5
    39. End If
    40. Else
    41. If VScrollBar1.Value > 0 Then
    42. VScrollBar1.Value -= 5
    43. End If
    44. End If
    45. End Sub
    47. Private Sub TrackBar1_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar1.Scroll
    48. Me.PictureBox1.Width = pbreite + Me.TrackBar1.Value
    49. Me.PictureBox1.Height = phoehe + Me.TrackBar1.Value
    51. End Sub
    52. Private Sub VScrollBar1_Scroll(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs) Handles VScrollBar1.Scroll
    53. PictureBox1.Location = New Point(PictureBox1.Location.X, 0 - VScrollBar1.Value)
    54. End Sub
    56. Private Sub HScrollBar1_Scroll(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs) Handles HScrollBar1.Scroll
    57. PictureBox1.Location = New Point(0 - HScrollBar1.Value, PictureBox1.Location.Y)
    58. End Sub
    60. Private Sub Form1_MouseWheel(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseWheel
    62. If e.Delta > -1 Then
    63. If VScrollBar1.Value < VScrollBar1.Maximum Then
    64. VScrollBar1.Value += 5
    65. End If
    66. Else
    67. If VScrollBar1.Value > 0 Then
    68. VScrollBar1.Value -= 5
    69. End If
    70. End If
    71. End Sub
    72. Private Sub PictureBox1_SizeChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox1.SizeChanged
    73. If PictureBox1.Width > 0 Then VScrollBar1.Maximum = PictureBox1.Width - pbreite
    74. If PictureBox1.Height > 0 Then HScrollBar1.Maximum = PictureBox1.Height - phoehe
    75. End Sub
    76. End Class


    Vielen Dank

    Julian

    Ps: Ach ja, warum schreibt man eigentlich VScrollBar1.Value -= 5, also "-="??

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

    Hallo Julian,
    muß mir das morgen nochmal anschaun, bin gerade zu müde.
    Ps: Ach ja, warum schreibt man eigentlich VScrollBar1.Value -= 5, also "-="??

    Das nennt man dekrementieren. In VB6 hat man das noch so geschrieben: VScrollBar1.Value = VScrollBar1.Value -5
    Diese Schreibweise ist auch unter vb.net noch möglich. Also was dir lieber ist. Entsprechend gilt übrigens auch +=
    f0x

    roddy schrieb:

    Ich denke, was bsHobbit damit sagen wollte ist:

    Aus i=i+1 folgt, wenn man für i 0 einsetzt, 0=1, was ja nicht stimmt.

    Der Mathematiker der das glaubt, weiß aber halt nicht, daß in VB ein "=" nicht nur ein Vergleichsoperator ist, sondern (je nach Kontext) auch ein Zuweisungsoperator sein kann.

Facebook
Telefonspende