『vb』如何让ole控件中途循环？

发布网友 发布时间：2022-04-19 21:04

我来回答

共4个回答

热心网友 时间：2023-07-27 17:39

在你的控制控件的click事件中编写“要控制控件的名称.enable=trun/false”你说的循环可以通过开关控制（即通过一个变量判断应该执行什么代码）
如：
Private Sub Command1_Click()
If Command2.Enabled = False Then Command2.Enabled = True Else Command2.Enabled = False
End Sub
如果想控制多个同样的控件可以把这些控件编组，用index控制，如果是不同控件那只能逐个控制了。

热心网友 时间：2023-07-27 17:39

Private Sub Form_Load()
Text2.Enabled = False
End Sub

Private Sub Text1_Click()
If Text2.Enabled = False Then
Text2.Enabled = True '或更多的
Else
Text2.Enabled = False
End If
End Sub

热心网友 时间：2023-07-27 17:40

Private Sub Command1_Click()
Dim ctl As Control
For Each ctl In Form1
If ctl.Name <> "Command1" Then
ctl.Enabled = Not ctl.Enabled
End If
Next
End Sub

热心网友 时间：2023-07-27 17:41

Dim k As Integer
Private Sub Command1_Click()
Dim ob As Control
For Each ob In Me.Controls
If k = 1 Then
ob.Enabled = False
Else
ob.Enabled = True
End If

Next
k = -k
Command1.Enabled = True
End Sub
Private Sub Form_Load()
k = 1
End Sub
更多VB代码请参阅我的博客：http://hi.baidu.com/zgmg/