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

hyhyali720

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

代码完成了，老师帮忙看看还需要优化不？谢谢

hyhyali720

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

代码完成了，老师帮忙看看还需要优化不？谢谢

hyhyali720

HTbaican 发表于 2023-2-3 09:51
感谢楼主分享！！！

我也是菜鸟一枚，刚刚学习这个东西，觉得这个东西很神奇以后多多向大神们学习

小凡、、、

hyhyali720 发表于 2023-2-3 13:26
代码完成了，老师帮忙看看还需要优化不？谢谢

Private Sub TextBox1_Change()
Dim Mystr As String
Mystr = Frame1.Tag & Frame2.Tag & Frame3.Tag & Frame4.Tag
TextBox1.Text = Mystr
Select Case Mystr
    Case "萝卜牛肉苹果牛奶"
        TextBox2.Text = "套餐1"
    Case "白菜牛肉苹果牛奶"
        TextBox2.Text = "套餐2"
    Case "白菜猪肉苹果牛奶"
        TextBox2.Text = "套餐3"
    Case Else
        TextBox2.Text = "?"
End Selec
End Sub

判断语句被你写复杂了

hyhyali720

小凡、、、 发表于 2023-2-3 14:20
Private Sub TextBox1_Change()
Dim Mystr As String
Mystr = Frame1.Tag & Frame2.Tag & Frame3.Tag & ...

谢谢小凡老师！这样写真的简练太多了，厉害！点赞！！