VB中为什么点击按钮命令没有反应
代码是这样的
Private Sub Form_Load()
If 第一页.Option1.Value = True Then kl = 11: kb = 11: kh = 10
If 第一页.Option2.Value = True Then kl = 9: kb = 9: kh = 8
If 第一页.Option3.Value = True Then kl = 10: kb = 10: kh = 9
If 第一页.Option4.Value = True Then kl = 8: kb = 8: kh = 7
If 第一页.Option5.Value = True Then kl = 7: kb = 7: kh = 6
第六页.Text1.Text = Val(第三页.Text1.Text) * kl
第六页.Text2.Text = Val(第三页.Text2.Text) * kb
第六页.Text3.Text = Val(第三页.Text3.Text) * kh
End Sub
不好意思,不是没反应,是提示说找不到方法或数据成员
VB中为什么点击按钮命令没有反应 代码是这样的
答案:3 悬赏:0
解决时间 2021-04-09 13:15
- 提问者网友:说不出醉人情话
- 2021-04-09 07:20
最佳答案
- 二级知识专家网友:随心随缘不随便
- 2021-04-09 08:44
把代码放到命令按钮的click事件中去
Private Sub Command1_Click()
If 第一页.Option1.Value = True Then kl = 11: kb = 11: kh = 10
If 第一页.Option2.Value = True Then kl = 9: kb = 9: kh = 8
If 第一页.Option3.Value = True Then kl = 10: kb = 10: kh = 9
If 第一页.Option4.Value = True Then kl = 8: kb = 8: kh = 7
If 第一页.Option5.Value = True Then kl = 7: kb = 7: kh = 6
第六页.Text1.Text = Val(第三页.Text1.Text) * kl
第六页.Text2.Text = Val(第三页.Text2.Text) * kb
第六页.Text3.Text = Val(第三页.Text3.Text) * kh
End Sub
Private Sub Command1_Click()
If 第一页.Option1.Value = True Then kl = 11: kb = 11: kh = 10
If 第一页.Option2.Value = True Then kl = 9: kb = 9: kh = 8
If 第一页.Option3.Value = True Then kl = 10: kb = 10: kh = 9
If 第一页.Option4.Value = True Then kl = 8: kb = 8: kh = 7
If 第一页.Option5.Value = True Then kl = 7: kb = 7: kh = 6
第六页.Text1.Text = Val(第三页.Text1.Text) * kl
第六页.Text2.Text = Val(第三页.Text2.Text) * kb
第六页.Text3.Text = Val(第三页.Text3.Text) * kh
End Sub
全部回答
- 1楼网友:随心随缘不随便
- 2021-04-09 11:02
控件相对应事件没添加代码~
常见是控件名和代码中的不一致
- 2楼网友:末路丶一枝花
- 2021-04-09 09:28
"第一页" 是个什么东西?是个窗体吗。。。
是窗体你就看看它上面有没有Option1,2,3 这些控件,要是不是窗体就没必要加上"第一页."
我要举报
如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
推荐资讯