資源描述：
《FORM窗體和對話框》由會員上傳分享，免費在線閱讀，更多相關內容在教育資源-天天文庫。
1、第11章FORM窗體和對話框1教學內容理解窗體的概念掌握通用對話框的使用熟悉MDI程序的編寫211.1引例例11-1創(chuàng)建多個標準的對話框。分析標準對話框控件在工具箱中可以找到。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
