📄 3068.html

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

💻 HTML

字号:

<html>
  <head>
    <title>没这么难吧!</title>
  </head>
  <BODY BACKGROUND="" BGCOLOR="white" TEXT="black" LINK="red" VLINK="#808080" ALINK="">
    <center>
      <h1>没这么难吧!</h1>
    </center>

<HR><p>
Posted by <a href="mailto:yfwu@iname.com">小吴</a> on June 03, 1998 at 00:26:01:<p>
In Reply to: <a href="3061.html"><b>如何利用工作区移动视窗?</b></a> posted by 阿强 on June 02, 1998 at 17:28:13:<p>
1. 你的第一个问题只要用下面这段程式就行了!<p>Private Declare Function SendMessage Lib "User32" Alias "SendMessageA" _<br>　(ByVal hWnd As Long, ByVal wMsg As Long, _<br>　 ByVal wParam As Long, lParam As Any) As Long<br>Private Declare Sub ReleaseCapture Lib "User32" ()<br>　  <br>Const WM_NCLBUTTONDOWN = &HA1<br>Const HTCAPTION = 2<br>　  <br>Private Sub Form_MouseMove(Button As Integer, Shift As Integer, _<br>　　　　　　   X As Single, Y As Single)<br>　Dim lngReturnValue As Long<br>　If Button = 1 Then<br>　　ReleaseCapture<br>　　lngReturnValue = SendMessage(hWnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&)<br>　End If<br>End Sub<p>2. 我建议你直接使用 ShellExecute(Ex) API 来执行你要的功能。
<br>
<p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 3068-->
</ul><!--end: 3068-->
<br><HR><p>

</body></html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -