| PictureBox (Bildausgabe) |
| |
| |
| Const Pfadt = "D:\Visual60\Graphics\Icons\Elements\" | Um nicht bei jedem Bild den kompletten Pfad angeben |
| zu müssen, wird der Pfadname über den Const- |
| Private Sub cmdGemischt_Click() | Befehl etwas vereinfacht. |
| imgBild.Picture = LoadPicture(Pfadt & "Cloud.ico") | |
| End Sub | |
| |
| Private Sub cmdRegen_Click() |
| imgBild.Picture = LoadPicture(Pfadt & "Rain.ico") |
| End Sub |
|
| Private Sub cmdSchnee_Click() |
| imgBild.Picture = LoadPicture(Pfadt & "Snow.ico") |
| End Sub |
| |
| Private Sub cmdSonne_Click() | |
| imgBild.Picture = LoadPicture(Pfadt & "Sun.ico") | |
| End Sub | |
| |
| Private Sub Form_DblClick() | |
| imgBild.Picture = LoadPicture() | |
| End Sub | |
| |
| Private Sub imgBild_DblClick() | |
| imgBild.Picture = LoadPicture() | |
| End Sub | |
| |
| Private Sub Label1_DblClick() | |
| imgBild.Picture = LoadPicture() | |
| End Sub | |
| |
zurück