[求助]如何使窗体在最大化后覆盖掉WINDOWS的任务栏? - VB6论坛

编程论坛 → 开发语言 → 『 VB6论坛』 → [求助]如何使窗体在最大化后覆盖掉WINDOWS的任务栏?

标题：[求助]如何使窗体在最大化后覆盖掉WINDOWS的任务栏?

只看楼主

西山居士

等　级：贵宾
威　望：11
帖　子：581
专家分：0
注　册：2007-4-21

第 11 楼

得分:0

以下是引用taozl在2007-10-26 12:54:56的发言：
BorderStyle=0
WindowState=2
后，任务栏还是显示的

想了解一下你用的什么操作系统？

学海无涯

2007-10-26 14:12

kaishiuexi

等　级：新手上路
帖　子：264
专家分：0
注　册：2007-6-8

第 12 楼

得分:0

以下是引用三断笛在2007-10-26 14:11:33的发言：
Me.Top = 0
Me.Left = 0
Me.Width = Screen.Width
Me.Height = Screen.Height
Me.BorderStyle = 1

我需要Me.BorderStyle=2
而且窗口可以任意改变大小,三按扭齐全,任务栏和菜单栏以及工具栏都正常显示,就是想让窗体把WINDOWS的任务栏给盖掉!

当白天又一次把黑夜按翻在床上的时候，太阳就出生了……

2007-10-26 17:15

三断笛

等　级：贵宾
威　望：31
帖　子：1621
专家分：1617
注　册：2007-5-24

第 13 楼

得分:0

呵呵开始忘了说了,你设置窗体的MiniButton属性为True就可以得到你想的结果了

上面那几行已经可以把任务栏给覆盖了

2007-10-26 22:54

kaishiuexi

等　级：新手上路
帖　子：264
专家分：0
注　册：2007-6-8

第 14 楼

得分:0

回复：（三断笛）呵呵开始忘了说了,你设置窗体的Min...

大哥，窗体大小不能变了！！！！！！

当白天又一次把黑夜按翻在床上的时候，太阳就出生了……

2007-10-27 00:13

三断笛

等　级：贵宾
威　望：31
帖　子：1621
专家分：1617
注　册：2007-5-24

第 15 楼

得分:0

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Const SW_HIDE = 0
Const SW_NORMAL = 1
Dim tWnd As Long
Private Sub Form_Load()
Me.Top = 0
Me.Left = 0
Me.Width = Screen.Width
Me.Height = Screen.Height
tWnd = FindWindow("Shell_TrayWnd", vbNullString)
ShowWindow tWnd, SW_HIDE
End Sub
Private Sub Form_Terminate()
ShowWindow tWnd, SW_NORMAL
End Sub

2007-10-27 17:12

yanligangylg

等　级：新手上路
帖　子：84
专家分：0
注　册：2007-10-28

第 16 楼

得分:0

3楼说的方法可以啊我都试过了不错的