MultipageSeite alle 5 sek. wechseln

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo,

mein bisheriger Code sieht so aus, nur bin ich leider nicht in der Lage den Wechsel zustande zu bekommen.

Mit den Schleifen hab ich es noch nicht so.

Gruß
Felix

Private Const giIntervall As Integer = 1
Private Const gsMacro As String = "BildWechsel"
Private gdNextTime As Double
Private i As Byte

Private Sub CommandButton1_Click()
Call WechselEnde
Unload Me
End Sub

Private Sub UserForm_Initialize()
MultiPage1.Value = 0
WechselEin
Call BildWechsel
End Sub

Sub BildWechsel()
Select Case i
Case Is = 0
MultiPage1.Value = 1
Case Is = 1
MultiPage1.Value = 2
Case Is = 2
MultiPage1.Value = 3
Case Is = 3
MultiPage1.Value = 4
Case Is = 4
MultiPage1.Value = 5
Case Is = 5
MultiPage1.Value = 0
End Select
Call WechselEin
End Sub

Sub WechselEin()
gdNextTime = Now + TimeSerial(0, 0, giIntervall)
Application.OnTime earliesttime:=gdNextTime, procedure:=gsMacro, schedule:=True
End Sub

Sub WechselEnde()
On Error Resume Next
Application.OnTime earliesttime:=gdNextTime, procedure:=gsMacro, schedule:=False
End Sub

Hallo Felix

das las sich aber so als ob Du schonen einen Code gefunden hast, deren Verlauf Du schon analysiert hast. Ich wollte eigentlich vermeiden ein Beispiel zu erstellen.

' in ein Modul
Option Explicit
Option Private Module
Public ET As Variant
Public ByI As Byte
Sub Zeitmakro()
'   unter Anleitung von KlauCh
    UserForm1.MultiPage1.Value = ByI
    ByI = ByI + 1
    If ByI >= 5 Then ByI = 0
    ET = Now + TimeValue("00:00:05")
    Application.OnTime ET, "Zeitmakro"
End Sub
' in die Userform
Option Explicit
Private Sub UserForm_Initialize()
    Call Zeitmakro
End Sub
Private Sub CommandButton1_Click()
    On Error Resume Next
    Application.OnTime earliesttime:=ET, procedure:="Zeitmakro", schedule:=False
    Unload Me
    Me.Hide
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
'   Damit mit X nicht geschloßen werden kann
    If CloseMode = 0 Then
        MsgBox "Bitte schließen Sie die Anwendung mit der -Ende- Schaltfläche.", vbCritical
        Cancel = 1
    End If
End Sub

Code eingefügt mit Syntaxhighlighter 1.16

Gruß Hajo

Beliebteste Forumthreads (12 Monate)

MultipageSeite alle 5 sek. wechseln

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

8 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

MultipageSeite alle 5 sek. wechseln

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

8 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread