⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 qqexpactivecontrol.html

📁 包含大量VB常用函数 大概一百几十个左右 每个函数都有比较详细的说明 希望大家喜欢它啦
💻 HTML
字号:
🔍 
<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>
●适用于VB。<br>
●用法：变量 = 对象.ActiveControl.属性<br>
●用法：对象.ActiveControl.属性 = 资料
<hr>
○VB：
<dl>
  Private Sub Command1_Click()
  <dd>MsgBox Form1.ActiveControl.Name
</dl>
End Sub
<p>　
<dl>
  Private Sub Command1_Click()
  <dd>MsgBox Screen.ActiveControl.Left &amp; &quot;:&quot; &amp; 
    Screen.ActiveControl.Top
</dl>
End Sub
<p>　
<dl>
  Private Sub Command1_Click()
  <dd>Me.ActiveControl.Caption = &quot;我得到焦点&quot;
</dl>
End Sub
<p>　
<dl>
  Private Sub Timer1_Timer
  <dd>Me.Caption = &quot;Focus:&quot; &amp; Screen.ActiveControl.Name
</dl>
End Sub
<p>　
<hr>
<center><a href="exp.html" tppabs="exp.html">[回主页]</a></center><br>

</body>

</html>

⌨️ 快捷键说明

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