Partager via

Propriété PictureSizeMode – Exemple

  • Article

L’exemple suivant utilise la propriété PictureSizeMode pour illustrer trois options d’affichage pour une image : l’image telle quelle, la modification de la taille de l’image tout en conservant ses proportions d’origine et l’étirement de l’image pour remplir un espace.

Pour utiliser cet exemple, copiez le code de l’exemple dans la partie Déclarations d’un formulaire. Vérifiez que le formulaire contient :

Remarque

Cet exemple est une version améliorée de l’exemple de propriété PictureAlignment, car les deux propriétés se complètent. Les améliorations apportées sont trois sous-routines événementielles OptionButton qui déterminent si l'image est rognée, soumise à un facteur de zoom ou étirée.

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

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.