我调试的是VBA,应该VB也一样吧。
界面上有个MultiPage1容器,容器内有textbox控件
点击按钮btnReset时把所有textbox控件值设为""。Private Sub btnReset_Click()
Dim txt As Control
'Set txt = txtTempC '怎么txt等于txtTempC.Text值???
For Each txt In MultiPage1.SelectedItem.Controls
If TypeOf txt Is TextBox Then
'为什么就跳不到这一步?
txt.Text = ""
End If
Next
End Sub哪位老师帮帮我,谢谢。
界面上有个MultiPage1容器,容器内有textbox控件
点击按钮btnReset时把所有textbox控件值设为""。Private Sub btnReset_Click()
Dim txt As Control
'Set txt = txtTempC '怎么txt等于txtTempC.Text值???
For Each txt In MultiPage1.SelectedItem.Controls
If TypeOf txt Is TextBox Then
'为什么就跳不到这一步?
txt.Text = ""
End If
Next
End Sub哪位老师帮帮我,谢谢。
解决方案 »
- WinHTTP5.dll 问题
- 求助!怎样控制打印机的退纸?
- 有没有办法在datagrid的某列选中的时候执行一个事件?
- 哪里有activebar下载啊,我要免费的。
- 讨论一下:我们这些还在用VB6的人还有必要用VB.net吗?
- 如何设置VB程序的小图标
- 高分寻求帮助!!!
- 请问Unlocker的功能用VB怎么实现?(有些文件无法删除的时候,用它解除关联,然后就可以删除)
- 如何提取打印对象....help~~~~~~~~~~~
- 急切询问:VB中ListBox控件的用法
- about vb5 source code reopen in vb6 's error
- 在线等待,VB里一行字符以txt文件形式保存在指定路径的本地磁盘上?
容器上的控件不能通过容器来遍历,其上的控件不是从属于容器,而是从属于parentPrivate Sub btnReset_Click()
Dim txt As Control
'Set txt = txtTempC '怎么txt等于txtTempC.Text值???
For Each txt In Controls
if txt.container is MultiPage1.SelectedItem then'此处,不知道是用这样还是应该使用if txt.container is MultiPage1 then'
If TypeOf txt Is TextBox Then txt.Text = ""
End If
end if
Next
End Sub
If TypeOf txt Is TextBox Then
改成
If TypeOf txt Is MSForms.TextBox Then
即可