- 建立一个EXE工程,加入TopMenu窗口菜单控件,并设计菜单如图44:
图44
- 在自动产生的菜单响应代码框架中插入菜单命令响应代码:
Sub Form1_TopMenu1_WM_Command(hWndForm As hWnd,wID As ULong)
Select Case wID
Case Form1_TopMenu1_Menu1 ' 文件
Case Form1_TopMenu1_Menu2 ' 新建
MsgBox("这里是文件菜单的新建命令!")
Case Form1_TopMenu1_Menu3 ' 打开
Case Form1_TopMenu1_Menu4 ' 保存
Case Form1_TopMenu1_Menu5 ' ——
Case Form1_TopMenu1_Menu6 ' 退出
End Select
- 运行效果如图45。
图45