VisualBasicCommonDialog控件的使用二

字號(hào):

使用“打印”對(duì)話框
     “打印”對(duì)話框允許用戶指定打印輸出的方法。用戶可指定打印頁(yè)數(shù)范圍、打印質(zhì)量、復(fù)制數(shù)目等等。此對(duì)話框還顯示有當(dāng)前安裝的打印機(jī)信息,并允許用戶進(jìn)行配置或重新安裝新的缺省打印機(jī)。
     注意 此對(duì)話框并不真正地將數(shù)據(jù)送到打印機(jī)上。它允許用戶指定如何打印數(shù)據(jù)。必須編寫代碼實(shí)現(xiàn)用選定格式打印數(shù)據(jù)。
     詳細(xì)信息 關(guān)于打印數(shù)據(jù)的信息,請(qǐng)參閱第十二章“使用文本和圖形”。運(yùn)行時(shí),當(dāng)用戶在“打印”對(duì)話框作出選擇后,下述屬性將包含用戶選項(xiàng)的信息。
     要顯示“打印”對(duì)話框
     1. 通過(guò)設(shè)置相應(yīng)的“打印”對(duì)話框?qū)傩?,為?duì)話框設(shè)置所需缺省設(shè)置值。例如,為在顯示對(duì)話框時(shí)在“份數(shù)”框中顯示 2,應(yīng)將 Copies 屬性設(shè)置為 2:
     CommonDialog1.Copies = 2
     2. 用 ShowPrinter 方法顯示“打印”對(duì)話框。
     用戶單擊“Command1”命令按鈕時(shí),下列代碼將顯示“打印”對(duì)話框:
     Private Sub Command1_Click ()
      Dim BeginPage, EndPage, NumCopies, Orientation. i
      '將 Cancel 設(shè)置成 True。
      CommonDialog1.CancelError = True
      On Error GoTo ErrHandler
      '顯示“打印”對(duì)話框。
      CommonDialog1.ShowPrinter
      '從對(duì)話框中獲取用戶選定數(shù)值。
      BeginPage= CommonDialog1.FromPage
      EndPage = CommonDialog1.ToPage
      NumCopies= CommonDialog1.Copies
      Orientation=CommonDialog1.Orientation
      For i = 1 to NumCopies
      '在此放置代碼,將數(shù)據(jù)發(fā)送到打印機(jī)。
      Next
      Nxit Sub
     ErrHandler:
      '用戶按下了“取消”按鈕。
      Exit Sub
     End Sub
     注意 若將 PrinterDefault 屬性設(shè)置為 True,則可在 Visual Basic Printer 對(duì)象上打印。另外,當(dāng) PrinterDefault 屬性為 True 時(shí),所有在“打印”對(duì)話框“設(shè)置”部分中作出的變更都將改變用戶“打印機(jī)”設(shè)置中的打印機(jī)設(shè)置值。
     使用 ShowHelp 方法顯示幫助文件
     可用 CommonDialog 控件的 ShowHelp 方法顯示幫助文件。
     要使用 ShowHelp 方法顯示幫助文件
     1. 設(shè)置 HelpCommand 和 HelpFile 屬性。
     2. 用 ShowHelp 方法顯示指定的幫助文件。
     在單擊“Command1”命令按鈕時(shí),下列代碼將顯示指定的幫助文件:
     Private Sub Command1_Click()
      '將 Cancel 設(shè)置為 True。
      CommonDialog1.CancelError = True
      On Error GoTo ErrHandler
      '設(shè)置 HelpCommand 屬性
      CommonDialog1.HelpCommand = cdlHelpForceFile
      '指定幫助文件。
      CommonDialog1.HelpFile = "c:\Windows\Cardfile.hlp"
      '顯示 Windows 幫助引擎。
      CommonDialog1.ShowHelp
      Exit Sub
     ErrHandler:
      '用戶按下了“取消”按鈕。
      Exit Sub
     End Sub
     詳細(xì)信息 有關(guān)顯示通用對(duì)話框控件的幫助文件的詳細(xì)信息,請(qǐng)參閱《VisualBasic 6.0語(yǔ)言參考手冊(cè)》“HelpCommand 屬性”、“HelpFile 屬性”和“ShowHelp 方法”。
    使用Data控件
     內(nèi)在的 Data 控件通過(guò)使用 Microsoft 的 Jet 數(shù)據(jù)庫(kù)引擎來(lái)實(shí)現(xiàn)數(shù)據(jù)訪問(wèn)——與 Microsoft Access 所用的數(shù)據(jù)庫(kù)引擎相同。這一技術(shù)使用戶可以無(wú)縫地訪問(wèn)很多標(biāo)準(zhǔn)的數(shù)據(jù)庫(kù)格式,而且使用戶無(wú)需編寫任何代碼就可以創(chuàng)建數(shù)據(jù)識(shí)別應(yīng)用程序。這種內(nèi)在的 Data 控件最適合較小的(桌面)數(shù)據(jù)庫(kù),諸如 Access 和 ISAM 數(shù)據(jù)庫(kù)。
     可以使用這種內(nèi)在的 Data 控件創(chuàng)建應(yīng)用程序來(lái)顯示、編輯和更新來(lái)自多種已有的數(shù)據(jù)庫(kù)的信息。這些數(shù)據(jù)庫(kù)包括 Microsoft Access、Btrieve、dBASE、Microsoft FoxPro和Paradox。也可以使用這種控件如同訪問(wèn)真正的數(shù)據(jù)庫(kù)一樣來(lái)訪問(wèn) Microsoft Excel、Lotus 1-2-3以及標(biāo)準(zhǔn)的 ASCII 文本文件。此外,Data 控件也可以訪問(wèn)和操作遠(yuǎn)程的開放式數(shù)據(jù)庫(kù)連接 (ODBC)數(shù)據(jù)庫(kù),諸如 Microsoft SQL Server 以及 Oracle。
     注意 Data 控件和 Remote Data 控件兩者都包含在 Visual Basic 中,以提供向后兼容。不過(guò),由于 ActiveX 數(shù)據(jù)對(duì)象 (ADO) 的適應(yīng)性更廣,因此建議使用 ADO Data 控件來(lái)創(chuàng)建新的數(shù)據(jù)庫(kù)應(yīng)用程序。詳細(xì)信息請(qǐng)參閱“使用 ADO Data 控件”。
     Data 控件、Remote Data 控件以及 ADO Data 控件在概念上很相似:三者都是將一個(gè)數(shù)據(jù)源連接到一個(gè)數(shù)據(jù)綁定控件的“數(shù)據(jù)控件”。三者也都共享相同的外觀——一組共四個(gè)按扭,使用戶可以直接到達(dá)記錄集的開始、記錄集的末尾以及在記錄集中向前或向后翻卷。
     使用 Data 控件創(chuàng)建一個(gè)簡(jiǎn)單的數(shù)據(jù)庫(kù)應(yīng)用程序
     要使用 Data 控件創(chuàng)建一個(gè)簡(jiǎn)單的數(shù)據(jù)庫(kù)應(yīng)用程序