第八章 通用对话框、菜单.ppt

《Vb程序设计》第八章对话框和菜单第八章对话框和菜单（3学时）第八章对话框和菜单设计第八章对话框8.1自定义对话框8.1.1由普通窗体创建8.1.1由普通窗体创建8.1.2使用对话框模板创（p153）8.1.2显示与关闭“自定义”对话框8.2通用对话框(CommonDialog)8.2通用对话框8.2通用对话框8.2.1打开、另存为对话框的属性例8.2图片浏览装载图片按钮：保存图片按钮：8.2.2“颜色”对话框8.2.2“颜色”对话框8.2.3“字体”对话框8.2.3“字体”对话框改变字体按钮：8.3菜单的设计一、菜单编辑器的使用一、菜单编辑器的使用p180：28.3.4弹出式菜单（快捷菜单）8.3.4弹出式菜单（快捷菜单）例：建立一个有菜单功能的文本编辑器。PrivateSubCopy_Click()'单击"复制"菜单项
Clipboard.Clear
Clipboard.SetTextText1.SelText
Paste.Enabled=True'"粘贴"可用
EndSub
PrivateSubFont_Click()'单击"字体"菜单项
CommonDialog1.Flags=1
CommonDialog1.Action=4
Text1.FontName=CommonDialog1.FontName
Text1.FontSize=CommonDialog1.FontSize
Text1.FontBold=CommonDialog1.FontBold
Text1.FontItalic=CommonDialog1.FontItalic
EndSub

8.3.4弹出式菜单（快捷菜单）PrivateSubText1_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
IfButton=1AndText1.SelText=""Then'松开左键并选中文本
Copy.Enabled=False
Cut.Enabled=False
Else
Copy.Enabled=True
Cut.Enabled=True
EndIf
EndSub例：使用菜单编辑器设计一个下拉菜单，控制图片框在不同方向的移动（每次移动200Twip）。PrivateSubmnumove_Click(IndexAsInteger)
SelectCaseIndex
Case0
Picture1.Top=Picture1.Top-200
Case1
Picture1.Top=Picture1.Top+200
Case2
Picture1.Left=Picture1.Left-200
Case3
Picture1.Left=Picture1.Left+200
EndSelect
EndSubwww.hljucm.netbaijing-spss