请问如何判断开始菜单条是否隐藏？

[hyper2k]

我编了一个定时提醒的小程序，如Windows Messager那样显示一个提示框在屏幕左下角，可是怎么判断开始菜单是否打开，以便窗口能显示在开始条以上。

[Bardo]

不要判断
只要用
SysInfo控件获取工作区大小或用GetSystemParamerterInfo函数即可，

Private Sub Command1_Click()

With SysInfo1
Print "WorkAreaLeft: " & .WorkAreaLeft / Screen.TwipsPerPixelX
Print "WorkAreaTop: " & .WorkAreaTop / Screen.TwipsPerPixelY
Print "WorkAreaWidth: " & .WorkAreaWidth / Screen.TwipsPerPixelX
Print "WorkAreaHeight: " & .WorkAreaHeight / Screen.TwipsPerPixelY
End With

End Sub


或


Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type

Public Const SPI_GETWORKAREA = 48

Declare Function SystemParametersInfo Lib "user32" _
Alias "SystemParametersInfoA" (ByVal uAction As Long, _
ByVal uParam As Long, lpvParam As Any, ByVal fuWinIni As Long) _
As Long




Private Sub Command1_Click()

Dim lRet As Long
Dim apiRECT As RECT

lRet = SystemParametersInfo(SPI_GETWORKAREA, vbNull, apiRECT, 0)

If lRet Then
Print "WorkAreaLeft: " & apiRECT.Left
Print "WorkAreaTop: " & apiRECT.Top
Print "WorkAreaWidth: " & apiRECT.Right - apiRECT.Left
Print "WorkAreaHeight: " & apiRECT.Bottom - apiRECT.Top
Else
Print "Call to SystemParametersInfo failed."
End If

End Sub

[hyper2k]

谢谢！给分！