1.建立一个form
2.设置属性BorderStyle为0,也就是无边框
3.设置属性ShowInTaskbar为True,让其在任务栏可以显示
4.运行程序,这时任务栏可以看到此程序,但是点击它却不能让它最小化。不过设置它为最小化时,点击任务栏可以让它显示为活动窗口。怎样让它支持和正常窗体一样,点击后最小化,再点击下就显示为活动窗口,然后再点击下又最小化?
2.设置属性BorderStyle为0,也就是无边框
3.设置属性ShowInTaskbar为True,让其在任务栏可以显示
4.运行程序,这时任务栏可以看到此程序,但是点击它却不能让它最小化。不过设置它为最小化时,点击任务栏可以让它显示为活动窗口。怎样让它支持和正常窗体一样,点击后最小化,再点击下就显示为活动窗口,然后再点击下又最小化?
解决方案 »
- 如何在屏幕上显示物体的实际尺寸
- 急急..求救!!
- 倾家荡产求源码
- 我的主对话框中有一个combo box,我想在对话框初始时把d:\1.txt中的记录逐条读入combo box,可是运行结果无错误,但对话框却不出现了。
- 压缩BCD码是什么东东,有何用处?该如何计算?
- 求救:我想把数据库中相应字段里的值加入到listbox中,代码如下,现在不知道错误在哪里了~~
- 想拿500分的进来
- 怎样关机在两千里.???用什么API?
- 超急问题!!!!!
- 我是新来的,请各位大哥、大姐们多多关照!!!(有内容)
- vb版的同学太抠门
- 不知道sqlserver数据库的sa密码,能否用ado连接上数据库呢?客户端可以连接上吗?
去掉标题
ControlBox设置为False
但你如果设计是不改变窗体样式,而用如下代码就行了:
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Enum SetWindowPosConstants
SWP_ASYNCWINDOWPOS = &H4000
SWP_DEFERERASE = &H2000
SWP_FRAMECHANGED = &H20
SWP_HIDEWINDOW = &H80
SWP_NOACTIVATE = &H10
SWP_NOCOPYBITS = &H100
SWP_NOMOVE = &H2
SWP_NOOWNERZORDER = &H200
SWP_NOREDRAW = &H8
SWP_NOREPOSITION = SWP_NOOWNERZORDER
SWP_NOSENDCHANGING = &H400
SWP_NOSIZE = &H1
SWP_NOZORDER = &H4
SWP_SHOWWINDOW = &H40
End Enum
Private Const WS_SYSMENU = &H80000
Private Const WS_MINIMIZE = &H20000000
Private Const WS_MINIMIZEBOX = &H20000
Private Const WS_MAXIMIZE = &H1000000
Private Const WS_MAXIMIZEBOX = &H10000
Private Const WS_CAPTION = &HC00000 ' WS_BORDER Or WS_DLGFRAME
Private Const WS_BORDER = &H800000
Private Const WS_THICKFRAME = &H40000Private Const GWL_STYLE = (-16)Private Sub TitleBarVisible(hwnd As Long, Value As Boolean)
Dim Style As Long
Style = GetWindowLong(hwnd, GWL_STYLE)
If Value Then
Style = Style Or WS_SYSMENU
Style = Style Or WS_MAXIMIZEBOX
Style = Style Or WS_MINIMIZEBOX
Style = Style Or WS_CAPTION
Style = Style Or WS_THICKFRAME
Else
Style = Style And Not WS_MAXIMIZEBOX
Style = Style And Not WS_CAPTION
Style = Style And Not WS_THICKFRAME
End If
SetWindowLong hwnd, GWL_STYLE, Style
SetWindowPos hwnd, 0, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE Or SWP_NOREPOSITION Or SWP_NOZORDER Or SWP_FRAMECHANGED
End SubPrivate Sub Form_Load()
TitleBarVisible Me.hwnd, False
End Sub