📄 4376.html

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

💻 HTML

字号:

<html>
  <head>
    <title>用Mouse移动没有TitleBar的Form-(2)</title>
  </head>
  <body bgcolor="#FFFFFF" vlink="#808080">
    <center>
      <h1>用Mouse移动没有TitleBar的Form-(2)</h1>
    </center>
<hr size=7 width=75%>

<hr size=7 width=75%><p>
Posted by Bomber on August 04, 1998 at 22:41:36:<p>
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)<br>   f = X: g = Y<br>End Sub<br>　　我在 心得笔记中有看到该标题，是用ＡＰＩ做的，恰巧我这几天也刚完成<br>所以贴出来与大家分享，不是用ＡＰＩ函式做的，只是用很普通的MOUSE事件，<br>程式并不是完美的，但也能作出灌有CPLUS后表单的移动方式．．．，目前的缺<br>点是移动太快会产生残像，我想这和电脑的速度有些关系吧！？也或许是程式写的<br>不够好，总之希望各位前辈批评指教．．．<p>Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)<br>   f = X: g = Y<br>End Sub<p>Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)<br>If Button = 1 Then<br>   h = X: i = Y<br>   j = h - f: k = i - g<br>   Form1.Top = Form1.Top + k<br>   Form1.Left = Form1.Left + j<br>End If<br>End Sub<br>
<br>
<br><hr size=7 width=75%><p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 4376-->
</ul><!--end: 4376-->
<br><hr size=7 width=75%><p>

</body></html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -