科技行者

行者学院 转型私董会 科技行者专题报道 网红大战科技行者

知识库

知识库 安全导航

至顶网软件频道基础软件窗体迁移大法

窗体迁移大法

  • 扫一扫
    分享文章到微信

  • 扫一扫
    关注官方公众号
    至顶头条

有很多软件为了实现特殊的显示效果,采用非矩形的窗体,而这些窗体往往没有标题栏。想要移动一个没有标题栏的窗口是不那么容易的。下面我介绍两种在VB中采取不同原理的方法移动一个没有标题栏的窗口。

作者:徐立伟 来源:soft6 2008年5月15日

关键字: 迁移 窗体 VB vb.net Windows

  • 评论
  • 分享微博
  • 分享邮件
有很多软件为了实现特殊的显示效果,采用非矩形的窗体,而这些窗体往往没有标题栏。想要移动一个没有标题栏的窗口是不那么容易的。下面我介绍两种在VB中采取不同原理的方法移动一个没有标题栏的窗口。

  方法一

  这种方法是在窗体的MouseDown、MouseUp和MouseMove等事件的处理过程中添加代码,实现在鼠标左键按下后移动时,改变窗体的Left和Top属性,实现移动无标题栏的窗体。

  进入VB,把窗体Form1的BorderStyle属性设置为0-None(无标题栏),再窗体上添加一个ButtonCommand组件,用来关闭程序。代码如下:

  Private Type POINT

   X As Single

   Y As Single

  End Type

  Dim FormP As POINT

  ''记录窗体原始位置

  Dim MouseP As POINT

  ''记录鼠标按下时的位置

  Dim MouseLButtonDown As Boolean

  ''记录鼠标左键是否按下

  Private Sub Command1_Click()

   End ''退出程序

  End Sub

  Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

   FormP.X = Form1.Left

  ''记下窗体原始坐标位置

   FormP.Y = Form1.Top

   MouseP.X = X

  ''记下鼠标按下时的位置

   MouseP.Y = Y

   If Button = 1 Then

   MouseLButtonDown = True

  ''鼠标左键按下

   End If

  End Sub

  Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

   If MouseLButtonDown Then

   Form1.Left = FormP.X + (X - MouseP.X) ''移动窗体

   Form1.Top = FormP.Y + (Y - MouseP.Y)

   End If

  End Sub

  Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

   MouseLButtonDown = False

  ''鼠标左键弹起

  End Sub

  上述方法不是很完善,制作出的窗体被拖动时,窗体会随鼠标的移动而移动。而在默认的Windows设置中拖动窗体时,被拖动的窗体不会随窗体的移动而移动,随窗体移动的仅是一个与窗体形状、大小一样的虚框,只有释放鼠标后,窗体才会移动到释放鼠标时虚框的所在处。要实现这种效果,请看第二种方法。


 

[下一页]


 

  方法二

  这种方法通过消息的发送实现移动无标题窗体。当鼠标按下、移动或释放时,将鼠标在窗体上按下的消息(消息值为HTCAPTION)发出,就可以拖动窗体了。代码如下:

  Private Declare Function ReleaseCapture Lib "user32" () As Long

  Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long,

  ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

  Private Const WM_NCLBUTTONDOWN = &&HA1

  Private Const HTCAPTION = 2

  ''以上API函数和常数的声明可在VB自带的“API 浏览器”中找到

  Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

   ''在窗体的MouseDown事件中添加以下代码

   If Button = 1 Then

   Call ReleaseCapture

   Call SendMessage(hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0)

   End If

  End Sub

  Private Sub Command1_Click()

  End   ''退出程序

  End Sub

  这种方法实现起来比第一种方法更容易,只有几行代码,并且没有那么多的变量,窗体被拖动时与普通窗体一样,只有一个虚框随鼠标的移动而移动,当释放鼠标时窗体才移动到相应的位置。用到了两个API函数。

  以上程序在VB 6.0和Windows 98SE下调试通过。

    • 评论
    • 分享微博
    • 分享邮件
    邮件订阅

    如果您非常迫切的想了解IT领域最新产品与技术信息,那么订阅至顶网技术邮件将是您的最佳途径之一。

    重磅专题
    往期文章
    最新文章