如何在没有标题栏的情况下移动窗体

简介: 一般情况下我们都经过拖动窗体的标题来达到改变窗体地位置的,但时有时为了做了特殊效果,不得不去除窗体的标题栏,这样如何改变窗体的位置就成了问题下在就介绍一种方法来达到这种目的   移动窗体#Region "移动窗体"    Private x0, y0 As Integer    Private Sub Form1_MouseMove()Sub Form1_MouseMove(ByVa

一般情况下我们都经过拖动窗体的标题来达到改变窗体地位置的,但时有时为了做了特殊效果,不得不去除窗体的标题栏,这样如何改变窗体的位置就成了问题
下在就介绍一种方法来达到这种目的

 

移动窗体 #Region "移动窗体"
    
Private x0, y0 As Integer
    
Private Sub Form1_MouseMove()Sub Form1_MouseMove(ByVal sender As ObjectByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove
        
If e.Button = MouseButtons.Left Then
            Top 
+= e.Y - y0
            
Left += e.X - x0
            
'Debug.WriteLine(e.X - x0)
            'Debug.WriteLine(e.Y - y0)
        End If
    
End Sub


    
Private Sub Form1_MouseDown()Sub Form1_MouseDown(ByVal sender As ObjectByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown

        
If e.Button = MouseButtons.Left Then
            
Me.Cursor = Cursors.Hand
            x0 
= e.X
            y0 
= e.Y
        
End If

    
End Sub


    
Private Sub Form1_MouseUp()Sub Form1_MouseUp(ByVal sender As ObjectByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseUp
        
If e.Button = MouseButtons.Left Then
            
Me.Cursor = Cursors.Default
        
End If
    
End Sub

#End Region

 

相关文章
CDialog中使用工具栏和状态栏
CDialog中使用工具栏和状态栏
86 0
|
C++
C/C++ Qt StatusBar 底部状态栏应用
Qt窗体中默认会附加一个QstatusBar组件,状态栏组件位于主窗体的最下方,其作用是提供一个工具提示功能,当程序中有提示信息是可以动态的显示在这个区域内,状态栏组件内可以增加任何Qt中的通用组件,只需要通过`addWidget`函数动态追加即可引入到底部,底部状态栏在实际开发中应用非常普遍,以下代码是对该组件基本使用方法的总结。
391 0
C/C++ Qt StatusBar 底部状态栏应用
|
Android开发 UED
完美解决android软键盘挡住输入框方法,还不顶标题栏
完美解决android软键盘挡住输入框方法,还不顶标题栏
1145 0
完美解决android软键盘挡住输入框方法,还不顶标题栏
C# winform 获取标题栏,状态栏,菜单栏的高度
//获得当前窗体标题栏高度 MessageBox.Show("当前窗体标题栏高度"+(this.
1678 0
|
Windows
ConEmu状态栏的设置介绍
ConEmu是一个Windows操作系统下命令提示行界面的多面板打开工具。
ConEmu状态栏的设置介绍
|
算法 JavaScript
weebox弹出窗口不居中显示?
weebox弹出窗口不居中显示?
87 0