vb设置窗体不可移动
2009-12-03 10:53
225 查看
Option Explicit
Private Declare Function GetSystemMenu Lib "user32" (ByVal hWnd As Long, ByVal bRevert As Long) As Long
Private Declare Function DeleteMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, Optional ByVal wFlags As Long = 0&) As Long
Private Declare Function DrawMenuBar Lib "user32" (ByVal hWnd As Long) As Long
Dim i As Boolean
Function SetWindowMoveAble(ByVal hWnd As Long, Optional ByVal MoveAble As Boolean = True) As Boolean
'function: SetWindowMoveAble
' params:
' hWnd: 一个顶级窗口句柄
' MoveAble: 是否可移动
' result: 与参数 Moveable 的设置一样,否则即为失败
Dim mhandle As Long
If MoveAble Then _
GetSystemMenu hWnd, 1&: _
DrawMenuBar hWnd _
Else _
mhandle = GetSystemMenu(hWnd, 0&): _
SetWindowMoveAble = DeleteMenu(mhandle, &HF010&)
End Function
Private Sub Command1_Click()
SetWindowMoveAble hWnd, i
i = Not i
End Sub
转自:http://topic.csdn.net/u/20091202/13/66015bdf-6b87-4268-8e9d-dccf45f7ae52.html?15976
Private Declare Function GetSystemMenu Lib "user32" (ByVal hWnd As Long, ByVal bRevert As Long) As Long
Private Declare Function DeleteMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, Optional ByVal wFlags As Long = 0&) As Long
Private Declare Function DrawMenuBar Lib "user32" (ByVal hWnd As Long) As Long
Dim i As Boolean
Function SetWindowMoveAble(ByVal hWnd As Long, Optional ByVal MoveAble As Boolean = True) As Boolean
'function: SetWindowMoveAble
' params:
' hWnd: 一个顶级窗口句柄
' MoveAble: 是否可移动
' result: 与参数 Moveable 的设置一样,否则即为失败
Dim mhandle As Long
If MoveAble Then _
GetSystemMenu hWnd, 1&: _
DrawMenuBar hWnd _
Else _
mhandle = GetSystemMenu(hWnd, 0&): _
SetWindowMoveAble = DeleteMenu(mhandle, &HF010&)
End Function
Private Sub Command1_Click()
SetWindowMoveAble hWnd, i
i = Not i
End Sub
转自:http://topic.csdn.net/u/20091202/13/66015bdf-6b87-4268-8e9d-dccf45f7ae52.html?15976
相关文章推荐
- vb设置窗体不可移动
- C#设置MDI子窗体不可移动
- C#设置MDI子窗体不可移动
- vb 图片在窗体自由移动,窗体在桌面自由移动
- VB.NET在多个窗体之间如何设置主窗体
- 不可移动的窗体
- winform 设置移动窗体
- vb 点击控件移动窗体
- 设置鼠标可以移动窗体
- VB.NET设置控件和窗体的显示级别
- Winform 设置formborderStyle 为None后如何移动窗体
- 设置鼠标可以移动窗体
- 不可移动的窗体
- C#:form的窗体属性formborderstyle设置为none后就不能移动了
- VB点击控件移动窗体
- 设置鼠标可以移动窗体
- VB.NET移动无边框窗体 两种方法
- Winform 设置formborderStyle 为None后如何移动窗体
- Qt设置窗体大小不可变/edit只能输入数字
- 设置鼠标可以移动窗体