📄 m21.htm
字号:
<html>
<head>
<title>VB教程</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<p align="center"><script src="../../1.js"></script></a>
<body bgcolor="#ffffff" leftmargin="5" topmargin="1" marginheight="5" marginwidth="5">
<div align=center>
<table border=0 cellpadding=0 cellspacing=0 width=680 align="center">
<tbody>
<tr>
<td bgcolor=#000000 height=14>
<div align=center class=H1> 快速更改组控件属性</font> </font> </font></div>
</td>
</tr>
<tr valign=top>
<td class=H1 height=236>
<p align="left"> <font color="#000000" class="unnamed1">来源：www.vbeden.com<br>
<br>
当窗体上有一大堆相同的控件需要同时设置为相同的属性时，你是不是一个一个地处理？如是，这有多麻烦！看一看以下例子或许你会得到启发。本例假定窗体上有若干Line控件，点击按钮"HideLines"时所有Line控件隐藏起来，点击"ShowLines"按钮则全部显現。<br>
<br>
Option Explicit<br>
<br>
Dim HideMe As Boolean '定义用于隐藏与否的布尔变量<br>
<br>
Private Sub HideLine() '自定义隐藏与否函数<br>
Dim c As Control '定义控件集合变量<br>
For Each c In Controls '注意：用复数<br>
If TypeOf c Is Line Then '若控件类型为Line控件<br>
Select Case HideMe '按HideMe变量的真假判断<br>
Case True '为真则<br>
c.Visible = False '所有Line控件不可见<br>
Case False '反之则<br>
c.Visible = True '可见<br>
End Select<br>
End If<br>
Next c '下一个Line控件<br>
End Sub<br>
<br>
'显示所有Line控件<br>
Private Sub cmdShow_Click()<br>
HideMe = False<br>
HideLine<br>
End Sub<br>
<br>
'隐藏所有Line控件<br>
Private Sub cmdHide_Click()<br>
HideMe = True<br>
HideLine<br>
End Sub<br>
<br>
'初始化程序<br>
Private Sub Form_Load() <br>
cmdShow.Caption = "ShowLines"<br>
cmdHide.Caption = "HideLines"<br>
End Sub <br>
</font> <br>
</p>
</td>
</tr>
</table>
</div>
<p align="center"><a href="../../pian/vb.htm">回首页</a>
<p align="center"><script src="../../2.js"></script></a>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -