| 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. |
| |
| |
| . |
| |
zurück