Anzeigen von Bildern I

Anzeigen von Bildern, Programmierung via Common Dialog, Function, Bildfelder
Sowohl in Bildfeldern als auch in Anzeigen können Bilder ausgegeben werden.
In Bildfeldern sind auch Textausgaben möglich.
Bildfelder können alles, was ein Formular auch kann (also Bilder und Texte wiedergeben).
Die Anzeige ist ein Steuerelement, das einzig und allein für die Anzeige von Bildern zuständig ist.
Mit der Stretch-Eigenschaft verfügt die Anzeige über die Möglichkeit, Bitmaps zu vergrößern / zu verkleinern.
Option Explicit
Private AlteHöhe, AlteBreite Deklarationsteil.
Private Sub Form_Load() Formular wird ohne Bilder geladen.
AlteBreite = imgBild.Width
AlteHöhe = imgBild.Height Die Standardmaße der Anzeige (imgBild) werden
End Sub geladen.
Private Sub chkStretch_Click()
imgBild.Stretch = CBool(chkStretch.Value) CheckBox "Stretch = True".
End Sub
Private Sub cmdOriginal_Click() CommandButton "Original".
imgBild.Width = AlteBreite
imgBild.Height = AlteHöhe Bei Klick wird die Anzeige der Bildgröße reduziert.
End Sub
Private Sub cmdBildAuswahl_Click() CommandButton Bild auswählen (für Bildfeld).
Dim Dateiname As String
Dateiname = DateinameHolen() Öffnet eine DialogBox, um das Bild auszusuchen.
If Dateiname = "" Then Exit Sub
picBildfeld.Picture = StdOle.LoadPicture(Dateiname) Das ausgesuchte Bild wird geladen.
End Sub
Private Sub cmdAnzeigeBild_Click() CommandButton Bild auswählen (für Anzeige).
Dim Dateiname As String
Dateiname = DateinameHolen() Öffnet eine DialogBox, um das Bild auszusuchen.
If Dateiname = "" Then Exit Sub
imgBild.Picture = StdOle.LoadPicture(Dateiname) Das ausgesuchte Bild wird geladen.
End Sub
Private Sub cmdFormularBild_Click() CommandButton Bild auswählen (für Formular).
Dim Dateiname As String
Dateiname = DateinameHolen() Öffnet eine DialogBox, um das Bild auszusuchen.
If Dateiname = "" Then Exit Sub
Me.Picture = StdOle.LoadPicture(Dateiname) Das ausgesuchte Bild wird geladen.
End Sub
Function DateinameHolen()
dlgBildauswahl.Filter = "BMP-Dateien|*.bmp|Ico-Dateien|*.Ico|Jpg-Dateien|*.jpg|Wmf-Dateien|*.wmf|Alle Dateien|*.*"
dlgBildauswahl.ShowOpen
DateinameHolen = dlgBildauswahl.FileName Über die DialogBox wird ein Bild ausgesucht.
End Function
Private Sub Form_Click()
Me.Picture = LoadPicture() Nach Klick auf das "Formular" wird ein leeres Bild eingefügt.
End Sub
Private Sub imgBild_Click()
imgBild.Picture = LoadPicture() Nach Klick auf die "Anzeige" wird ein leeres Bild eingefügt.
End Sub
Private Sub picBildfeld_Click()
picBildfeld.Picture = LoadPicture() Nach Klick auf das "Bildfeld" wird ein leeres Bild eingefügt.
End Sub
Bildfeld (pic): enthält die Datei Dome.bmp im
Originalformat.
Anzeige (img): enthält die gestretchte Datei Dome.bmp.
Formular: kann ebenfalls eine stretchbare Datei enthalten.
.

Mehr Tipps: Anzeigen von Bildern II

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