Laden von WMF-Dateien in PictureBox

Programmierung: Laden von WMF-Dateien in PictureBox: 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
Sponsoren und Investoren

Sponsoren und Investoren sind jederzeit herzlich willkommen!
Wenn Sie die Information(en) auf dieser Seite interessant fanden, freuen wir uns über eine kleine Spende. Empfehlen Sie uns bitte auch in Ihren Netzwerken (z. B. Twitter, Facebook oder Google+). Herzlichen Dank!

Nach oben Sitemap
Impressum & Kontakt