VB菜单和窗体课件-豆柴文库

您所在位置：网站首页 / VB菜单和窗体课件.ppt / 文档详情

免费试读已结束，剩余 47 页请下载文档后查看

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界面样式