如果您无法下载资料，请参考说明：
1、部分资料下载需要金币，请确保您的账户上有足够的金币
2、已购买过的文档，再次下载不重复扣费
3、资料包下载后请先用软件解压，在使用对应软件打开
第10章菜单和工具栏10.1菜单设计10.1.1菜单组成10.1.2菜单编辑器10.1.2菜单编辑器10.1.2菜单编辑器10.1.2菜单编辑器10.1.2菜单编辑器10.1.2菜单编辑器10.1.2菜单编辑器10.1.3下拉菜单的设计PrivateSubcheng_Click()Label1.Caption=cheng.CaptionText3.Text=Val(Text1.Text)*Val(Text2.Text)EndSubPrivateSubchu_Click()Label1.Caption=chu.CaptionText3.Text=Val(Text1.Text)/Val(Text2.Text)EndSubPrivateSubjia_Click()Label1.Caption=jia.CaptionText3.Text=Val(Text1.Text)+Val(Text2.Text)EndSubPrivateSubjian_Click()Label1.Caption=jian.CaptionText3.Text=Val(Text1.Text)-Val(Text2.Text)EndSub10.1.3下拉菜单的设计10.1.4弹出式菜单创建弹出式菜单创建弹出式菜单创建弹出式菜单10.1.4弹出式菜单10.1.4弹出式菜单10.1.5菜单控件数组PrivateSubjs_Click(IndexAsInteger)SelectCaseIndexCase1Label1.Caption=js(Index).CaptionText3.Text=Val(Text1.Text)+Val(Text2.Text)Case2Label1.Caption=js(Index).CaptionText3.Text=Val(Text1.Text)-Val(Text2.Text)Case3Label1.Caption=js(Index).CaptionText3.Text=Val(Text1.Text)*Val(Text2.Text)Case4Label1.Caption=js(Index).CaptionText3.Text=Val(Text1.Text)/Val(Text2.Text)EndSelectEndSub10.2创建工具栏10.2.1ImageList控件10.2.1ImageList控件10.2.2ToolBar控件10.2.2ToolBar控件10.2.2ToolBar控件10.2.2ToolBar控件10.3Windows界面样式及创建SDI程序界面10.3.1Windows界面样式10.3.2创建SDI程序界面创建SDI程序界面实例创建SDI程序界面实例创建SDI程序界面实例10.3.2创建SDI程序界面10.3.2创建SDI程序界面10.4创建MDI程序界面10.4.1MDI窗体与MDI子窗体10.4.1MDI窗体与MDI子窗体创建MDI应用程序实例创建MDI应用程序实例10.4.2创建MDI应用程序10.4.2创建MDI应用程序10.4.2创建MDI应用程序10.4.2创建MDI应用程序10.1.3下拉菜单的设计10.1.3下拉菜单的设计10.1.4弹出式菜单10.1.4弹出式菜单10.3.1Windows界面样式10.3.1Windows界面样式10.3.1Windows界面样式
