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

Wie nützlich finden Sie diesen Tipp?

	1	2	3	4	5
Weniger nützlich						Sehr nützlich

Bitte teilen Sie uns mit, warum Sie die Seite so bewertet haben. (optional)