问, ctype 函数的使用

ykwang 2004-10-04 11:28:16

我想遍历 FORM1中的 TEXTBOX 控件.为什么如下不行?
For a = 1 To 11
CType(Me.Controls("textbox" & a), TextBox).Text = ""
Next
说是无法转换到 integer 型.

...全文

137 8 打赏收藏转发到动态举报

写回复

用AI写文章

8 条回复

切换为时间正序

请发表友善的回复…

发表回复

ykwang 2004-10-05

打赏
举报

但是只要写一遍,以后控制就方便了

leezjs 2004-10-04

打赏
举报

CType(Me.Controls("textbox" & a.Tostring()), TextBox).Text

dofly 2004-10-04

打赏
举报

你还不如直接写方便了
你算一下，代码也不少了呀

ykwang 2004-10-04

打赏
举报

终于找到好办法了:
dim text(4) as control
text(0)=textbox1
text(1)=textbox2
text(2)=textbox3
text(3)=textbox4
for a=0 ro 4
text(a).text=""
next
就可以了谢谢大家

dofly 2004-10-04

打赏
举报

For Each O as Object In Me.Controls
if Typeof O is TextBox and o.name = "TextBox1" then
.......
End if
Next

ykwang 2004-10-04

打赏
举报

那如何遍历里面的TEXTBOX1-TEXTBOX5 ?

水如烟 2004-10-04

打赏
举报

至于你现在这种用法的出错原因，是Me.Controls(Index)只接受控件索引值，不接受控件名

水如烟 2004-10-04

打赏
举报

你的思路错了。
Me.Controls里头的控件是好种多样的，应该是用它的基类遍历，这个基类就是Control
遍历过程中来获取它的类型,如果是TextBox，才用CType.举例如下：
Dim Ctr As Control
For Each Ctr In Me.Controls
If TypeOf Ctr Is TextBox Then
CType(Ctr, TextBox).Text = ""
End If
Next

ctype.h里的函数,用于c，c++学习爱好者