【求教】vb 中，如何批量设定控件textbox的属性

#2

zurreehom2015-05-04 10:56

以前在VBA中可以
Dim i, n As Integer
n = 13

For i = 1 To n

With UserForm2.Controls("textbox" & i)
            .Enabled = True
            .BackColor = &H8000000F
            .BackStyle = 1
            .BorderColor = &H8000000F
            .BorderStyle = 1
            .ForeColor = &HFF0000
            .SpecialEffect = fmSpecialEffectFlat
            .Locked = True
End With

Next i

但现在想用vb的话就不行了。

#3

lianyicq2015-05-04 11:10

可以这样用
Private Sub Form_Load()
Dim i As Integer
For i = 1 To 3
With Form1.Controls("Text" & i)
            .Enabled = True
            .BackColor = &H8000000F
           ' .BackStyle = 1 VB文本框没有这个属性
           ' .BorderColor = &H8000000F VB文本框没有这个属性
            .BorderStyle = 1
            .ForeColor = &HFF0000
            '.SpecialEffect = fmSpecialEffectFlat VB文本框没有这个属性
            .Locked = True
End With
当然，你还可以用控件数组。
Next i
End Sub

#4

zurreehom2015-05-04 13:02

回复 3楼 lianyicq

可是在写代码时，textbox是没有locked的属性的。~~~而用这种control表述的时候，Readonly也没办法起作用。不知问题出在哪里。
如果Form1.TextBox1.ReadOnly = True 这样直接表述，可以的。可是用了循环，就没有Readonly的属性了。

[ 本帖最后由 zurreehom 于 2015-5-4 13:05 编辑 ]

#5

lianyicq2015-05-04 14:19

回复 4楼 zurreehom

VB下的textbox没有locked属性?
在哪个环境下文本框有ReadOnly属性?可以用Form1.TextBox1.ReadOnly = True
你该不是用.net吧.这是VB6论坛

[ 本帖最后由 lianyicq 于 2015-5-4 14:21 编辑 ]

#6

renxiaoyao362015-05-04 20:56

lianyicq版主说的对
另外，干脆用控件数组不得了
for i=1 to 你的控件量
text(i).xxx=xxx
text(i).xxx=xxx
xxx自己补

#7

zurreehom2015-05-05 08:37

回复 5楼 lianyicq

呃~有这个可能，因为我用的vs2013

【求教】vb 中，如何批量 设定控件textbox的属性