| 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 | |
| |
zurück