Thomas Risi Softwareentwicklung

PictureShow

In diesem Beispiel wird davon ausgegangen, daß in einer Exceltabelle ein Image- Steuerelement (Image1) existiert. Bei jedem Mausklick auf Image1 wird ein neues Bild geladen. Wenn alle Bilder durchlaufen sind, in diesem Beispiel sind es drei Bilder, wird wieder von vorne begonnen.

Option Explicit Const Path = "C:\Pfad\" Dim i& Private Sub Image1_Click() i = i + 1 Select Case i Case 1: Image1.Picture = LoadPicture(Path & "Bitmap1.bmp") Case 2: Image1.Picture = LoadPicture(Path & "Bitmap2.bmp") Case 3: Image1.Picture = LoadPicture(Path & "Bitmap3.bmp") End Select If i = 3 Then i = 0 End Sub

Bewerten Sie bitte dieses Programm.
1 2 3 4 5
Weniger nützlich Sehr nützlich
Bitte teilen Sie uns mit, warum Sie das Programm so bewertet haben. (optional)