20714.html
来自「VB技巧问答10000例,是一个教程」· HTML 代码 · 共 23 行
HTML
23 行
<html> <head> <title>Re: 请问如何将一个按钮群组的enabled=false</title> </head> <body bgcolor="#FFFFFF" vlink="#808080"> <center> <h1>Re: 请问如何将一个按钮群组的enabled=false</h1> </center><hr size=7 width=75%><hr size=7 width=75%><p>Posted by <a href="mailto:balor@en.lit.edu.tw">balor</a> on October 27, 1999 at 23:14:15:<p>In Reply to: <a href="20685.html">Re: 请问如何将一个按钮群组的enabled=false</a> posted by George on October 27, 1999 at 12:31:27:<p>: : 请问如何将一个按钮群组的enabled=false<br>: : 除了用回圈的方式以外<br>: : 还有其他的方法吗<br>: : 谢谢<p>: 你可写一支专门让控制项的enabled=true or false<br>: 每次只要你呼叫这支程式,并把想改变的控制项名称<br>: 传入,如此可弹性运用<p>这是我遇到此问题的解决方法...<br>如果您有更好的方法请您mail给我!!!<p>'Command = True 表示要将FrameX以及在FrameX上的控制项全部 Enable<br>'若为False则Disable<br>'FrameX 为要处理的Frame<br>'FormX 为FrameX所在的表单<br>Public Function Control_Frame(Command As Boolean, FrameX As Frame, FormX As Form)<br>Dim TempObject As Object<br>Dim TempString As String<br>If Command = True Then<br> FrameX.Enabled = True<br>Else<br> FrameX.Enabled = False<br>End If<br>On Error Resume Next<br> For Each TempObject In FormX.Controls<br> TempString = ""<br> TempString = TempObject.Container<br> If TempString = FrameX.Caption Then<br> If Command = True Then<br> TempObject.Enabled = True<br> Else<br> TempObject.Enabled = False<br> End If<br> End If<br> Next<br>End Function<br><br><br><hr size=7 width=75%><p><a name="followups">Follow Ups:</a><br><ul><!--insert: 20714--></ul><!--end: 20714--><br><hr size=7 width=75%><p></body></html>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?