📄 12996.html

📁 VB技巧问答10000例 VB技巧问答10000例

💻 HTML

字号:

<html>
  <head>
    <title>谢谢你们的帮助,我把它写出来了,顺便供你们参考</title>
  </head>
  <body bgcolor="#FFFFFF" vlink="#808080">
    <center>
      <h1>谢谢你们的帮助,我把它写出来了,顺便供你们参考</h1>
    </center>
<hr size=7 width=75%>

<hr size=7 width=75%><p>
Posted by <a href="mailto:jonnycjc@mail.ttn.com.tw">Jonny</a> on May 16, 1999 at 00:53:28:<p>
In Reply to: <a href="12967.html">那这样跟二维阵列好像没关系ㄝ :P (无内文)</a> posted by 小翰 on May 15, 1999 at 00:12:23:<p>
Sub Cls_Object(Index As String)<br>' if index = "T" then clear TextBox.Text<br>' if index = "L" then clear Lable.Caption<br>' if index = "LST" OR "C" then clear ListBox or ComboBox<br>' if index = "CHK" OR "O" then clear CheckBox or OptionButton<br>  Dim vtype As String<br>  <br>  For Each Control In Form1.Controls<br>     vtype = TypeName(Control)<br>     If (vtype = "TextBox" And Index = "T") Then<br>        Control.Text = ""<br>     ElseIf vtype = "Label" And Index = "L" Then<br>        Control.Caption = ""<br>     ElseIf (vtype = "ListBox" And Index = "LST") Or (vtype = "ComboBox" And Index = "C") Then<br>        Control.Clear<br>     ElseIf (vtype = "CheckBox" And Index = "CHK") Or (vtype = "OptionButton" And Index = "O") Then<br>        Control.Value = False<br>     End If<br>  Next Control<br>End Sub<p>如果还有更好的方法请告知,感谢你的帮助~
<br>
<br><hr size=7 width=75%><p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 12996-->
</ul><!--end: 12996-->
<br><hr size=7 width=75%><p>

</body></html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -