点击文本框再在另一个文本框获取相应的值

yangqianming

需求：1.点击题目下面文本框，在题目括号文本框（如：答1）里面出现该文本第一个大写字母（如：点击A1在答1里面出现A）。
2.当选好后点击提交，在得分文本框出现总分。
3.点击再做一次文本框，让题目括号和得分文本框的获取的数据清空。
请大佬们出手相助，万分感谢！
求助.rar (30.66 KB, 下载次数: 10)

2022-11-23 19:47 上传

点击文件名下载附件

582766

用PPT做吗？？？？

yangqianming

582766 发表于 2022-11-23 20:38
用PPT做吗？？？？

是的田PPT做

tennicse

PPT里面不要用文本框一类，一点就翻页了。要用ActiveX控件。


代码这样写



Private Sub cmd1A_Click()
    lbl1.Caption = "A"
End Sub

Private Sub cmd1B_Click()
    lbl1.Caption = "B"
End Sub

Private Sub cmd1C_Click()
    lbl1.Caption = "C"
End Sub

Private Sub cmd2A_Click()
    lbl2.Caption = "A"
End Sub

Private Sub cmd2B_Click()
    lbl2.Caption = "B"
End Sub

Private Sub cmd2C_Click()
    lbl2.Caption = "C"
End Sub

Private Sub cmdReset_Click()
    lbl1.Caption = ""
    lbl2.Caption = ""
End Sub

Private Sub cmdSubmit_Click()
    lblAnswer.Caption = "1." & lbl1.Caption & ", 2." & lbl2.Caption
End Sub

yangqianming

tennicse 发表于 2022-11-24 10:28
PPT里面不要用文本框一类，一点就翻页了。要用ActiveX控件。

谢谢！用控件不能做动画了，或许可以但我一点也不懂，想制作成小游戏让孩子们玩玩，提高积极性。

yangqianming

我已经解决了两个问题只差分数文本框不知怎么写了，请伸援手，谢谢！

求得分.rar (33.8 KB, 下载次数: 8)

2022-11-24 17:09 上传

点击文件名下载附件

tennicse

yangqianming  2022-11-24 17:09
длл

回复怎么会有乱码啊。你能看明白吧，大概就这个意思

Sub ()
    Dim score As Integer
    score = 0
    If ActivePresentation.Slides(1).Shapes("1").TextEffect.Text = "C" Then score = 20
    If ActivePresentation.Slides(1).Shapes("2").TextEffect.Text = "B" Then score = score + 20
    ActivePresentation.Slides(1).Shapes("÷").TextEffect.Text = score & "分"
End Sub

yangqianming

tennicse 发表于 2022-11-28 10:44
回复怎么会有乱码啊。你能看明白吧，大概就这个意思

Sub ()

谢谢！这个很好，我粘贴过去能行。真心感谢！