vb,边框样式为0时如何用菜单编辑器

来源：百度知道 编辑：UC知道 时间：2024/06/04 09:41:12
高手指导一下啊,我做个无边框样式的窗体,但我同时需要用到菜单,可是VB总无法实现,因为有菜单就会有标题栏出现,尽管我的BorderStyle为0

用SetWindowRgn和CreatePolygonRgn函数设置窗体显示区域
把外面的边框隐藏掉

Private Declare Function SetWindowRgn Lib "user32.dll" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long

Private Declare Function CreatePolygonRgn Lib "gdi32" (lpPoint As POINTAPI, ByVal nCount As Long, ByVal nPolyFillMode As Long) As Long

Private Type POINTAPI
x As Long
y As Long
End Type

Sub form_load()
Dim point(3) As POINTAPI
point(0).x = 3
point(0).y = 30

point(1).x = 596
point(1).y = 30

point(2).x = 596
point(2).y = 397

point(3).x = 3
point(3).y = 397

SetWindowRgn Me.hWnd, CreatePolygonRgn(point(0), 4, 1), True
End Sub

这里几个点的坐标根据你窗体的大小调节，所有点坐标围成的多边型就是窗体的外形。
坐标的值是相对于原窗体左上角开始计算的。