【正文】 As Single) 2 180。結(jié)束“拖動”操作 End Sub 例 采用手動方式，實現(xiàn)文本框的拖動操作 (1)在窗體上建立一個圖片框 (Picture1)和一個文本框(Text1),文本框的 Text屬性為空 (2)編寫程序代碼 功能要求： 程序運行后，用戶在文本框內(nèi)輸入文本和用鼠標選定 (通過拖動 )文本，然后按住鼠標左鍵后把文本框拖放到圖片框內(nèi)，即可把已選定的文本顯示在圖片框內(nèi) 例 把文本框中的選定文本，拖放到圖片框內(nèi)顯示出來 Private Sub Form_Load() = 0 180。置手動方式 End Sub Private Sub Picture1_DragDrop(Source As Control, X As Single, Y As Single) = X 180。以鼠標位置為當前顯示起始位置 = Y 180。在圖片框中顯示文本框中的選定內(nèi)容 End Sub Private Sub Text1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 1 Then 180。Button為 1 = 1 180。置自動方式 End If End Sub 程序代碼 對話框 對話框 (DialogBox)是應(yīng)用程序與用戶進行交互的主要途徑。 三種對話框： (1)預定義對話框 使用函數(shù) InputBox和 MsgBox (2)通用對話框 (3)用戶自定義對話框 通用對話框 通用對話框是一種 ActiveX控件，利用它能夠很容易地創(chuàng)建下列六種標準對話框：打開 (Open)，另存為 (Save As)，顏色(Color)，字體 (Font)，打印機 (Printer)和幫助 (Help)對話框 1．添加通用對話框控件 在使用之前，應(yīng)選擇“工程”菜單中的“部件”命令先將其添加到工具箱中 當程序運行時，通用對話框是不可見的 通用對話框不僅本身具有一組屬性，而且由它產(chǎn)生的各種標準對話框也擁有許多特定屬性。 屬性設(shè)置可以在屬性窗口或程序代碼中進行，也可以通過“屬性頁”對話框來設(shè)置 2．屬性頁 3．通用對話框的基本屬性和方法 (1)Name屬性 (2)Action屬性：該屬性直接決定打開哪種對話框 對話框類型 Action屬性值 無對話框 0 打開”對話框 1 ShowOpen “另存為”對話框 2 ShowSave “顏色”對話框 3 ShowColor “字體”對話框 4 ShowFont “打印”對話框 5 ShowPrinter “幫助”對話框 6 ShowHelp 例如，利用通用對話框 CommonDialog1產(chǎn)生一個“打開”對話框，可以執(zhí)行下列語句： =1 或 (3)DialogTitle屬性：該屬性用于設(shè)置對話框的標題 (4)ConcelError屬性：該屬性表示用戶在使用對話框進行對話時，單擊“取消”按鈕是否產(chǎn)生錯誤信息 (5)通用對話框的方法 4. “打開”對話框 在程序中將通用對話框的 Action屬性設(shè)置為 1，或用ShowOpen方法打開，則彈出“打開文件”對話框 “打開”對話框的屬性： FileName、 FileTitle、 Filter、 FilterIndex、 IniDir 例 建立一個 “ 打開文件 ” 的對話框 在窗體上添加一個通用對話框和一個“打開”命令按鈕，當單擊“打開”按鈕時，就會彈出一個“打開文件”的對話框 (1) 把 CommonDialog控件添加到工具箱中。然后在窗體上添加 CommonDialog控件，其默認名稱為 CommonDialog1 (2)在窗體上添加一個命令按鈕 Command1，其 Caption屬性為 (3)“打開”命令按鈕 Command1的 Click Private Sub Command1_Click() = 打開文件“ ‘設(shè)置文件過濾器 = 全部文件 |*.*|文本文件 |*.txt = C:\my documents ?設(shè)置默認文件夾 ?顯示“打開”對話框 End Sub 其中，設(shè)置文件過濾器 (Filter)屬性的參數(shù)格式如下： 描述符 1 ｜ 過濾符 1 ｜ 描述符 2 ｜ 過濾符 2 程序運行后，單擊“打開”按鈕即彈出如圖所示的對話框 從控件的 FileName屬性中獲取選定的路徑及文件名 5. “ 6. “顏色”對話框 7. “字體”對話框 例 “字體”對話框應(yīng)用示例 在文本框中輸入一段文字，單擊命令按鈕后，通過“字體”對話框來設(shè)置文本框中顯示的字體、大小、字形、樣式等 (1)建立用戶界面及設(shè)置對象屬性 (2) “設(shè)置字體”命令按鈕的單擊事件過程代碼如下： Private Sub Command1_Click() = CdlCFScreenFonts ?打開“字體”對話框 = 39。設(shè)置字體名稱 = ?設(shè)置字體大小 = 39。粗體 = 39。斜體 End Sub 8. “ 9. “幫助”對話框 自定義對話框 創(chuàng)建自定義對話框就是建立一個窗體，在窗體上根據(jù)需要放置控件，通過設(shè)置控件屬性值來定義窗體的外觀 因為對話框沒有控制菜單框 (標題欄左側(cè) )和最大化、最小化按鈕，不能改變其大小，所以應(yīng)設(shè)置以下對話框的屬性，見表 用窗體自定義對話框， 一般步驟 ： (1)向工程添加窗體 (2)在窗體上創(chuàng)建其他控件對象，定義對話框的外觀 (3)設(shè)置窗體和控體對象的屬性 (4)在代碼窗口中創(chuàng)建事件過 文件系統(tǒng)控件 VB工具箱中提供了三種文件系統(tǒng)控件： 驅(qū)動器列表框(DriveListBox)、 文件夾列表框 (DirListBox)和 文件列表框(FileListBox)。 這三種控件可以單獨使用，也可以組合使用。圖 種控件組合使用的情況 1. 用途 (1)驅(qū)動器列表框： 選擇一個驅(qū)動器 (2)文件夾列表框 (3)文件列表框 ：顯示當前文件夾下的所有文件名。 2. 常用屬性 (1)DriveListBox控件的 Drive屬性 ：指定出現(xiàn)在列表框頂端的驅(qū)動器 (即當前驅(qū)動器 ) (2)Path屬性 ：可用于 DirListBox控件和 FileListBox控件， 對象名 .Path = 路徑 (3)FileListBox控件的 Pattern屬性 ：在程序運行時設(shè)置FileListBox =”*.exe” (4)ListIndex屬性 ：設(shè)置或返回當前控件上所選擇的項目的索引值。 當 FileListBox沒有文件顯示時 ListIndex屬性值為 1。 (5)ListCount屬性 ：本屬性可以用于這三種文件系統(tǒng)控件。返回控件內(nèi)所列項目的總數(shù) 3. 當這三種控件組合使用時，在改變驅(qū)動器列表框中的驅(qū)動器時，文件夾列表框中顯示的文件夾也應(yīng)同步改變。同樣，文件夾列表框中文件夾改變，文件列表框也應(yīng) 同步改變 實現(xiàn)同步的 Change事件過程如下： Private Sub Drivel_Change() ?DriveListBox控件的 Change事件 = ?DirListBox控件名為 Dir1 End Sub Private Sub () ?DirListBox控件的 Change事件 = ?FileListBox控件名為 File1 End Sub