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