Hallo,
Ich habe ein Register angelegt mit vier Seiten.
Jede Seite hat ihre Überschrift mit eingebettetem Bitmap.
Ist es möglich, dass man dieses Bitmap beim öffnen der Seite verändert und dass man beim schließen wieder das ursprüngliche Bitmap sieht? AccessVersion 2003
Gruß aus Rheinbach
Erika
Hallo,
quick&dirty etwa so:
Private Sub R1_Change()
Me.Painting = False
Select Case Me!R1
Case 0
Me!R1.Pages(0).Picture = „c:\BildReiter1aktiv.bmp“
Me!R1.Pages(1).Picture = „c:\BildReiter2inaktiv.bmp“
Me!R1.Pages(2).Picture = „c:\BildReiter3inaktiv.bmp“
Me!R1.Pages(3).Picture = „c:\BildReiter4inaktiv.bmp“
Case 1
Me!R1.Pages(0).Picture = „c:\BildReiter1inaktiv.bmp“
Me!R1.Pages(1).Picture = „c:\BildReiter2aktiv.bmp“
Me!R1.Pages(2).Picture = „c:\BildReiter3inaktiv.bmp“
Me!R1.Pages(3).Picture = „c:\BildReiter4inaktiv.bmp“
Case 2
Me!R1.Pages(0).Picture = „c:\BildReiter1inaktiv.bmp“
Me!R1.Pages(1).Picture = „c:\BildReiter2inaktiv.bmp“
Me!R1.Pages(2).Picture = „c:\BildReiter3aktiv.bmp“
Me!R1.Pages(3).Picture = „c:\BildReiter4inaktiv.bmp“
Case 3
Me!R1.Pages(0).Picture = „c:\BildReiter1inaktiv.bmp“
Me!R1.Pages(1).Picture = „c:\BildReiter2inaktiv.bmp“
Me!R1.Pages(2).Picture = „c:\BildReiter3inaktiv.bmp“
Me!R1.Pages(3).Picture = „c:\BildReiter4aktiv.bmp“
End Select
Me.Painting = True
End Sub
Gruß
Franz, DF6GL
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Moin, Erika,
Ist es möglich, dass man dieses Bitmap beim öffnen der Seite
verändert
ja, einfach durch Überschreiben:
Tabctl.Pages.pagename.Picture = meine.bmp
und dass man beim schließen wieder das
ursprüngliche Bitmap sieht?
Da wird’s schwieriger, weil die Original-Bitmap nicht direkt greifbar ist. Eine Möglichkeit wäre, irgendwo auf dem Formular ein unsichtbares Register anzulegen und dort den Wert von PictureData zwischenzulagern:
TabCtlSave.Pages.pagename.PictureData = TabCtl.Pages.pagename.PictureData
Gruß Ralf
ps: Vorsicht mit der Syntax! Tabs habe ich so noch nicht modifiziert, sondern CommandButtons.