11° ACTIVIDAD CLASE VISUAL BASIC

 A continuación se ha agrupado en un formulario de visual basic, CommandButton, configurados para cambiar las propiedades de un Label.

Private Sub CambiarAppearance_Click()
lblcambios.Appearance = 0

End Sub

Private Sub CambiarBackColor_Click()
lblcambios.BackColor = &HFF&
End Sub

Private Sub CambiarCaption_Click()
lblcambios.Caption = ""
lblcambios.Appearance = 1
lblcambios.BorderStyle = 0
lblcambios.Visible = True
lblcambios.FontBold = False
lblcambios.FontItalic = False

End Sub

Private Sub cmdBorderStyle_Click()
lblcambios.BorderStyle = 1
End Sub

Private Sub cmdBorderStyle1_Click()
lblcambios.BorderStyle = 0
End Sub

Private Sub cmdfontbold_Click()
lblcambios.FontBold = True
End Sub

Private Sub cmdfontitalic_Click()
lblcambios.FontItalic = True
End Sub

Private Sub cmdfontname_Click()
lblcambios.FontName = "Ravie"
End Sub

Private Sub cmdfontsize_Click()
lblcambios.FontSize = 25
End Sub

Private Sub cmdforecolor_Click()
lblcambios.ForeColor = &HFFFF&
End Sub

Private Sub cmdInvisible_Click()
lblcambios.Visible = False
End Sub

Private Sub cmdVisible_Click()
lblcambios.Visible = True
End Sub

Private Sub EscribirTexto_Click()
lblcambios.Caption = InputBox("Introduzca el texto")

End Sub