【正文】 同樣，文件夾列表框中文件夾改變，文件列表框也應(yīng) 同步改變 實現(xiàn)同步的 Change事件過程如下： Private Sub Drivel_Change() ?DriveListBox控件的 Change事件 = ?DirListBox控件名為 Dir1 End Sub Private Sub () ?DirListBox控件的 Change事件 = ?FileListBox控件名為 File1 End Sub 。 (5)ListCount屬性 ：本屬性可以用于這三種文件系統(tǒng)控件。 2. 常用屬性 (1)DriveListBox控件的 Drive屬性 ：指定出現(xiàn)在列表框頂端的驅(qū)動器 (即當前驅(qū)動器 ) (2)Path屬性 ：可用于 DirListBox控件和 FileListBox控件， 對象名 .Path = 路徑 (3)FileListBox控件的 Pattern屬性 ：在程序運行時設(shè)置FileListBox =”*.exe” (4)ListIndex屬性 ：設(shè)置或返回當前控件上所選擇的項目的索引值。 這三種控件可以單獨使用，也可以組合使用。粗體 = 39。然后在窗體上添加 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。 三種對話框： (1)預(yù)定義對話框 (使用函數(shù) InputBox和 MsgBox來實現(xiàn) ) (2)通用對話框 (3)用戶自定義對話框 通用對話框 通用對話框是一種 ActiveX控件，利用它能夠很容易地創(chuàng)建下列六種標準對話框：打開 (Open)，另存為 (Save As)，顏色(Color)，字體 (Font)，打印機 (Printer)和幫助 (Help)對話框 1．添加通用對話框控件 在使用之前，應(yīng)選擇“工程”菜單中的“部件”命令先將其添加到工具箱中 當程序運行時，通用對話框是不可見的 通用對話框不僅本身具有一組屬性，而且由它產(chǎn)生的各種標準對話框也擁有許多特定屬性。Button為 1 = 1 180。以鼠標位置為當前顯示起始位置 = Y 180。結(jié)束“拖動”操作 End Sub 例 把文本框中的選定文本，拖放到圖片框內(nèi)顯示出來 (1)在窗體上建立一個圖片框 (Picture1)和一個文本框(Text1),文本框的 Text屬性為空 (2)編寫程序代碼 功能要求： 程序運行后，用戶在文本框內(nèi)輸入文本和用鼠標選定 (通過拖動 )文本，然后按住鼠標左鍵后把文本框拖放到圖片框內(nèi)，即可把已選定的文本顯示在圖片框內(nèi) 程序代碼： Private Sub Form_Load() = 0 180。移動對象位置 End Sub Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) 1 180。 Drag 對象名 .Drag ［動作］ “動作”取值為 0時，表示取消拖動操作；取值為 1時，啟動拖動操作；取值為 2時，結(jié)束拖動操作 例 采用自動方式，實現(xiàn)文本框的拖動操作 在窗體上建立一個文本框 Text1， 其 DragMode屬性值設(shè)置為 1(自動方式 ) ，程序代碼： Private Sub Form_DragDrop(Source As Control, X As Single,Y As Single) X， Y 180。本事件先于 DragDrop事件。其事件過程的 Private Sub 對象名 _DragDrop(Source As Control,X As Single, Y As Single) Source表示正在被拖動的對象， X、 Y表示鼠標指針在目標對象中的坐標。伴隨鼠標指針在對象上移動，該事件會連續(xù)不斷地產(chǎn)生 (3)改變鼠標指針的形狀 通過 MousePointer和 MouseIcon屬性來設(shè)置鼠標指針形狀 對象的 MousePointer屬性用于設(shè)置鼠標指針的形狀 示例： =2 拖放操作 “ 拖放” (DragDrop)就是使用鼠標將對象從一個地方拖動到另一個地方再放下 控件拖放是指運行時將控件拖放到新的位置 它可以分解為兩種操作：一個是發(fā)生在源對象的“拖”操作，另一個是發(fā)生在目標對象上的“放”操作 (1)DragMode屬性： 用于設(shè)置拖放方式 1為自動方式； 0 (默認 )為手動方式，通過代碼來設(shè)定拖 (2)DragIcon屬性： 設(shè)置拖放操作時顯示的圖標，默認情況下是將源對象的灰色輪廓作為拖動圖標 2. 事件 (1)DragDrop事件： 當一個完整的拖放動作完成時觸發(fā)。 左鍵 右鍵 中鍵 (2) Shift參數(shù) 表示當鼠標鍵被按下或釋放時， Shift、 Ctrl、Alt鍵的按下或釋放狀態(tài)。用 0， 1， 2位分別表示鼠標的左、右、中鍵，用 1或 0表示被按下或釋放 鼠標事件 2 1 0 位 事件過程的語法格式類似于KeyDown事件 KeyDown和 KeyUp事件除了可以識別KeyPress事件能識別的鍵，還可識別鍵盤上的大多數(shù)鍵，如功能鍵、編輯鍵、定位鍵和數(shù)字小鍵盤上的鍵 包括： Click、 DblClick、 MouseMove、 MouseDown和MouseUp等事件 1．鼠標事件過程格式 后三種鼠標事件與 Click、 DblClick事件不同的是可以區(qū)分鼠標的左、右、中鍵與 Shift、 Ctrl、 Alt鍵。操作步驟： (1)打開例 (2)在窗體上創(chuàng)建 StatusBar1 (3)右擊 StatusBar1控件，從快捷菜單中選擇“屬性”命令，系統(tǒng)彈出“屬性頁”對話框 (4)單擊“窗格”選項卡，屏幕顯示如圖 示 (5)設(shè)置第 1個窗格 (索引為 1)，“工具提示文本”為“提示信息”，“樣式”為“ 0sbrText”(即顯示文本和位圖 )，其顯示內(nèi)容在運行時由程序代碼設(shè)置 (6)設(shè)置第 2個窗格 (索引為 2)，“工具提示文本”為“大小寫狀態(tài)”，“樣式”為“ 1sbrCaps”(即顯示大小寫狀態(tài) ) (7)設(shè)置第 3個窗格 (索引為 3)，其“工具提示文本”為“時間”，“樣式”為“ 5sbrTime”(即按系統(tǒng)格式顯示時間 )。 StatusBar控件屬于 ActiveX控件 StatusBar控件由若干個面板 (Panel)組成，每一個面板包含文本和圖片。 單擊工具欄控件時觸發(fā) Click事件，單擊工具欄上按鈕時觸發(fā) ButtonClick事件，并返回一個 Button參數(shù) (表明按下哪個按鈕 ) 例 使用工具欄 在例 ，增加一個工具欄，使之能快速 提供“加法”、“減法”和“乘法”運算類型 操作步驟： (1)打開 例 程序 (2)按照上述創(chuàng)建 ImageList的方法，在窗體上 建立ImageList1控件 ，并從 Windows 98系統(tǒng)文件夾中取出圖片文件、 (本例采用這三個圖片作為按鈕的圖形 ) (3) 在窗體上 建立 ToolBar1控件 ，使之與 ImageList1相關(guān)聯(lián)，然后在控件中添加“加法”、“減法”和“乘法”三個按鈕，并分別取用 ImageList1中的三個圖片。由 Active X技術(shù)創(chuàng)建的，可以作為 VB工具箱的擴充部分。