title image


Smiley Du kannst das so machen...


Private Sub RegisterStr1_Change()



Dim i As Integer

For i = 0 To Me.RegisterStr1.Pages.Count - 1

' Alle Bilder löschen

Me.RegisterStr1.Pages(i).Picture = ""

Next i



' Bild auf aktueller Seite anzeigen

Me.RegisterStr1.Pages(Me.RegisterStr1).PictureData = Me.Befehl0.PictureData



End Sub



P.S. Die Bilder sind auf den Schaltflächen Befehl0 (Bild anzeigen) und Befehl1 (Bild nicht anzeigen)


Schöne Grüße
Ralf

(Ich verwende: Windows XP / Office XP)


Meine Links:
Meine Homepage
DBWiki
The Access Web


geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: