Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

??Scrollen??
Autor: Gigaherz
Datum: 30.04.02 22:20
Hallo Leute ich habe ein problem mit dem scrollen! hier mal der Quelltext: Option Explicit Public yx As Boolean Dim Min&, Max&, Wert& Private Sub Command1_Click() End End Sub Private Sub Form_Load() Loading Me.Command1.Left = 1 Min = Me.Command1.Left Max = Min + Form1.Width - Me.Command1.Width - 10 Wert = 60 End Sub Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single) Dim i i = x DoEvents If x < 700 + Picture1.Left * -1 Then Wert = 120 & _ ScrollL(i) If x > -700 + Picture1.Left * -1 + Form1.Width Then Wert = 120 * -1 & _ ScrollR(i) DoEvents If x <= Form1.Width Then Wert = 60 End Sub Sub Animation() Dim f, p, g f = Form1.Width p = Form1.Picture1.Width g = p - f Static Links As Long Static Richtung As Boolean DoEvents If Links = 0 Then Links = Min Richtung = False ElseIf Richtung = False Then If Links > Max Then Richtung = Not (Richtung) Wert = Wert * -1 End If DoEvents Links = Links + Wert ElseIf Richtung = True Then If Links < Min Then Richtung = Not (Richtung) DoEvents Wert = Wert * -1 End If Links = Links + Wert Else Links = Links + Wert End If Me.Command1.Left = Links End Sub Private Sub Timer1_Timer() Call Animation End Sub __________________________________Modul______________________________ Public Function ScrollL(x) If Form1.Picture1.Left >= 0 Then GoTo ende Form1.Picture1.Left = Form1.Picture1.Left + 15 ende: End Function Public Function ScrollR(x) Dim f, p, g f = Form1.Width p = Form1.Picture1.Width g = p - f If Form1.Picture1.Left <= g * -1 Then GoTo ende Form1.Picture1.Left = Form1.Picture1.Left - 15 ende: End Function Public Function Loading() Form1.Huhn.Picture = LoadResPicture(110, 0) Form1.WindowState = vbMaximized Dim fgw, fgh Form1.Picture1.Picture = LoadResPicture(101, 0) fgw = Form1.Width fgh = Form1.Height With Form1.Picture1 .Width = 23820 .Height = Form1.Height End With Dim img As Object Set img = Form1.Picture1 img.Top = 0 Dim o, t o = img.Width / 4 * -1 t = Form1.Width / 4 img.Left = o + t End Function So, es klappt zwar aber sobald ich an einen PC mit 600Mhz oder mehr gehe scrollt er immer weiter! D.h. ich gehe an den rechten rand. Das bild scrollt aber wenn ich jetzt wieder in die mitte von der form gehe scrollt er noch ein paar sekunden weiter! Habt ihr irgendwelche Vorschläge oder verbesserungen für mich? Danke im vorraus Mfg Gigi

??Scrollen??	57	Gigaherz	30.04.02 22:20
Re: ??Scrollen??	244	unbekannt	30.04.02 22:32

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen