42.txt

来自「介绍VB里的各种控件的使用方法,窗口控制,图像编程以及OCX等内容,还提供了一个」· 文本 代码 · 共 16 行

禁用窗体上所有控件 

Dim i As Integer 
For i = 0 To Form1.Controls.Count - 1 
Form1.Controls(i).Enabled = False 
Next i 

另一种方法是：

Dim ctrTemp As Control 
For Each ctrTemp In Me.Controls 
ctrTemp.Enabled = False 
Next