| CommandButtons, Zuweisungen |
| |
| |
| Private Sub Command1_Click() | Die Anzeige entnimmt das Bild nicht einem Pfad, |
| Image1.Picture = Command1.Picture | sondern der Zuweisung des Pfades, der den Command- |
| Me.Icon = Command1.Picture | Button-Picture-Eigenschaften zugewiesen wurde. |
| End Sub | Die Eigenschaft Style der CommandButtons ist |
| 1-Grafisch. |
| Private Sub Command2_Click() | |
| Image1.Picture = Command2.Picture | |
| Me.Icon = Command2.Picture | |
| End Sub |
|
| Private Sub Command3_Click() |
| Image1.Picture = Command3.Picture |
| Me.Icon = Command3.Picture |
| End Sub | |
| |
| Private Sub Command4_Click() | |
| Image1.Picture = Command4.Picture | |
| Me.Icon = Command4.Picture | |
| End Sub | |
| |
| Private Sub Command5_Click() | |
| Image1.Picture = Command5.Picture | |
| Me.Icon = Command5.Picture | |
| End Sub | |
| |
| Private Sub Image1_Click() | |
| ' Me.Icon = LoadPicture("") | Dieser Befehl funktioniert entgegen der Beschreibung nicht. |
| Image1.Picture = LoadPicture("") | Bei Klick auf die Anzeige wird das Bild gelöscht. |
| End Sub | |
| |
zurück