Slideshow im Bildfeld

Programmierung Slideshow im Bildfeld. Image, ComboBox, Timer, Static
Const Pfadt = "D:\Graphics\Metafile\Business\"
Dim i%, PicName$
Private Sub Combo1_Click()
Timer1.Enabled = True
PicName = Combo1.Text Variable für den Bildnamen.
Image1.Picture = LoadPicture(Pfadt & PicName) Das Laden des Bildes wird durch den Timer ausgelöst.
lblCount = Combo1.ListIndex Das Label zeigt immer den aktuellen Index an. Das Klick-
End Sub Ereignis wird durch den Timer ausgelöst.
Private Sub Timer1_Timer()
Static i%
PicName = Combo1.Text Variable für den Bildnamen.
If i >= Combo1.ListCount Then Auch: If i > 9 Then
i = 0
Else
Combo1.ListIndex = i
' Image1.Picture = LoadPicture(Pfadt & PicName) Das kann man weglassen, wenn die ComboBox durch ein
i = i + 1 Klick-Ereignis geladen wird.
End If
End Sub
Private Sub Form_Load()
Image1.Stretch = True Bei Stretch = False würde das Bild im gesamten Formular
With Combo1 angezeigt.
.AddItem ("typewrtr.wmf") Laden der ComboBox.
.AddItem ("satelit2.wmf")
.AddItem ("satelit1.wmf")
.AddItem ("ruble.wmf")
.AddItem ("quarter.wmf")
.AddItem ("printer.wmf")
.AddItem ("penny.wmf")
.AddItem ("phone.wmf")
.AddItem ("monitor.wmf")
.AddItem ("laptop1.wmf")
End With
Combo1.ListIndex = 0
Timer1.Enabled = False
End Sub
Private Sub cmdStop_Click()
Timer1.Enabled = False
End Sub
Private Sub cmdClose_Click()
Unload Me
End Sub

Mehr Tipps: Collection-Objekt

Sponsoren und Investoren

Sponsoren und Investoren sind jederzeit herzlich willkommen!
Wenn Sie die Information(en) auf dieser Seite interessant fanden, freuen wir uns über eine kleine Spende. Empfehlen Sie uns bitte auch in Ihren Netzwerken (z. B. Twitter, Facebook oder Google+). Herzlichen Dank!

Nach oben Sitemap
Impressum & Kontakt