| LoadPicture, PaintPicture, AutoRedraw |
| |
| |
| Private Sub Command1_Click(Index As Integer) | Nach Klick wird der "Taschenrechner" geladen. |
| picAusgabe.Picture = LoadPicture("D:\Visual60\Graphics\Metafile\Business\Calcultr.wmf") |
| End Sub | |
| |
| Private Sub Command2_Click(Index As Integer) | |
| picAusgabe.Picture = LoadPicture() | Nach Klick auf "Bild löschen" wird ein leeres Bild eingefügt. |
| End Sub | |
| |
| Private Sub Form_Click() | Nach Klick auf das Formular wird das "Telefon" eingefügt. |
| Me.Picture = LoadPicture("D:\Visual60\Graphics\Metafile\Business\Phone.wmf") |
| End Sub | |
| |
| Private Sub picAusgabe_DblClick() | |
| Me.Picture = LoadPicture() | Nach Doppelklick auf das PictureFeld wird das |
| End Sub | Telefon gelöscht. |
 | |
| |
| |
| |
| |
| |
| |
| |
| |
| Weiteres Beispiel: Laden von BMP- und GIF-Dateien mit CommonDialog |
| |
| Private Sub cmdBildladen_Click() | |
| Dim Dateiname As String | |
| cdlDatei.Filter = "Bitmap (*.bmp, *.gif)|*.Bmp; *.Gif|Alle Dateien (*.*)|*.*" |
| cdlDatei.DialogTitle = "Laden eines Bildes" | CommonDialog |
| cdlDatei.ShowOpen | |
| Dateiname = cdlDatei.FileName | |
| | |
| If Dateiname = "" Then Exit Sub | Wurde ein Dateiname eingegeben? |
| picBild.Picture = LoadPicture(Dateiname) | |
| picVorschau.PaintPicture picBild.Picture, 0, 0, picVorschau.ScaleWidth, _ |
| picVorschau.ScaleHeight, 0, 0, picBild.Width, picBild.Height |
| End Sub | |
|
|
|
| Private Sub Form_Load() |
| picBild.AutoRedraw = True |
| picVorschau.AutoRedraw = True |
| End Sub |
| |
zurück