亚洲免费乱码视频,日韩 欧美 国产 动漫 一区,97在线观看免费视频播国产,中文字幕亚洲图片

      1. <legend id="ppnor"></legend>

      2. 
        
        <sup id="ppnor"><input id="ppnor"></input></sup>
        <s id="ppnor"></s>

        VB教程:對話框(CommonDialog)

        字號:

        10、對話框(Common Dialog)
            作用:該控件可提供諸如打開和保存文件、設置打印選項、選擇顏色和字體等操作的一組標準對話框。
            使用common dialog 控件必須加載microsoft common dialog conrtol6.0。方法為:打開菜單“工程”/“部件”,在部件對話框中選中microsoft common dialog conrtol6.0確定。則在工具箱中加入了對話框(Common Dialog)圖標。
            此圖標的大小不能改變,而且此圖標像timer控件一樣在程序運行時是不可見的。雙擊控件圖標或用鼠標把對話控件直接在窗體上繪出,加載控件。
            運行時,使用下面所列方法顯示需要的對話框:
            showopen——顯示“打開”對話框
            showsave——顯示“另存為”對話框
            showcolor——顯示“顏色”對話框
            showfont——顯示“字體”對話框
            showprinter——顯示“打印”對話框
            showhelp——調(diào)用Windows“幫助”
            例1:顯示打印對話框。
            界面:
            程序:
            Private Sub Command1_Click()
             CommonDialog1.ShowPrinter
             Text1.Text = CommonDialog1.FromPage
             Text2.Text = CommonDialog1.ToPage
             Text3.Text = CommonDialog1.Copies
             Exit Sub
            End Sub
            Private Sub Command2_Click()
            End
            End Sub
            例2:顯示各種對話框。
            界面:
            代碼:
            Private Sub Command1_Click()
             CommonDialog1.showhelp
            End Sub
            --------------------------------------------------------------------------------
            Private Sub Command2_Click()
             CommonDialog1.showfont
            End Sub
            --------------------------------------------------------------------------------
            Private Sub Command3_Click()
             CommonDialog1.showcolor
            End Sub
            --------------------------------------------------------------------------------
            Private Sub Command4_Click()
             CommonDialog1.showsave
            End Sub
            --------------------------------------------------------------------------------
            Private Sub Command5_Click()
             CommonDialog1.showopen
            End Sub
            --------------------------------------------------------------------------------
            Private Sub Command6_Click()
             End
            End Sub