VB 如何让窗体既没有标题栏，又可以在任务栏中显示标题图标等。

2024-11-23 00:09:02

推荐回答（1个）

回答1：

'怎么不解决呢?虽然显示了,但没有常见的右键菜单以及菜单功能,解决一下
'添加一个模块,加入以下代码
Option Explicit
Private Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
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
Public Declare Function GetWindowLong Lib "user32"升悔 Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Const WM_SYSCOMMAND = &H112
Private Const WM_NCLBUTTONDOWN = &HA1
Private Const WM_CLOSE = &H10
Private Const SC_CLOSE = &HF060&
Public lOldproc As Long
'处理一些消息
Public Function WndProc(ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Select Case Msg
Case WM_SYSCOMMAND
'使无边框窗体系统菜单的关闭按钮有效
If wParam = SC_CLOSE Then
SendMessage hWnd, WM_CLOSE, ByVal 0&, ByVal 0&
End If
End Select

WndProc = CallWindowProc(lOldproc, hWnd, Msg, wParam, lParam)
End Function
'移动无边框窗体,可滑笑行用于任意控件的鼠标按信哗下事件里
Public Sub DragForm(Frm As Form)
ReleaseCapture
Call SendMessage(Frm.hWnd, WM_NCLBUTTONDOWN, 2, 0&)
End Sub

'窗体加载事件
'使无边框窗体获得系统菜单
Private Sub Form_Load()
Dim lStyle&
lStyle = GetWindowLong(Me.hWnd, -16)
lStyle = lStyle Or &H80000 Or &H20000
SetWindowLong Me.hWnd, -16, lStyle
lOldproc = SetWindowLong(Me.hWnd, -4, AddressOf WndProc)
End Sub

最新问答

裁剪视频画面用什么软件

你知道女人最讨厌的行为是什么吗？

ps怎样把一张普通人像图片做成这样的效果？

大家帮我看下这个人是谁，再帮我查查他的资料男的女的

帮忙写QQ忙碌、离开、请勿打扰等状态提醒语，要好听的浪漫的

关于春光灿烂猪九妹的问题

我是高一的学生目标是中山大学希望大家可以给我点建议啊

南京鼓楼地铁站月票充值点早上几点开门晚上几点关门？

浙江盈天双金属管科技有限公司

哪些有名的作家写过关于小时候的文章