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
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