Question

Visual Basic6.0 设置窗口所有文本框属性

请问朋友:在VB中如何一次性设置窗体所有某个控件的某个属性,达到统一的结果!

比如我有一个From1窗体,里面有10个(100个)文本框控件,假如文本框名字默认text1,text2,text3...text10(text100),我想一次性快速设置这10(100)个文本框的字体大小都是:13号,字体都是:黑体,等属性.

我的要求是简单,不要写太多的代码.
我知道一个方法是写一个文本框控件函数,内容是设置文本框属性代码,再让控件调用此文本框控件函数.
我觉得还不是够理想,如果控件很多,调用语句也还是要写很多.

有没有办法实现,如何实现?知道的朋友麻烦给我讲讲,谢谢!

Answer 1

For i=0 to 100
Text1(i).Fontsize=13
Text1(i).Fontname="黑体"
Next
这100个text框你就用数组控件，复制粘贴一个text框的时候会提示你是否创建text控件数组。选择是。然后看text1就变为text1（0）了，然后以此复制，产生text（0）~text（100）。

Answer 2

用控件数组
dim i as integer
for i=0 to 100
text1(i).fontsize=13
text1(i).fontname="黑体"
next

Answer 3

Dim i As Control

For Each i In Controls
If TypeName(i) = "TextBox" Then
i.FontSize = "13"
i.FontName = "黑体"
End If
Next