网络教育报考哪个学校:vb中,如何判断一个form是否有菜单?

来源:百度文库 编辑:神马品牌网 时间:2024/04/29 19:14:35
当然,是程序判断,,,可不是说眼睛去判断哦

可使用GetMenu函数。
API声明如下:
Declare Function GetMenu Lib "user32" Alias "GetMenu" (ByVal hWnd As Long) As Long
说明:GetMenu函数获取某个FORM的菜单句柄,如果没有菜单,则返回0。
使用示例:
Sub Command1_Click()
Dim RC As Long
RC=GetMenu(Me.hWnd)
If RC=0 Then
MsgBox "这个FORM没有菜单!"
Else
MsgBox "这个FORM有菜单!"
End If
End Sub

哇..高难度!!也期待着高手的答案中!我也想知道....

晕,自己编的程序你不知道????????