Hallo,

hab ein Problem mit HScrollBar1_Move-Prozedur.
Während _Scroll gut funktioniert und Koordinaten()-Subroutine aufruft, tut es _Move nicht-die Seite lässt sich nicht einmal laden.
So muss ich in _Move die Koordinaten() auskommentieren, damit ich die Seite überhaupt laden kann und _Scroll ausprobieren kan.

Was mach ich. bitte, falsch- wie muss es richtig sein?

Für jeden Tipp bin ich dankbar.

Den Code habe ich auf das wesentliche reduziert:
>>>>>>>>>>>>>>>>>>
x1,x2,y1,y2-globale Variablen deklariert und in Load() initiiert
g_Line as Bitmap,..., Picture1.Image=g_Line in Load()
HScrollBar1.Maximum,Minimum,Value eingestellt

Private Sub HScrollBar1_Scroll(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs) Handles HScrollBar1.Scroll
x1 = CDbl((HScrollBar1.Value - 80) * 2)
y1 = CDbl((HScrollBar1.Value - 80) * 2)
Koordinaten() 'dieser Aufruf funktioniert
End Sub

Private Sub HScrollBar1_Move(ByVal sender As Object, ByVal e As System.EventArgs) Handles HScrollBar1.Move
x1 = CDbl((HScrollBar1.Value - 80) * 2)
y1 = CDbl((HScrollBar1.Value - 80) * 2)
Koordinaten() 'dieser Aufruf funktioniert nicht-warum?
End Sub

Private Sub Koordinaten()
Dim g As Graphics = Graphics.FromImage(g_Linie)
g.Clear(Color.White)
g.DrawLine(Pens.Red, x1,y1,x2,y2)
PictureBox1.Refresh()
g.Dispose()
End Sub
<<<<<<<<<<<<<<<<<<

Ende, danke

Hallo,



natürlich nicht, ich will den Schieber verschieben und nicht das ganze Steuerelement.

Aber ich berufe mich da auf M.Koflers Buch, wo es heißt:

"...Während der Schiebebalken mit der Maus bewegt wird, treten Move-Ereignisse auf."

Und ein simples Beispiel samt Code ist auch dabei.

Wie meinst du das?

Gibt es da was anderes, was man aufrufen sollte? Wie heißt das entsprechende Event dann??



Danke

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim rand As New Random()
VScrollBar1.Value = rand.Next(255)
VScrollBar2.Value = rand.Next(255)
VScrollBar3.Value = rand.Next(255)
ChangeColor()
End Sub

Private Sub VScrollBar1_Move(ByVal sender As Object, ByVal e As System.EventArgs) Handles VScrollBar1.Move
ChangeColor()
End Sub
Private Sub VScrollBar1_Scroll(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs) Handles VScrollBar1.Scroll
ChangeColor()
End Sub
Private Sub VScrollBar2_Move(ByVal sender As Object, ByVal e As System.EventArgs) Handles VScrollBar2.Move
ChangeColor()
End Sub
Private Sub VScrollBar2_Scroll(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs) Handles VScrollBar2.Scroll
ChangeColor()
End Sub
Private Sub VScrollBar3_Move(ByVal sender As Object, ByVal e As System.EventArgs) Handles VScrollBar3.Move
ChangeColor()
End Sub
Private Sub VScrollBar3_Scroll(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs) Handles VScrollBar3.Scroll
ChangeColor()
End Sub
Private Sub ChangeColor()
Dim r, g, b As Integer
r = VScrollBar1.Value
g = VScrollBar2.Value
b = VScrollBar3.Value
picEGraphic.BackColor = Color.FromArgb(r, g, b)
End Sub


Nach diesem Muster wollte ich mit meinem Graphic-Objekt arbeiten