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

发布网友发布时间：2023-09-18 03:49

共3个回答

热心网友时间：2023-09-22 12:11

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

热心网友时间：2023-09-22 12:11

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

热心网友时间：2023-09-22 12:12

Dim i As Control

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

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com