窗体标题栏外的拖动操作

窗体标题栏外的拖动操作 (作者:张均洪) 2004-9-3 我们知道对窗体的拖动只需要点住标题栏,拖动鼠标就可以了.但有些时候我们想在窗体的标题栏外的区域实行拖动窗体的操作.这时就要需要我们自已

窗体标题栏外的拖动操作 (作者:张均洪) 2004-9-3 我们知道对窗体的拖动只需要点住标题栏,拖动鼠标就可以了.但有些时候我们想在窗体的标题栏外的区域实行拖动窗体的操作.这时就要需要

Private mouse_offset As Point Private Sub form1_MouseDown(ByVal sender As Object, ByVal e As

注意：要设置form的controlbox属性为false， 特别注意： form.text要设置为空,否则不会把标题栏去掉 Dim MousX As Integer Dim MousY As In

注意：要设置form的controlbox属性为false， 特别注意： form.text要设置为空,否则不会把标题栏去掉 Dim MousX As Integer Dim MousY As In

Private mouse_offset As Point Private Sub form1_MouseDown(ByVal sender As Object, ByVal e As

'****************************************** Private oOriginalRegion As Region = Nothing ' 用于窗体

这个功能在VB6中，需要借助于API函数才能实现。而在VB.net中，凭自己的功能就能实现。首先设置窗体的FormBorderStyle属性为none以去掉窗体的边框，然后在窗体上添加一个按钮。窗

'****************************************** Private oOriginalRegion As Region = Nothing ' 用于窗体移动 Pri

protected override void WndProc(ref Message m) { base.WndProc (ref m); if(m.Msg == 0x84)