我做一个,有一个text,2个button,你自己再改,PrivateSubCommand1_Click()Text1.Locked=FalseText1.Text=""Text1.Text="com1"Text1.Locked=TrueEndSubPrivateSubCommand2_Click()Text1.Locked=FalseText1.Text=""Text1.Text="com2"Text1.Locked=TrueEndSub
按钮的click事件代码:
label1.caption=text1.text
通过这个语句来实现:Me.Label1.Captuon = Me.Text1.Text