清除窗体上所有编辑框和下拉框的内容最简单的方法是什么？

Question

太多 clear 不起！！！！

Answer 1

用集合来做.
窗体上所有的控件都属于一个集合叫controls
用for each next循环就可以很简单的清除所有的文本,代码如下:dim ctl as control
for each ctl in controls
   if typeof ctl is textbox or typeof clt is combobox then
      ctl.text=""
   end if
nextok,祝好运!

Answer 2

下面的程序用于清空窗体上所有编辑框的内容：
void __fastcall TForm1::Button1Click(TObject *Sender)
{
TEdit *edt;
for(int i = 0;i<=this->ComponentCount - 1;i++)
 {
   if(dynamic_cast<TEdit *>(this->Components[i]))
    {
    edt = (TEdit*)this->Components[i];
    edt->Text = "";
    }
 }
}

Answer 3

我倒 ，怎么是vb版啊,我还以为是c++builder呢，报歉

Answer 4

rainy_chan(笑笑兄) 的方法最好

Answer 5

to rainy_chan(笑笑兄) 为什么combobox 清除不了呢？？？？

Answer 6

是不是你的combobox属性设的不对呀？

Answer 7

combobox可以的
我试过的
不行话还有别的方法手工将你想操作的控件添加到一个集合中
dim a as new collection'事例化一个集合类型的对象
a.add text1'调用集合的add方法，用于将一个对象或者控件添加到集合中，参数为对象或者控件名称
a.add combo1
for i=1 to a.count'count属性表示集合内成员的数量
　　a.item(i).text=""'item属性用来表示集合内的成员，参数为集合的索引，注意：初始索引为1
next这样就ok了,用这种方法比上次的功能更强，通过索引对控件进行操作
注：collection 对象的属性方法很少一共就4个
.add方法－向集合中添加一个对象，第一参数为对象名称，必填，其它可选择
.item方法－返回对成员的引用，用索引来指明具体的对象a.item(i).text（该成员的属性或方法）
.count属性－得到集合成员的数量
.remove方法－把对象丛集合中去除，通过索引来指明a.remove(i)