Datum

Titel

08.05.2024 19:10:09

doppelte Zeile gem. mehrerer Bedingungen löschen?

08.05.2024 17:16:08

Randomize, RND, Timer() , (@Onur, Opawinni)

08.05.2024 16:47:59

Formel für 1, Ziffer nach einem Teilstring finden

08.05.2024 16:25:23

'Fehler in der Zwischenablage' beim Abspielen von Ma

Du findest keine passende Antwort auf Deine Frage?

Stelle Deine Frage in unserem Live-Forum

Archiv - Navigation

788to792

Aktuelles Verzeichnis

Verzeichnis Index

Übersicht Verzeichnisse

Vorheriger Thread

Rückwärts Blättern

Nächster Thread

Vorwärts blättern

HERBERS

Excel-Forum (Archiv)

20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Rückwärts Blättern

Aktuelles Verzeichnis

Übersicht Verzeichnisse

Vorwärts blättern

Inhaltsverzeichnis

Label Bilder aus einblenden automatisch

Forumthread: Label Bilder aus einblenden automatisch
5 Beiträge zu diesem Forumthread
Anzeige
307 Threads zu ähnlichen Themen
VBA Beispiele zu verwandten Themen

Excel Dialoge
Top 100 Forumthreads

14.08.2006 14:10:44

achim

Hallo excel Freunde
Geht das?
Ich habe in meiner userform 6 label.
die label sind jeweils zu zwei nebeneinander und die restlichen genau so darunter angeordnet.
die label beinhalten alle das gleiche bild(Picture,(Bitmap).
nun, damit meine userform etwas lebendiger aussieht möchte ich das das Bild
nach und nach in den label1 ein und ausgeblendet wird.
also;zunächst label 1 einblenden dann nach ca 2 sek. ausblenden und dann in label 2 einblenden usw.
gruß
achim h.

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Label Bilder aus einblenden automatisch

14.08.2006 17:13:58

Herbert
AW: Label Bilder aus einblenden automatisch

14.08.2006 19:39:50

Herbert
AW: Label Bilder aus einblenden automatisch

15.08.2006 11:59:35

achim
AW: Label Bilder aus einblenden automatisch

15.08.2006 13:49:08

Herbert
Danke

15.08.2006 15:56:53

achim

AW: Label Bilder aus einblenden automatisch

14.08.2006 17:13:58

Herbert

hallo achim,

'in das Userformmodul
'Beispiel ohne Schleife
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub UserForm_Activate()
DoEvents
Sleep 200
With Me
    .Label1.Picture = LoadPicture(ThisWorkbook.Path & "\Bild1.jpg")
     DoEvents
     Sleep 300
    .Label1.Picture = LoadPicture("")
    .Label2.Picture = LoadPicture(ThisWorkbook.Path & "\Bild1.jpg")
     DoEvents
     Sleep 300
    .Label2.Picture = LoadPicture("")
    .Label3.Picture = LoadPicture(ThisWorkbook.Path & "\Bild1.jpg")
     DoEvents
     Sleep 300
    .Label3.Picture = LoadPicture("")
End With
End Sub

gruß Herbert

AW: Label Bilder aus einblenden automatisch

14.08.2006 19:39:50

Herbert

'Beispiel mit Schleife
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub UserForm_Activate()
Dim i%, c As Control
i = 1
With Me
    For Each c In .Controls
         DoEvents
         Sleep 200
         If TypeName(c) = "Label" Then
            .Controls("Label" & CStr(i)).Picture = LoadPicture(ThisWorkbook.Path & "\Bild1.jpg")
            DoEvents
            Sleep 300
            .Controls("Label" & CStr(i)).Picture = LoadPicture("")
            i = i + 1
         End If
    Next
End With
End Sub
gruß Herbert

AW: Label Bilder aus einblenden automatisch

15.08.2006 11:59:35

achim

Hallo Herbert
wenn ich den code mit schleife in meiner userform kopiere erscheint die zeile
Private Declare


Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
nicht innerhalb der 

Sub und beim kompilieren bekomme ich die fehlermeldung
nach End Sub
,end funktion usw. nur kommentare möglich

was mache ich falsch?

AW: Label Bilder aus einblenden automatisch

15.08.2006 13:49:08

Herbert

wo steht geschrieben,daß diese Zeile innerhalb der "Sub" sein soll ?
du hast offensichtlich nach "End Sub" noch irgendwas stehen...
warum auch immer ?
gruß Herbert

Danke

15.08.2006 15:56:53

achim

Hallo Herbert
es funzt.
Ich habe diesen code an die erste stelle kopiert und nun funzen beide varianten tatellos.
danke für die hilfestellung.Super!!!
gruß
achim h.