在窗体控件循环时怎么判断是不是文本框?

兰色幻想

<p>要求:</p><p>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <font color="#f70909">清空窗体中所有文本框的值. 该怎么编写?</font></p><p>注: </p><p>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 1<font color="#0f0fce">、文本框的名称不一定是textbox+数字</font></p><p>&nbsp;</p><p>原来兰色发过判断对象类型的贴子，大家还记得不？</p>

hhzjxss

自己不会写，兰版书上有示例，没看收还真不会写！[em04]

hai

买了还没看!

lllllllll

一点不懂[em03][em03]

兰色幻想

我上次发贴子时,大家都跟贴"学习",这么快就忘了哈

lllllllll

<p>猴子掰玉米[em04][em04]</p>

Luckyguy2008

Sub ClearTextbox() <br/>Dim temp As Object<br/>For Each temp In UserForm1.Controls<br/>If TypeName(temp) = "TextBox" Then<br/>temp.Text = ""<br/>End If<br/>Next<br/>End Sub

[此贴子已经被作者于2008-2-14 20:19:09编辑过]

兰色幻想

<div class="msgheader">QUOTE:</div><div class="msgborder"><b>以下是引用<i>Luckyguy2008</i>在2008-2-14 20:13:00的发言：</b><br/>Sub ClearTextbox() <br/>Dim temp As Object<br/>For Each temp In UserForm1.Controls<br/>If <font color="#ee0000">TypeName(</font>temp) = "TextBox" Then<br/>temp.Text = ""<br/>End If<br/>Next<br/>End Sub<br/></div><p><font color="#e73408" size="6">Good!!</font></p>[em17]

[此贴子已经被作者于2008-2-14 20:22:21编辑过]

hhzjxss

<div class="msgheader">QUOTE:</div><div class="msgborder"><b>以下是引用<i>兰色幻想</i>在2008-2-14 20:22:00的发言：</b><br/><div class="msgheader">QUOTE:</div><div class="msgborder"><b>以下是引用<i>Luckyguy2008</i>在2008-2-14 20:13:00的发言：</b><br/>Sub ClearTextbox() <br/>Dim temp As Object<br/>For Each temp In UserForm1.Controls<br/>If <font color="#ee0000">TypeName(</font>temp) = "TextBox" Then<br/>temp.Text = ""<br/>End If<br/>Next<br/>End Sub<br/></div><p><font color="#e73408" size="6">Good!!</font></p>[em17]</div><p>&nbsp;</p><p>再学习一次！</p><p>Sub ClearTextbox() <br/>&nbsp;&nbsp; Dim temp As Object<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;For Each temp In UserForm1.Controls<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If <font color="#ee0000">TypeName(</font>temp) = "TextBox" Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;temp.Text = ""<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Next<br/>End Sub<br/></p>