sintassi e gestione proprietà oggetti vari
esci con
vbasintassi.htm


sintesi.ppt

sintesi definizioni varie

Private Sub Check_Click()
Check.Alignment = fmAlignmentRight

Check.BackColor = vbCyan
Check.BackStyle = fmBackStyleOpaque

Check.Caption = "checkbox"
Check.ControlTipText = 1
Check.ForeColor = vbRed
Check.SpecialEffect = fmButtonEffectSunken

Check.Value = 0
Check.Visible = True

Check.AutoSize = True

Check.Enabled = True

Check.Locked = False

Check.TripleState = True

Check.WordWrap = True
Check.Font = times
Rem ControlSource
Rem Picture
Rem PicturePosition
Check.Height = 40
Check.Left = 60
Check.Top = 100
Check.Width = 50
Check.Accelerator = 1
Check.GroupName = 0
Check.HelpContextID = 1
Rem MouseIcon
Rem MousePointer
Check.TabIndex = 1
Check.TabStop = False
Check.Tag = 0
End Sub



Private Sub CommandButton1_Click()
Label1.Visible = True
End Sub

Private Sub CommandButton2_Click()
Label2.Visible = True
End Sub

Private Sub CommandButton3_Click()
Label3.Visible = True
End Sub

Private Sub CommandButton4_Click()
Label1.Visible = False
Label2.Visible = False
Label3.Visible = False
End Sub

Private Sub OptionButton1_Click()
TextBox1.Visible = True
TextBox2.Visible = False
TextBox3.Visible = False
TextBox4.Visible = False
TextBox5.Visible = False
TextBox6.Visible = False
End Sub

Private Sub OptionButton2_Click()
TextBox1.Visible = False
TextBox2.Visible = True
TextBox3.Visible = False
TextBox4.Visible = False
TextBox5.Visible = False
TextBox6.Visible = False
End Sub

Private Sub OptionButton3_Click()
TextBox1.Visible = False
TextBox2.Visible = False
TextBox3.Visible = True
TextBox4.Visible = False
TextBox5.Visible = False
TextBox6.Visible = False
End Sub

Private Sub OptionButton4_Click()
TextBox1.Visible = False
TextBox2.Visible = False
TextBox3.Visible = False
TextBox4.Visible = True
TextBox5.Visible = False
TextBox6.Visible = False

End Sub

Private Sub OptionButton5_Click()
TextBox1.Visible = False
TextBox2.Visible = False
TextBox3.Visible = False
TextBox4.Visible = False
TextBox5.Visible = True
TextBox6.Visible = False
End Sub

Private Sub OptionButton6_Click()
TextBox1.Visible = False
TextBox2.Visible = False
TextBox3.Visible = False
TextBox4.Visible = False
TextBox5.Visible = False
TextBox6.Visible = True
End Sub

Private Sub Tog1_Click()
Tog1.BackColor = vbCyan
Tog1.BackStyle = fmBackStyleOpaque
Tog1.Caption = "toggle"
Tog1.ControlTipText = 1
Tog1.ForeColor = vbRed
Tog1.Value = 0
Tog1.Visible = True
Tog1.AutoSize = True
Tog1.Enabled = True
Tog1.Locked = False
Tog1.TripleState = False
Tog1.WordWrap = True
Tog1.Font = courier
Rem Tog1.ControlSource = 0
Rem Picture
Rem PicturePosition
Tog1.Height = 50
Tog1.Left = 100
Tog1.Top = 20
Tog1.Width = 40
Tog1.Accelerator = 1
Tog1.HelpContextID = 1
Rem MouseIcon
Rem MousePointer
Tog1.TabIndex = 1
Tog1.TabStop = False
Tog1.Tag = 0
End Sub

Private Sub UserForm_Click()

End Sub