qqexpactiveform.html

来自「包含大量VB常用函数 大概一百几十个左右 每个函数都有比较详细的说明 希望大家喜」· HTML 代码 · 共 54 行

HTML
54
字号
<html>

<head>
<title>千千VB站 函数方法</title>
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
</head>

<body background="picbkgd.gif" tppabs="picbkgd.gif">

<marquee><b><blink>得到焦点的表单</blink></b></marquee>
<hr>
●如果你的程序是以MDI的方式为诉求,AvtiveForm这个方法将提功你更多的便利。<br>
●适用于VB。<br>
●用法:变量 = 对象.ActiveForm.属性<br>
●用法:对象.ActiveForm.属性 = 资料
<hr>
○VB:
<dl>
  Private Sub Command1_Click()
  <dd>MsgBox Screen.ActiveForm.Name
</dl>
End Sub
<p> 
<dl>
  Private Sub Command1_Click()
  <dd>Screen.ActiveForm.Command1.Caption = &quot;我的窗体得到焦点&quot;
</dl>
End Sub
<p> 
<dl>
  Private Sub Timer1_Timer
  <dd>
    <dl>
      For N = 0 To Forms.Count - 1
      <dd>If Forms(N).hWnd = Screen.ActiveForm.hWnd Then
      <dd>Form1.Label1.Caption = &quot;得到焦点的窗体序号:&quot; 
        &amp; N
    </dl>
    Next
</dl>
End Sub
<p> 
<hr>
<center><a href="exp.html" tppabs="exp.html">[回主页]</a></center><br>

</body>

</html>
 
  
</SCRIPT>       
 

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?