📄 19413.html
字号:
<html> <head> <title>AndyLin谢谢了！我已找到解决方法</title> </head> <body bgcolor="#FFFFFF" vlink="#808080"> <center> <h1>AndyLin谢谢了！我已找到解决方法</h1> </center><hr size=7 width=75%><hr size=7 width=75%><p>Posted by 小宛 on September 28, 1999 at 22:57:42:<p>In Reply to: <a href="19266.html">Re: AndyLin是否请您说明白些，我还是不太清楚，谢谢！</a> posted by AndyLin on September 23, 1999 at 20:56:42:<p>: : : : 请问有谁知道功能表的物件集合是什么？我要做一个控制，控制表单开启时的功能表项目的显示与不显示，请问应如何做呢？可否请各位帮帮忙，先谢谢了！<br>: : : : Menu项目：<br>: : : : Test munTest<br>: : : : ......Test1 mnuTest1<br>: : : : ......Test2 mnuTest2<p>: : : : Private Sub Command1_Click()<br>: : : : Dim mnu As Menu<br>: : : : For Each mnu In Form1.Controls '这里错了<br>: : : : Debug.Print mnu.Name<br>: : : : Next<br>: : : : End Sub<p>: : : : 我要的答案是<br>: : : : mnuTest<br>: : : : mnuTest1<br>: : : : mnuTest2<p>: : : 你可能要加上 If TypeOf ... Is ... Then<br>: : : 来判断所取之物件型态才不会发生错误<br>: : : <br>: 因为你已将 mnu 定义为 Menu 而Form1.Controls包括在form1中所有之controls(如 TEXTBOX,COMMANDBOX..),试想将MENU 指定为TEXTBOX 当然会有错误产生 <p><br><br><br><hr size=7 width=75%><p><a name="followups">Follow Ups:</a><br><ul><!--insert: 19413--></ul><!--end: 19413--><br><hr size=7 width=75%><p></body></html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -