第九章 菜单、对话框及多重窗体.ppt

第九章菜单、对话框及多重窗体
菜单
对话框
多重窗体程序9.1菜单下拉式菜单设计菜单主要属性分隔线：在标题栏中填入“-”，则在菜单中显示一条分隔线。
键盘选择：在菜单项标题某字母前加“&”字符，可使该字符成为访问键（按Alt+该字符，可以选择相应的菜单项）。例9-1标签的显示和隐藏
PrivateSubHide_Click()
Label1.Visible=False
EndSub

PrivateSubShow_Click()
Label1.Visible=True
EndSub例9-2

PrivateSubAdd_Click()
Label1.Caption="+"
Label2.Caption="="&(Val(Text1.Text)+Val(Text2.Text))
EndSub
（待续）
（接上页）
PrivateSubSub_Click()
Label1.Caption="-"
Label2.Caption="="&(Val(Text1.Text)-Val(Text2.Text))
EndSub

PrivateSubExit_Click()
End
EndSub
菜单的增减例9-3在例9-2的代码基础上添加如下代码
PrivateSubForm_Click()
IfAppendCalNo=0Then
AppendCalNo=AppendCalNo+1
Loadappendcal(AppendCalNo)
appendcal(AppendCalNo).Caption="乘法"
appendcal(AppendCalNo).Visible=True
AppendCalNo=AppendCalNo+1
Loadappendcal(AppendCalNo)
appendcal(AppendCalNo).Caption="除法"
appendcal(AppendCalNo).Visible=True
EndIf
EndSub（接上页）
PrivateSubForm_DblClick()
DimiAsInteger
DoWhileAppendCalNo>0
Unloadappendcal(AppendCalNo)
AppendCalNo=AppendCalNo-1
Loop
EndSub
（待续）
PrivateSubAppendCal_Click(IndexAsInteger)
IfIndex=1Then
Label1.Caption="×"
Label3.Caption=Val(Text1.Text)*_ Val(Text2.Text)
EndIf
IfIndex=2Then
Label1.Caption="÷"
Label3.Caption=Val(Text1.Text)/_ Val(Text2.Text)
EndIf
EndSub
弹出式菜单例9-4在例9-3的代码基础上再添加如下代码

PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
IfButton=2Then
PopupMenuCal
EndIf
EndSub9.2对话框(CommonDialog)使用指定的方法，CommonDialog控件能够显示下列对话。
方法 所显示的对话框
ShowOpen “打开”对话框
ShowSave “另存为”对话框
ShowColor “颜色”对话框
ShowFont “字体”对话框
ShowPrinter “打印”或“打印选项”对话框
ShowHelp 调用Windows帮助引擎
Action属性:返回或设置被显示的对话框的类型。在设计时无效。
语法object.Action[=value]
用于value的设置值是：
0 没有操作。
1 显示“打开”对话框。
2 显示“另存为”对话框。
3 显示“颜色”对话框。
4 显示“字体”对话框。
5 显示“打印”对话框。
6 运行WINHLP32.EXE。DialogTitle属性:设置对话框标题
CancelError属性：当该属性为True时，用户按下“取消”按钮后显示一个错误信息，否则不显示
方法
ShowOpen
ShowSave
ShowColor
ShowFont
ShowPrinter
ShowHelp
CommonDialog.ShowOpen

CommonDialog.ShowSave
DefaultExt属性:表示所保存文件的缺省扩展名
其它属性同ShowOpen
CommonDialog.ShowColor
属性Color:设置或返回用户指定的颜色CommonDialog.ShowFont

CommonDialo