etichetta4

attivazione di particolari proprietà di label mediante click su pulsanti

Private Sub CommandButton1_Click()
Label1.SpecialEffect = 3
End Sub

Private Sub CommandButton2_Click()
Label2.SpecialEffect = 6
End Sub

Private Sub CommandButton3_Click()
Label3.SpecialEffect = 6
End Sub


Private Sub CommandButton4_Click()
Label4.BackColor = vbYellow
Label4.BorderColor = vbRed
Label4.BorderStyle = 0
End Sub

Private Sub CommandButton5_Click()
Label5.BackColor = vbYellow
Label5.BorderColor = vbRed
Label5.BorderStyle = 0
Label5.Enabled = True
End Sub

Private Sub CommandButton6_Click()
Label6.BackColor = vbYellow
Label6.BorderColor = vbRed
Label6.BorderStyle = 0
Label6.Enabled = False
End Sub

Private Sub CommandButton7_Click()
Label7.BackColor = vbYellow
Label7.BorderColor = vbRed
Label7.BorderStyle = 1
Label7.Enabled = True
Label7.BackStyle = 1
End Sub

Private Sub CommandButton8_Click()
Label8.BackColor = vbYellow
Label8.BorderColor = vbRed
Label8.BorderStyle = 1
Label8.Enabled = True
Label8.BackStyle = 0

End Sub

Private Sub CommandButton2_Click()
Label2.Caption = "textAlign=center"
Label2.TextAlign = fmTextAlignCenter
Label2.BackColor = vbCyan
End Sub

Private Sub CommandButton3_Click()
Label3.Caption = "textAlign=left"
Label3.TextAlign = fmTextAlignRight
Label3.BackColor = vbCyan
End Sub

Private Sub CommandButton4_Click()
Label4.Caption = "forecolor=vbred"
Label4.TextAlign = fmTextAlignCenter
Label4.BackColor = vbCyan
Label4.ForeColor = vbRed
End Sub

Private Sub CommandButton5_Click()
Label5.Caption = "forecolor=vbyellow"
Label5.TextAlign = fmTextAlignCenter
Label5.BackColor = vbCyan
Label5.ForeColor = vbYellow
End Sub

Private Sub CommandButton6_Click()
Label6.Caption = "font=times bold"
Label6.TextAlign = fmTextAlignCenter
Label6.BackColor = vbCyan
Label6.ForeColor = vbRed
End Sub

Private Sub CommandButton7_Click()
Label7.Caption = "font=comic corsivo"
Label7.TextAlign = fmTextAlignCenter
Label7.BackColor = vbCyan
Label7.ForeColor = vbRed
End Sub

Private Sub CommandButton1_Click()
Label1.Caption = "height=20 width=50"
Label1.BackColor = vbCyan
Label1.Height = 20
Label1.Width = 50
End Sub

Private Sub CommandButton2_Click()
Label2.Caption = "top=20 left=50"
Label2.BackColor = vbRed
Label2.Height = 30
Label2.Width = 100
Label2.Top = 20
Label2.Left = 50
End Sub

Private Sub CommandButton3_Click()
Label3.BackColor = vbGreen
Label3.PicturePosition = fmPicturePositionBelowRight
End Sub

Private Sub CommandButton4_Click()
Label4.Caption = "top=holdtop..left=holdleft"
Label4.BackColor = vbRed
Label4.Height = 30
Label4.Width = 100
Label4.Top = holdtop
Label4.Left = holdleft
End Sub

Private Sub CommandButton5_Click()
Label5.Caption = "heigth=oldheigth..width=oldwidth"
Label5.BackColor = vbRed
Label5.Height = oldheigth
Label5.Width = OldWidth
End Sub

Private Sub CommandButton6_Click()
Label6.Caption = "heigth=30..width=100"
Label6.BackColor = vbGreen
Label6.Height = 30
Label6.Width = 100
End Sub

Private Sub CommandButton7_Click()
Label7.Caption = "nome"
Label7.PicturePosition = 1
End Sub

Private Sub CommandButton8_Click()
Label8.Caption = "nome"
Label8.PicturePosition = 2
End Sub

Private Sub CommandButton1_Click()
Label1.BackColor = vbGreen
Label1.PicturePosition = fmPicturePositionBelowLeft
End Sub

Private Sub CommandButton2_Click()
Label2.BackColor = vbRed
Label2.Move (OldLeft)
Label2.Top = OldTop
End Sub

Private Sub CommandButton3_Click()
Label3.BackColor = vbGreen
Label3.PicturePosition = fmPicturePositionBelowRight
End Sub

Private Sub CommandButton4_Click()
Label4.BackColor = vbGreen
Label4.PicturePosition = fmPicturePositionCenter
End Sub

Private Sub CommandButton5_Click()
Label5.BackColor = vbRed
Label5.Top = 100
Label5.Move (100)
Label5.Width = 100
Label5.Height = 30
End Sub

Private Sub CommandButton6_Click()
Label6.BackColor = vbRed
Label6.Top = 100
Label6.Move (100)
End Sub

Private Sub CommandButton7_Click()
Label7.BackColor = vbRed
Label7.Top = 100
Label7.Move (100)
Label7.Width = oldwith
Label7.Height = OldHeight
End Sub