菜鸟求助：Frame、OptionButton赋值TextBox！！

3190496160

hyhyali720 发表于 2023-2-1 14:54
谢谢您的回复！
我的意思是不要“CommandButton”按钮，点OptionButton的时候结果就被选在TextBox里显示

看8楼附件的效果

小凡、、、

Sub boxstext()
Dim Mystr As String
Mystr = Frame1.Tag & Frame2.Tag & Frame3.Tag & Frame4.Tag
TextBox1.Text = Mystr
If Mystr = "萝卜牛肉苹果牛奶" Then
TextBox2.Text = "套餐1"
Else
TextBox2.Text = ""
End If
End Sub

按钮点击事件call

hyhyali720

小凡、、、 发表于 2023-2-1 14:58
Sub boxstext()
Dim Mystr As String
Mystr = Frame1.Tag & Frame2.Tag & Frame3.Tag & Frame4.Tag

谢谢您的回复！
我的意思是不需要按钮（去除按钮标志），点击OptionButton后结果直接显示在TextBox

小凡、、、

hyhyali720 发表于 2023-2-1 15:12
谢谢您的回复！
我的意思是不需要按钮（去除按钮标志），点击OptionButton后结果直接显示在TextBox

所有的OptionButton点击事件call一次这个sub呀，也没有让你点按钮

hyhyali720

3190496160 发表于 2023-2-1 14:54
以此为准

如果一个Frame中只能选一个OptionButton值显示在textbox里，代码怎么修改呢？

您写的有出现2次的

hyhyali720

小凡、、、 发表于 2023-2-1 15:31
所有的OptionButton点击事件call一次这个sub呀，也没有让你点按钮

好的好的，您的代码看起来是最精简的，厉害！！！

因为刚刚学习，不是很明白，如果方便的话您回一个附件就好了

3190496160

hyhyali720 发表于 2023-2-1 15:35
如果一个Frame中只能选一个OptionButton值显示在textbox里，代码怎么修改呢？

您写的有出现2次的

这样要求，你在一楼中说了吗？？？

hyhyali720

3190496160 发表于 2023-2-1 17:10
这样要求，你在一楼中说了吗？？？

不好意思！可能刚刚学习，意思表达不好

hyhyali720

感谢两位大神的指导！今天终于完美解决。送上掌声和鲜花！！！

HTbaican

感谢楼主分享！！！