我举个例子,看代码 Option ExplicitPrivate Sub Check1_Click() Text1.Text = Check1.Value End SubPrivate Sub Command1_Click() Check1.Value = Text1.Text End SubPrivate Sub Command2_Click() Option1.Value = Text2.Text End SubPrivate Sub Command3_Click() VScroll1.Value = Text3.Text End SubPrivate Sub Form_Load() Command1.Caption = "设置复选框的值" Command2.Caption = "设置单选框的值" Command2.Caption = "设定滚动条的值" End SubPrivate Sub Option1_Click() Text2.Text = Option1.Value End SubPrivate Sub Option2_Click() Text2.Text = Option1.Value End SubPrivate Sub VScroll1_Change() Text3.Text = VScroll1.Value End Sub注意:实际使用不要这么写,这样不严密,我仅仅是让你理解value的用法
Option ExplicitPrivate Sub Check1_Click()
Text1.Text = Check1.Value
End SubPrivate Sub Command1_Click()
Check1.Value = Text1.Text
End SubPrivate Sub Command2_Click()
Option1.Value = Text2.Text
End SubPrivate Sub Command3_Click()
VScroll1.Value = Text3.Text
End SubPrivate Sub Form_Load()
Command1.Caption = "设置复选框的值"
Command2.Caption = "设置单选框的值"
Command2.Caption = "设定滚动条的值"
End SubPrivate Sub Option1_Click()
Text2.Text = Option1.Value
End SubPrivate Sub Option2_Click()
Text2.Text = Option1.Value
End SubPrivate Sub VScroll1_Change()
Text3.Text = VScroll1.Value
End Sub注意:实际使用不要这么写,这样不严密,我仅仅是让你理解value的用法
是不是滚运行窗体的时候,滚动条指在最中间呀