PictureSizeMode-Eigenschaft (Beispiel)

Im folgenden Beispiel wird die PictureSizeMode-Eigenschaft verwendet, um drei Anzeigeoptionen für ein Bild zu veranschaulichen: das Bild unverändert anzeigen, die Größe des Bilds unter Beibehaltung der ursprünglichen Proportionen ändern und das Bild so strecken, dass ein Raum gefüllt wird.

Kopieren Sie diesen Beispielcode in den Deklarationsbereich eines Formulars. Stellen Sie sicher, dass das Formular folgende Komponenten enthält:

• Ein Frame mit dem Namen Frame1.
• Ein Drehfeld-Steuerelement ( SpinButton ) mit der Bezeichnung "SpinButton1".
• Ein Textfeld-Steuerelement ( TextBox ) mit der Bezeichnung "TextBox1".
• Drei Optionsfeld-Steuerelemente ( OptionButton ) mit der Bezeichnung "OptionButton1" bis "OptionButton3".

Hinweis

Dieses Beispiel ist eine erweiterte Version des PictureAlignment-Eigenschaftsbeispiels, da sich die beiden Eigenschaften gegenseitig ergänzen. Die Erweiterungen sind drei OptionButton -Ereignissubroutinen, die steuern, ob das Bild zugeschnitten, vergrößert, verkleinert oder gestreckt wird.

Dim Alignments(5) As String 
 
Private Sub UserForm_Initialize() 
 Alignments(0) = "0 - Top Left" 
 Alignments(1) = "1 - Top Right" 
 Alignments(2) = "2 - Center" 
 Alignments(3) = "3 - Bottom Left" 
 Alignments(4) = "4 - Bottom Right" 
 
 'Specify a bitmap that exists on your system 
 Frame1.Picture = LoadPicture("c:\winnt2\ball.bmp") 
 
 SpinButton1.Min = 0 
 SpinButton1.Max = 4 
 SpinButton1.Value = 0 
 
 TextBox1.Text = Alignments(0) 
 Frame1.PictureAlignment = SpinButton1.Value 
 
 OptionButton1.Caption = "Crop" 
 OptionButton1.Value = True 
 OptionButton2.Caption = "Stretch" 
 OptionButton3.Caption = "Zoom" 
End Sub 
 
Private Sub OptionButton1_Click() 
 If OptionButton1.Value = True Then 
 Frame1.PictureSizeMode = fmPictureSizeModeClip 
 End If 
End Sub 
 
Private Sub OptionButton2_Click() 
 If OptionButton2.Value = True Then 
 Frame1.PictureSizeMode = fmPictureSizeModeStretch 
 End If 
End Sub 
 
Private Sub OptionButton3_Click() 
 If OptionButton3.Value = True Then 
 Frame1.PictureSizeMode = fmPictureSizeModeZoom 
 End If 
End Sub 
 
Private Sub SpinButton1_Change() 
 TextBox1.Text = Alignments(SpinButton1.Value) 
 Frame1.PictureAlignment = SpinButton1.Value 
End Sub 
 
Private Sub TextBox1_Change() 
 Select Case TextBox1.Text 
 Case "0" 
 TextBox1.Text = Alignments(0) 
 Frame1.PictureAlignment = 0 
 Case "1" 
 TextBox1.Text = Alignments(1) 
 Frame1.PictureAlignment = 1 
 Case "2" 
 TextBox1.Text = Alignments(2) 
 Frame1.PictureAlignment = 2 
 Case "3" 
 TextBox1.Text = Alignments(3) 
 Frame1.PictureAlignment = 3 
 Case "4" 
 TextBox1.Text = Alignments(4) 
 Frame1.PictureAlignment = 4 
 Case Else 
 TextBox1.Text = Alignments(SpinButton1.Value) 
 Frame1.PictureAlignment = SpinButton1.Value 
 End Select 
End Sub

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.