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