窗体上有多样多个控件 有没有什么语句能使它们一下都回到原始状态

lllllllll

写通讯簿时想到的 就是都"" 或false

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

lllllllll

偶用的办法是分别循环 好麻烦

lllllllll

再解释一下 就是那些控件 该输入的已经输入了 该选择的已经选择了 ...

有没有什么办法 使它们一下都回到开始(或空白或没有选择...)

兰色幻想

QUOTE:

以下是引用lllllllll在2008-2-14 20:54:00的发言：

再解释一下 就是那些控件 该输入的已经输入了 该选择的已经选择了 ...

有没有什么办法 使它们一下都回到开始(或空白或没有选择...)

Dim x As Integer
On Error Resume Next
For x = 1 To Controls.Count
  Me.Controls(x) = ""
Next x

 

lllllllll

可以 谢谢兰版！！

不过有个问题 在通讯簿中试验发现 代码对第一个文本框无效

laosanjie

QUOTE:

以下是引用兰色幻想在2008-2-14 22:42:00的发言：

QUOTE:

以下是引用lllllllll在2008-2-14 20:54:00的发言：

再解释一下 就是那些控件 该输入的已经输入了 该选择的已经选择了 ...

有没有什么办法 使它们一下都回到开始(或空白或没有选择...)

Dim x As Integer
On Error Resume Next
For x = 1 To Controls.Count
  Me.Controls(x) = ""
Next x

 

学习一下！[em23][em23]

hhzjxss

QUOTE:

以下是引用laosanjie在2008-2-14 23:57:00的发言：

QUOTE:

以下是引用兰色幻想在2008-2-14 22:42:00的发言：

QUOTE:

以下是引用lllllllll在2008-2-14 20:54:00的发言：

再解释一下 就是那些控件 该输入的已经输入了 该选择的已经选择了 ...

有没有什么办法 使它们一下都回到开始(或空白或没有选择...)

Dim x As Integer
On Error Resume Next
For x = 1 To Controls.Count
  Me.Controls(x) = ""
Next x

 

学习一下！[em23][em23]

先学习一下，下次不会再来学二下！