vb 带有菜单的窗体可不可以没有标题栏?

Jimmy5945 2003-10-25 08:03:23

有人知道吗?
在线等待~~~~~
我真晕呀~~~

...全文

373 13 打赏收藏转发到动态举报

写回复

用AI写文章

13 条回复

切换为时间正序

请发表友善的回复…

发表回复

danielinbiti 2003-11-01

打赏
举报

还是专门加个窗体放菜单吧

northwolves 2003-11-01

打赏
举报

试试下面的代码：
'This sample show you how to cut the caption title exactly and create controls with code.
'add your menu to the form
'add a new form ,do nothing but copy this codes for it.
Option Explicit
Private Declare Function CreateRectRgn Lib "gdi32" (ByVal x1 As Long, ByVal y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Private Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long
Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long

Private WithEvents cmd1 As CommandButton
Private WithEvents cmd2 As CommandButton
Private Sub cmd1_Click() '******************
Dim capheight As Long, area As Long
Me.ScaleMode = 2
Me.ForeColor = vbRed
Me.Line (1, 0)-(Me.Width, 0) '紧贴标题栏画线做标记
capheight = GetSystemMetrics(33) + GetSystemMetrics(4) ' 边框宽度+标题栏高度
area = CreateRectRgn(0, capheight, Me.Width, Me.Height) '画无标题栏的矩形框
area = SetWindowRgn(Me.hWnd, area, True) '裁剪标题栏
End Sub
Private Sub cmd2_Click() '*******************
Me.ScaleMode = 2
Dim area As Long
area = CreateRectRgn(0, 0, Me.Width, Me.Height) '画含标题栏的矩形框
area = SetWindowRgn(Me.hWnd, area, True) '恢复标题栏
End Sub
Private Sub Form_Load()
Me.WindowState = 0
Me.Move (Screen.Width - Me.Width) / 2, (Screen.Height - Me.Height) / 2, 8000, 5000'居中及设置窗体大小
Set cmd1 = Controls.Add("VB.CommandButton", "cmd1", Me)'添加cmd1按纽
Set cmd2 = Controls.Add("VB.CommandButton", "cmd2", Me)'添加cmd2按纽
cmd1.Move 1000, 1000, 1500, 500
cmd2.Move 3000, 1000, 1500, 500
cmd1.Caption = "裁剪标题栏"
cmd2.Caption = "恢复标题栏"
cmd1.Visible = True
cmd2.Visible = True
End Sub

pandengzhe 2003-11-01

打赏
举报

楼上的方法好像不行吧？

1、控件
2、自己画

captainivy 2003-11-01

打赏
举报

当然可以

设置
Form1的属性ControlBox 为false
然后
Form1.BorderStyle = 0

ShaB 2003-11-01

打赏
举报

vb 带有菜单的窗体可不可以没有标题栏?

他的要求只是这样而已啊，我这几天做了个MP3，就是什么API都不用，就可以显示菜单，但不显示标题栏的啊。

zyl910 2003-11-01

打赏
举报

系统的菜单栏是位于非客户区的
如果非客户区出现
那么标题栏也会出现
这两者是一体的

要想解决这一切
就必须自己模拟标题栏
比如我写的：zyl910菜单栏控件
http://expert.csdn.net/Expert/topic/2167/2167626.xml?temp=.0438959

taosihai1only 2003-11-01

打赏
举报

可以！
参见：http://expert.csdn.net/Expert/topic/2355/2355859.xml?temp=.77763

ShaB 2003-11-01

打赏
举报

当然可以

设置
Form1的属性ControlBox 为false
Form1.Caption=""
这样就可以了，

踏平扶桑 2003-10-25

打赏
举报

'模块中写入
Public Declare Function CreatePolygonRgn Lib "gdi32" (lpPoint As POINTAPI, ByVal nCount As Long, ByVal nPolyFillMode As Long) As Long
Public Declare Function ScreenToClient Lib "user32" (ByVal hWnd As Long, lpPoint As POINTAPI) As Long ''以下3个切除窗口的边框
Public Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long

Public Type POINTAPI
X As Long
Y As Long
End Type
Public Type rect
left As Long
top As Long
right As Long
bottom As Long
End Type
Public Sub MakeNoBorderForm(frm As Form)
'切除窗口的边框
Dim rctClient As rect, rctFrame As rect
Dim hRgn As Long
Dim lRes As Long
ReDim XY(3) As POINTAPI
Dim lpTL As POINTAPI, lpBR As POINTAPI
'获得窗口矩形区域
'将窗口矩形坐标转换为屏幕坐标
lpTL.X = frm.left / 15
lpTL.Y = frm.top / 15
ScreenToClient frm.hWnd, lpTL
rctClient.left = Abs(lpTL.X)
rctClient.top = Abs(lpTL.Y)
frm.ScaleMode = 1 'Twip
rctClient.right = frm.ScaleWidth / 15 + Abs(lpTL.X)
rctClient.bottom = frm.ScaleHeight / 15 + Abs(lpTL.Y)
'建立要切割的数组
XY(0).X = rctClient.left
XY(0).Y = rctClient.top
XY(1).X = rctClient.right
XY(1).Y = rctClient.top
XY(2).X = rctClient.right
XY(2).Y = rctClient.bottom
XY(3).X = rctClient.left
XY(3).Y = rctClient.bottom
hRgn = CreatePolygonRgn(XY(0), 4, 2)
lRes = SetWindowRgn(frm.hWnd, hRgn, True)
End Sub

'窗体加载
Private Sub Form_Initialize()
MakeNoBorderForm Me '创建没有任务栏的窗体
End Sub

Jackile 2003-10-25

打赏
举报

同意 capricciososoft(随想软件) ！

yoki 2003-10-25

打赏
举报

直接设置窗体的style属性,(好像是4吧,忘了,没测试环境,具体那个属性也不是特别确定,你找找看)

capricciososoft 2003-10-25

打赏
举报

可以！
参见：http://expert.csdn.net/Expert/topic/2355/2355859.xml?temp=.77763
可以使用zyl910菜单栏控件，用来重新定位菜单栏。
http://expert.csdn.net/Expert/topic/2167/2167626.xml?temp=.0438959

Jimmy5945 2003-10-25