预览加载中，请您耐心等待几秒...

VB菜单和窗体.ppt

预览
1/10
2/10
3/10
4/10
5/10
6/10
7/10
8/10
9/10
10/10

亲，该文档总共52页，到这已经超出免费预览范围，如果喜欢就直接下载吧～

下载提示 文本预览

如果您无法下载资料，请参考说明：

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.Caption Text3.Text=Val(Text1.Text)*Val(Text2.Text) EndSub PrivateSubchu_Click() Label1.Caption=chu.Caption Text3.Text=Val(Text1.Text)/Val(Text2.Text) EndSub PrivateSubjia_Click() Label1.Caption=jia.Caption Text3.Text=Val(Text1.Text)+Val(Text2.Text) EndSub PrivateSubjian_Click() Label1.Caption=jian.Caption Text3.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) SelectCaseIndex Case1 Label1.Caption=js(Index).Caption Text3.Text=Val(Text1.Text)+Val(Text2.Text) Case2 Label1.Caption=js(Index).Caption Text3.Text=Val(Text1.Text)-Val(Text2.Text) Case3 Label1.Caption=js(Index).Caption Text3.Text=Val(Text1.Text)*Val(Text2.Text) Case4 Label1.Caption=js(Index).Caption Text3.Text=Val(Text1.Text)/Val(Text2.Text) EndSelect EndSub 10.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界面样式