VisualBasic程序設(shè)計對話框

對話框?對話框⒈對話框的分類VisualBasic.NET中的對話框分為三種類型，即預定義對話框、自定義對話框和通用對話框。我們將介紹后兩種對話框，即自定義對話框和通用對話框。⒉對話框的特點?1通用對話框控件?VisualBasic.NET的通用對話框控件共有6種：?2打開文件對話框⒈主要屬性、方法和事件⑴Name屬性⑶CheckFileExists屬性⑷CheckPathExists屬性⑹Title屬性⑻FileNames屬性⑽FilterIndex屬性⑿MultiSelect屬性⒁ShowHelp屬性⒃ReadOnlyChecked屬性⑵AddExtension屬性⑸DefaultExt屬性⑺FileName屬性⑼Fileter屬性⑾InitiaDirectory屬性⒀RestoreDirectory屬性⒂ShowReadOnly屬性?⒉方法打開文件對話框主要有以下幾個方法：⑴Dispose方法：用來釋放被對話框使用的所有資源。⑵OpenFile方法：以只讀方式打開在對話框中所選擇的文件，要打開的文件由FileName屬性指定。該方法提供了以只讀方式打開文件的簡便方法，如果不使用該方法，則必須設(shè)置ShowReadOnly和ReadOnlyChecked屬性，并在對話框中選擇只讀復選框。⑶ShowDialog方法：顯示對話框。用該方法可以顯示“打開文件”對話框?⒊事件打開文件對話框主要有以下幾個事件：⑴FileOk事件：當用戶單擊文件對話框中的“打開”按鈕時發(fā)生該事件。⑵HelpRequest事件：當用戶單擊通用對話框中的“幫助”按鈕時發(fā)生該事件。注意，為了使用該事件，必須把對話框控件的ShowHelp屬性設(shè)置為True。⒋打開文件對話框舉例【例8-1】編寫程序，建立“打開”對話框，并用該對話框打開指定的文件。?示例PrivateSubForm1_Load(ByValsenderAsObject,ByValeAsSystem.EventArgs)HandlesMyBase.LoadMe.Text="通過打開文件對話框打開文件"Button1.Text="選擇文件"Button2.Text="執(zhí)行文件"Button3.Text="退出"EndSubPrivateSubButton1_Click(ByValsenderAsObject,ByValeAsSystem.EventArgs)HandlesButton1.ClickDimretAsShortOpenFileDialog1.FileName=""OpenFileDialog1.ShowReadOnly=TrueOpenFileDialog1.ReadOnlyChecked=TrueOpenFileDialog1.InitialDirectory="c:\"OpenFileDialog1.Filter="AllFiles|*.*|(*.exe)|*.exe|(*.TXT)|*.TXT"OpenFileDialog1.FilterIndex=2OpenFileDialog1.Title="打開.EXE文件"OpenFileDialog1.ShowDialog()SelectFile=OpenFileDialog1.FileName?示例續(xù)IfSelectFile=""Thenret=MsgBox("沒有選擇文件",37,"檢查")Ifret=2ThenClose()EndIfElseMsgBox("所選擇的文件是："&SelectFile)EndIfEndSubPrivateSubButton2_Click(ByValsenderAsObject,ByValeAsSystem.EventArgs)HandlesButton2.ClickDimxx=Shell(SelectFile,AppWinStyle.NormalFocus)EndSubPrivateSubButton3_Click(ByValsenderAsObject,ByValeAsSystem.EventArgs)HandlesButton3.ClickClose()EndSub?3保存文件對話框與OpenFileDialog控件不同的屬性主要有兩個，即CreatPrompt和OverwritePrompt。⑴CreatePrompt屬性⑵OverwritePrompt屬性【例8-2】編寫程序，在格式文本框中顯示一些信息，然后用保存文件對話框把該文本框中的內(nèi)容存入一個文件中。?保存文件對話框示例PrivateSubForm1_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.LoadMe.Text="通過保存文件對話框保存文件"Button1.Text="保存"Button2.Text="退出"DimSAsStringDimclAsString=Chr(13)&Chr(10)S="中南大學校慶"&clS=S&"滄桑巨變五十年，"&clS=S&"桃李芬芳碩果甜。"&clS=S&"遙向南郊荒草地，"&clS=S&"已成岳麓科教園。"&clRichTextBox1.Text=SEndSub?示例續(xù)PrivateSubButton1_Click(ByValsenderAsObject,ByValeAsSystem.EventArgs)HandlesButton1.ClickSaveFileDialog1.DefaultExt="DOC"SaveFileDialog1.FileName="Test.doc"SaveFileDialog1.Filter="Word文件(*.doc)|*.TXT|Allfiles(*.*)|*.*"SaveFileDialog1.FilterIndex=1SaveFileDialog1.Title="保存為.doc文件(*.doc)"SaveFileDialog1.InitialDirectory="E:\"SaveFileDialog1.RestoreDirectory=TrueSaveFileDialog1.CheckFileExists=TrueSaveFileDialog1.CreatePrompt=TrueSaveFileDialog1.OverwritePrompt=TrueSaveFileDialog1.ShowDialog()EndSub?示例續(xù)PrivateSubSaveFileDialog1_FileOk(ByValsenderAsObject,ByValeAsSystem.ComponentModel.CancelEventArgs)HandlesSaveFileDialog1.FileOkIfSaveFileDialog1.ShowDialog=DialogResult.OKthenIfTrim(SaveFileDialog1.FileName<>"")ThenRichTextBox1.SaveFile(SaveFileDialog1.FileName)EndIfEndIfEndSubPrivateSubButton2_Click(ByValsenderAsObject,ByValeAsSystem.EventArgs)HandlesButton2.ClickClose()EndSub?4其他對話框⒈顏色（Color）對話框顏色對話框控件有以下主要屬性：⑴Name屬性：是一個字符串，用來設(shè)置顏色對話框控件的名稱。⑵AllowFullOpen屬性：是一個Boolean值，用來確定顏色對話框中“規(guī)定自定義顏色按鈕”是否有效。⑶AnyColor屬性⑷Color屬性：其值為Color結(jié)構(gòu)。⑸FullOpen屬性⑹SolidColorOnly屬性?顏色對話框控件有以下兩種方法：?⑴ShowDialog方法：顯示顏色對話框。⑵Reset方法：恢復顏色對話框的默認設(shè)置。??用顏色對話框設(shè)置背景色。PrivateSubForm1_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.LoadColorDialog1.AllowFullOpen=TrueMe.Text="顏色對話框"Button1.Text="文本框背景"Button2.Text="窗體背景“EndSubPrivateSubButton1_Click(ByValsenderAsObject,ByValeAsSystem.EventArgs)HandlesButton1.ClickColorDialog1.FullOpen=TrueColorDialog1.ShowDialog()TextBox1.BackColor=ColorDialog1.ColorButton1.BackColor=ColorDialog1.ColorEndSubPrivateSubButton2_Click(ByValsenderAsObject,ByValeAsSystem.EventArgs)HandlesButton2.ClickColorDialog1.FullOpen=TrueColorDialog1.ShowDialog()Me.BackColor=ColorDialog1.ColorButton2.BackColor=ColorDialog1.ColorEndSub?字體（Font）對話框字體對話框具有以下屬性：⑴Color屬性：該屬性用來設(shè)置所選擇的字體的顏色，默認值為Black（黑色）。⑵FontMustExit屬性⑶Font屬性⑷Maxsize屬性⑸MinSize屬性⑹ShowApply屬性⑺ShowColor屬性⑻ShowEffects屬性⑼ShowHelp屬性?字體對話框控件支持以下方法和事件⑴ShowDialog方法：顯示字體對話框。⑵Reset方法：恢復字體對話框的默認設(shè)置。⑶Apply事件：當用戶單擊字體對話框中的“應用”按鈕時觸發(fā)該事件。?用字體對話框設(shè)置文本框中顯示的字體。PrivateSubForm1_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.LoadMe.Text="字體對話框試驗"Button1.Text="設(shè)置字體"Button2.Text="退出"TextBox1.Text="用字體對話框設(shè)置文本框中的字體"EndSubPrivateSubButton1_Click(ByValsenderAsObject,ByValeAsSystem.EventArgs)HandlesButton1.ClickFontDialog1.FontMustExist=TrueFontDialog1.ShowEffects=TrueFontDialog1.ShowColor=TrueFontDialog1.Color=Color.RedFontDialog1.ShowDialog()IfFontDialog1.ShowDialog=DialogResult.OKThenTextBox1.Font=FontDialog1.FontTextBox1.ForeColor=FontDialog1.ColorEndIfEndSubPrivateSubFontDialog1_Apply(ByValsenderAsObject,ByValeAs