Question

vb简单编程，选中option1，text显示option赋的值

分别有option1 option2 option3等 选中option1 text里面显示option1赋的值，并且自动复制，也就是点击option1后，text里面显示option1赋的值，而且可以直接粘贴到别的地方，不用手动复制；选中option2 text里面显示option2赋的值.，并且自动复制
谢谢

Answer 1

Private Sub Option1_Click()
Text1.Text = Option1.Caption
Clipboard.SetText Option1.Caption
End Sub
Private Sub Option2_Click()
Text1.Text = Option2.Caption
Clipboard.SetText Option2.Caption
End Sub
Private Sub Option3_Click()
Text1.Text = Option3.Caption
Clipboard.SetText Option3.Caption
End Sub
有问题再来问我。

追问

hi 感谢你，还有一个功能没有实现哦，就是复制的功能，点击之后复制

追答

哦，丢了一个语句。下面的，ok了。
Option Explicit
Private Sub Option1_Click()
Text1.Text = Option1.Caption
Clipboard.Clear
Clipboard.SetText Option1.Caption
End Sub
Private Sub Option2_Click()
Text1.Text = Option2.Caption
Clipboard.Clear
Clipboard.SetText Option2.Caption
End Sub
Private Sub Option3_Click()
Text1.Text = Option3.Caption
Clipboard.Clear
Clipboard.SetText Option3.Caption
End Sub