vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Blitzschnelles Erstellen von grafischen Diagrammen!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Visual-Basic Einsteiger
Re: Befehl bei Scrollende 
Autor: Tagedieb
Datum: 12.04.05 19:48

Hallo Lord_Duke,

die Idee mit dem Timer war ganz ok!
Ich habe das wie folgt gelöst. Einen Timer eingestellt mit Enabled = False Interval = 1000

Im Allgemeinen Teil:

Dim Zahl as Integer

Dann unter

Private Sub HScroll1_Change

Zahl = 0
Timer3.Enabled = True

Und schließlich der Timer:

Private Sub Timer3_Timer()
    Zahl = Zahl + 1
    If Zahl > 1 Then
        If Check4.Value = 1 Then
            Command9_Click      'Hier das gewünschte Ereignis
            Timer3.Enabled = False
        End If
    End If
End Sub
Der Timer versucht laufend die Zahl um 1 zu erhöhen, aber durch das Scrollen wird das verhindert. Wenn mit Scrollen aufgehört wird, kann der Timer die Zahl um 1 erhöhen und das Ereignis findet statt und der Timer schaltet sich aus (Enabled = False).
Das funktioniert ganz gut!

Gruß Thomas
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Befehl bei Scrollende576Tagedieb12.04.05 16:57
Re: Befehl bei Scrollende367Lord_Duke12.04.05 17:02
Re: Befehl bei Scrollende349Tagedieb12.04.05 19:48
Re: Befehl bei Scrollende372Lord_Duke13.04.05 09:44

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

nach obenzurück
 
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel