如何全屏幕显示窗体

Question

先隐藏任务栏
然后，最大化（form1.windowstate=2)

Answer 1

在属性窗口中
WindowState=2
borderstyle不用1,5。即Sizable的样式不能用。
这样就可以全屏了。

Answer 2

要是不行
me.width=screen.width
me.height=screen.height

Answer 3

'隐藏任务栏
Private Sub Command1_Click()
    Dim X As Long
    Dim h As Long
    Dim ClassName As String
    
    ClassName = Space(256)
    ClassName = "Shell_TrayWnd"
    h = FindWindow(ClassName, vbNullString)
    '隐藏任务栏
    X = ShowWindow(StartWindow, SW_HIDE)
    MsgBox "任务栏被隐藏"
    
    '显示任务栏
    X = ShowWindow(StartWindow, SW_SHOWNORMAL)
    MsgBox "任务栏恢复"
End Sub