forma3x

esempi di applicazione varia a LABEL

Private Sub CommandButton1_Click()
Label1.Accelerator = 10
Label1.AutoSize = True
Label1.BackColor = vbYellow
Label1.BackStyle = fmBackStyleOpaque
Label1.BorderColor = vbRed
Label1.BorderStyle = fmBorderStyleNone
Label1.Caption = "etichetta1"
Label1.Enabled = True
Label1.Font = monaco
Label1.ForeColor = vbBlue
Label1.Height = 200
Label1.Left = 50
Label1.PicturePosition = fmPicturePositionLeftTop
Label1.SpecialEffect = fmSpecialEffectRaised
Label1.TabIndex = 1
Label1.Tag = "tag inserita"
Label1.TextAlign = fmTextAlignCenter
Label1.Top = 20
Label1.Visible = True
Label1.Width = 200
Label1.WordWrap = True
End Sub

Private Sub Label1_Click()
Label1.Accelerator = 10
Label1.AutoSize = True
Label1.BackColor = vbCyan
Label1.BackStyle = fmBackStyleOpaque
Label1.BorderColor = vbRed
Label1.BorderStyle = fmBorderStyleSingle
Label1.Caption = "etichetta1"
Label1.Enabled = True
Label1.Font = times
Label1.ForeColor = vbRed
Label1.Height = 100
Label1.Left = 100
Label1.PicturePosition = fmPicturePositionLeftTop
Label1.SpecialEffect = fmSpecialEffectSunken
Label1.TabIndex = 1
Label1.Tag = "tag inserita"
Label1.TextAlign = fmTextAlignRight
Label1.Top = 50
Label1.Visible = True
Label1.Width = 200
Label1.WordWrap = True
End Sub

Private Sub Label2_Click()
Label2.BackColor = vbYellow
Label2.ForeColor = vbBlue

End Sub
         

Private Sub CommandButton2_Click()
Label1.Accelerator = 10
Label1.AutoSize = True
Label1.BackColor = vbYellow
Label1.BackStyle = fmBackStyleOpaque
Label1.BorderColor = vbRed
Label1.BorderStyle = fmBorderStyleNone
Label1.Caption = "etichetta1"
Label1.Enabled = True
Label1.Font = monaco
Label1.ForeColor = vbBlue
Label1.Height = 200
Label1.Left = 50
Label1.PicturePosition = fmPicturePositionLeftTop
Label1.SpecialEffect = fmSpecialEffectRaised
Label1.TabIndex = 1
Label1.Tag = "tag inserita"
Label1.TextAlign = fmTextAlignCenter
Label1.Top = 20
Label1.Visible = True
Label1.Width = 200
Label1.WordWrap = True
MsgBox "Label1.Accelerator " & Label1.Accelerator
MsgBox "Label1.AutoSize = True " & Label1.AutoSize
MsgBox "Label1.BackColor = vbyellow " & Label1.BackColor
MsgBox "Label1.BackStyle = fmBackStyleOpaque " & Label1.BackStyle
MsgBox "Label1.BorderColor = vbRed " & Label1.BorderColor
MsgBox "Label1.BorderStyle = fmBorderStyleSingle " & Label1.BorderStyle
MsgBox "Label1.Caption = etichetta1 " & Label1.Caption
MsgBox "Label1.Enabled = True " & Label1.Enabled
MsgBox "Label1.Font = monaco " & Label1.Font
MsgBox "Label1.ForeColor = vbblue " & Label1.ForeColor
MsgBox "Label1.Height = 100 " & Label1.Height
MsgBox "Label1.Left = 100 " & Label1.Left
MsgBox "Label1.PicturePosition = fmPicturePositionLeftTop " & Label1.PicturePosition
MsgBox "Label1.SpecialEffect = fmSpecialEffectSunken " & Label1.SpecialEffect
MsgBox "Label1.TabIndex = 1 " & Label1.TabIndex
MsgBox "Label1.Tag = tag inserita " & Label1.Tag
MsgBox "Label1.TextAlign = fmTextAlignRight " & Label1.TextAlign
MsgBox "Label1.Top = 50 " & Label1.Top
MsgBox "Label1.Visible = True " & Label1.Visible
MsgBox "Label1.Width = 200 " & Label1.Width
MsgBox "Label1.WordWrap = True " & Label1.WordWrap
End Sub

