Compartir a través de

Ejemplo de propiedad PictureAlignment

  • Artículo

En el ejemplo siguiente se usa la propiedad PictureAlignment para configurar una imagen de fondo. El ejemplo también identifica las opciones de alineación que proporciona PictureAlignment.

Para usar este ejemplo, copie este código muestra en la parte de Declaraciones de un formulario. Asegúrese de que el formulario contiene:

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 
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

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.