资源描述：
《FORM窗体和对话框》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、第11章FORM窗体和对话框1教学内容理解窗体的概念掌握通用对话框的使用熟悉MDI程序的编写211.1引例例11-1创建多个标准的对话框。分析标准对话框控件在工具箱中可以找到。3要求（1）单击输入菜单显示一个InputBox对话框，提示用户输入姓名和班级。输入的姓名和班级将被显示在TextBox控件中。（2）单击样式菜单下的字体和颜色菜单将分别弹出字体和颜色选择对话框，可以设置TextBox中的字体和颜色。（3）单击文件菜单下的打开和保存菜单项将弹出打开文件和保存文件的对话框，选择了文件后将给出一个消息框显示选择的文件名及路径。没有编写打开和保存文件的实际代码。4步骤（1）新建项
2、目DialogExample（2）分别添加MainMenu、OpenFileDialog、SaveFileDialog、FontDialog以及ColorDilaog控件（3）合理命名这些控件的Name属性。（4）设计主菜单的顶层菜单为文件、样式及输入3项。文件菜单下有3项，分别为打开、保存和退出。样式菜单下有2项为字体和颜色。输入菜单下没有子项。（5）再放置一个TextBox控件到窗体上，并将MultiLine属性设为True。命名各菜单项和TextBox控件的Name属性（6）为各个菜单添加Click事件过程。5设计界面6程序代码PrivateSubMnuFileExit_C
3、lick(ByValsenderAsSystem.Object,_ByValeAsSystem.EventArgs)HandlesMnuFileExit.ClickMe.Close()EndSub7PrivateSubMnuFileOpen_Click(ByValsenderAsSystem.Object,_ByValeAsSystem.EventArgs)HandlesMnuFileOpen.ClickOpenFileDialog.ShowDialog()DimstrFileNameAsStringstrFileName=OpenFileDialog.FileNameIfstr
4、FileName>""ThenMessageBox.Show(strFileName,"OpenFile",_MessageBoxButtons.OK,MessageBoxIcon.InformationElseMessageBox.Show("没有选择任何文件!","Errors",_MessageBoxButtons.OK,MessageBoxIcon.Error)EndIfEndSub8PrivateSubMnuFileSave_Click(ByValsenderAsSystem.Object,_ByValeAsSystem.EventArgs)HandlesMnuFile
5、Save.ClickSaveFileDialog.ShowDialog()DimstrFileNameAsStringstrFileName=SaveFileDialog.FileNameIfstrFileName>""ThenMessageBox.Show(strFileName,"SaveFile",_MessageBoxButtons.OK,MessageBoxIcon.Information)ElseMessageBox.Show("没有选择任何文件!","Errors",_MessageBoxButtons.OK,MessageBoxIcon.Error)EndIfEn
6、dSub9PrivateSubMnuStyleFont_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMnuStyleFont.ClickFontDialog.ShowDialog()TxtShow.Font=FontDialog.FontEndSub10PrivateSubMnuStyleColor_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMnuStyleColor.ClickColorDialog.Sho
7、wDialog()TxtShow.ForeColor=ColorDialog.ColorEndSub11PrivateSubMnuInput_Click(ByValsenderAsObject,_ByValeAsSystem.EventArgs)HandlesMnuInput.ClickDimstrNameAsStringDimstrClassAsStringstrName=InputBox("请输入姓名")strClass=InputBox("请输入班级",,,70,90)Tx