Private Sub CommandButton2_Click()
Label1.Accelerator = 10
Label1.AutoSize = True
Label1.BackColor = vbYellow
Label1.BackStyle = fmBackStyleOpaque
Label1.BorderColor = vbRed
Label1.BorderStyle = fmBorderStyleNone
Label1.Caption = "etichetta1"
Label1.Enabled = True
Label1.Font = monaco
Label1.ForeColor = vbBlue
Label1.Height = 200
Label1.Left = 50
Label1.PicturePosition = fmPicturePositionLeftTop
Label1.SpecialEffect = fmSpecialEffectRaised
Label1.TabIndex = 1
Label1.Tag = "tag inserita"
Label1.TextAlign = fmTextAlignCenter
Label1.Top = 20
Label1.Visible = True
Label1.Width = 200
Label1.WordWrap = True
MsgBox "Label1.Accelerator " & Label1.Accelerator
MsgBox "Label1.AutoSize = True " & Label1.AutoSize
MsgBox "Label1.BackColor = vbyellow " & Label1.BackColor
MsgBox "Label1.BackStyle = fmBackStyleOpaque " & Label1.BackStyle
MsgBox "Label1.BorderColor = vbRed " & Label1.BorderColor
MsgBox "Label1.BorderStyle = fmBorderStyleSingle " & Label1.BorderStyle
MsgBox "Label1.Caption = etichetta1 " & Label1.Caption
MsgBox "Label1.Enabled = True " & Label1.Enabled
MsgBox "Label1.Font = monaco " & Label1.Font
MsgBox "Label1.ForeColor = vbblue " & Label1.ForeColor
MsgBox "Label1.Height = 100 " & Label1.Height
MsgBox "Label1.Left = 100 " & Label1.Left
MsgBox "Label1.PicturePosition = fmPicturePositionLeftTop " & Label1.PicturePosition
MsgBox "Label1.SpecialEffect = fmSpecialEffectSunken " & Label1.SpecialEffect
MsgBox "Label1.TabIndex = 1 " & Label1.TabIndex
MsgBox "Label1.Tag = tag inserita " & Label1.Tag
MsgBox "Label1.TextAlign = fmTextAlignRight " & Label1.TextAlign
MsgBox "Label1.Top = 50 " & Label1.Top
MsgBox "Label1.Visible = True " & Label1.Visible
MsgBox "Label1.Width = 200 " & Label1.Width
MsgBox "Label1.WordWrap = True " & Label1.WordWrap
End Sub

Private Sub CommandButton10_Click()
Label10.SpecialEffect = 3
End Sub

Private Sub CommandButton11_Click()
Label11.SpecialEffect = 6
End Sub

Private Sub CommandButton12_Click()
Label12.SpecialEffect = 6
End Sub


Private Sub CommandButton2_Click()
Label2.BackColor = vbYellow
Label2.BorderColor = vbRed
Label2.BorderStyle = 0
End Sub

Private Sub CommandButton3_Click()
Label3.BackColor = vbYellow
Label3.BorderColor = vbRed
Label3.BorderStyle = 0
Label3.Enabled = True
End Sub

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




Private Sub CommandButton5_Click()
Label5.BackColor = vbYellow
Label5.BorderColor = vbRed
Label5.BorderStyle = 1
Label5.Enabled = True
Label5.BackStyle = 1

End Sub

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

End Sub

Private Sub CommandButton7_Click()
Label7.SpecialEffect = 0
End Sub

Private Sub CommandButton8_Click()
Label8.SpecialEffect = 1
End Sub

Private Sub CommandButton9_Click()
Label9.SpecialEffect = 2
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 CommandButton2_Click()
Label1.Caption = "height=20 width=50"
Label1.BackColor = vbCyan
Label1.Height = 20
Label1.Width = 50

End Sub

Private Sub CommandButton3_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 CommandButton4_Click()
Label2.Caption = "top=holdtop..left=holdleft"
Label2.BackColor = vbRed
Label2.Height = 30
Label2.Width = 100
Label2.Top = holdtop
Label2.Left = holdleft
End Sub

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

End Sub

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

Private Sub CommandButton2_Click()
Label2.Caption = "nome"
Label2.PicturePosition = 1
End Sub

Private Sub CommandButton3_Click()
Label3.Caption = "nome"
Label3.PicturePosition = 2
End Sub

Private Sub CommandButton2_Click()
Label2.BackColor = vbGreen
Label2.PicturePosition = fmPicturePositionBelowLeft
End Sub

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

Private Sub CommandButton4_Click()
Label3.BackColor = vbGreen
Label3.PicturePosition = fmPicturePositionCenter

End Sub

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

Private Sub CommandButton3_Click()
Label1.BackColor = vbRed
Label1.Top = 100
Label1.Move (100)



End Sub

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

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

ritorna