【正文】 iverID = MPEGVideo Or DriverID = MPEGVideo2 Then If hwnd 0 Then MciCommand = MciCommand + parent amp。right End Enum Dim hWndMusic As Long Dim prevWndproc As Long 39。 : lType = GetDriveType(tmpDrive) 注釋： Win32 API 函數(shù) If (lType = DRIVE_CDROM) Then 注釋： Win32 API 常數(shù) found = True Exit For End If Next If Not found Then tmpDrive = BI_GetCDROMDrive = tmpDrive exit Function errL: msgbox error$ End Function 2如何將文件放入回收站？ **API函數(shù)聲明 Public Type SHFILEOPSTRUCT hwnd As Long wFunc As Long pFrom As String 更多學習資源請登錄（ ） 上學吧為您提供 計算機二級 VB 考試資料下載： pTo As String fFlags As Integer fAnyOperationsAborted As Long hNameMappings As Long lpszProgressTitle As Long End Type Public Declare Function SHFileOperation Lib _ Alias SHFileOperationA (lpFileOp As SHFILEOPSTRUCT) As Long Public Const FO_DELETE = amp。H112amp。 如何交換鼠標按鍵？ *API函數(shù)聲明 Declare Function SwapMouseButtonamp。HC9amp。,LineNoamp。 保存好的程序要編譯成可以在 Windows下運行的可執(zhí)行程序，方法是選擇“文件”菜單中的“生成工程 ”命令，以“窗體”為文件名保存文件到自己的文件夾，這個程序關(guān)閉 VB后也可以運行，退出 VB，打開自己的文件夾，找到程序，運行一下看看。 ①最上面是工程窗口，上邊有三個按鈕，中間的按鈕是顯示對象窗口； ②下面是屬性窗口，屬性是一個對象的名稱、大小、顏色等等； ③最下面是布局窗口，里面顯示程序運行時的位置，拖動里面的小框可以改變程序的顯示位置。（本書中雙引號當中均是指操作命令） （ 2）“視圖”菜單，顯示各個窗口，如果一個窗口找不著了，就到這個菜單中找出來。 更多學習資源請登錄（ ） 上學吧為您提供 計算機二級 VB 考試資料下載： VB 程序設(shè)計基礎(chǔ) :窗體屬性 程序設(shè)計是指為計算機編制一些軟件和程序。 （ 3）“運行”菜單，第一個“啟動”命令要記住，可以運行我們的程序。 下面修改窗體的屬性，在右側(cè)的屬性窗口中找到 Caption 項，在它右邊的格子里點一下鼠標左鍵，然后輸入“窗體”兩個字，觀察一下工作區(qū)中的窗體的標題是否已經(jīng)改變，Caption是設(shè)置一個應(yīng)用程序的窗口標題，再在屬性窗口中找到 BackColor項，單擊右邊格子里的黑色三角按鈕上點擊一下鼠標左鍵，在彈出的面板上邊的一行文字中選擇“調(diào)色板”標簽，選中淺紫色，觀察一下工作區(qū)中間的窗體的變化。 本節(jié)主要講述了 VB的基本窗口和窗體屬性，以后會經(jīng)常用到。,ColNoamp。,j,0)+1 注釋：確定所在列 k=SendMessage(TextHwnd,amp。 Lib user32 _ (ByVal bSwap as long) 要交換鼠標按鍵，將 bSwap參數(shù)設(shè)置為 True。 Const SC_SCREENSAVE = amp。H3 Public Const FOF_ALLOWUNDO = amp。======================================================= 39。 hwnd amp。 type amp。======================================================= Public Function GetDriverID(ff As String) As String Select Case UCase(Right(ff, 3)) Case MID, RMI, IDI GetDriverID = Sequencer Case WAV GetDriverID = Waveaudio Case ASF, ASX, IVF, LSF, LSX, P2V, WAX, WVX, .WM, WMA, WMX, WMP GetDriverID = MPEGVideo2 Case .RM, RAM, .RA GetDriverID = RealPlayer Case Else GetDriverID = MPEGVideo End Select End Function 39。獲取當前播放進度 39。====================================================== Public Function PauseMusic() As Boolean Dim RefInt As Long PauseMusic = False RefInt = mciSendString(pause NOWMUSIC, vbNull, 0, 0) If RefInt = 0 Then PauseMusic = True End Function 39。====================================================== 39。設(shè)置播放速度 39。是否有畫面 True 為有， FALSE為取消 39。==================================================== Public Function GetWindowHandle() As Long Dim RefStr As String * 160 mciSendString status NOWMUSIC window handle, RefStr, 80, 0 GetWindowHandle = Val(RefStr) End Function 39。 39。 Private Sub Text1_GotFocus() = 0 = Len(Text1) End Sub 當光標移到 TextBox 時改變其文字顏色。而且，盡管 VB 6及其早期版本能夠創(chuàng)建控制臺應(yīng)用程序；但是，這不是一種簡單的或直接的過程。下面列出的僅是 VB 2022中更為激動人心的功能中的一部分： ◆清除控制臺窗口 ◆得到并設(shè)定光標位置和大小 ◆得到并設(shè)定窗口高度和寬度 ◆得到并設(shè)定前景和背景顏色 ◆選擇并在控制臺窗口內(nèi)移動部分文本 本文中的其它部分將詳細地分析一個控制臺應(yīng)用程序的創(chuàng)建過程，以便展示上面這些特征的使用。 下列是 DisplayUsage子 程序的代碼： Private Sub DisplayUsage() Dim originalForegroundColor As ConsoleColor = () = (DirCopy ) (Written by Josh Fitzgerald) (New String(, )) (DirCopy will copy all of the files from the source folder to the) (destination folder. While the files are copying, a progress bar) (will display the percent plete.) () (If a directory name contains spaces, enclose it in double quotes.) () (Example : ) = (DirCopy C:\MyFolder C:\MyNewFolder) = () (Example : ) = (DirCopy C:\My Folder C:\My New Folder) = originalForegroundColor End Sub 該子程序做的第一事情是創(chuàng)建一個變量 originalForegroundColor，然后它存儲 的值。在描述的最后，我包括了一些怎樣運行 DirCopy的示例。眾所周知，在 Foxpro或 ASP編程中，這是很容易的一件事件。 Column 表示表 、索引或關(guān)鍵字的列。 ADOX常用方法有： Append（包括 Columns、 Groups、 Indexes、 Keys、 Procedures、 Tables、Users、 Views）、 Create(創(chuàng)建新的目錄 )、 Delete(刪除集合中的對象 )、 Refresh(更新集合中的對象 )等等。 pstr = pstr amp。 str amp。 更多學習資源請登錄（ ） 上學吧為您提供 計算機二級 VB 考試資料下載： 3: 在原有數(shù)據(jù)表的基礎(chǔ)上產(chǎn)生新的數(shù)據(jù)表 如果僅僅是在已有的數(shù)據(jù)表的基礎(chǔ)上產(chǎn)生新的數(shù)據(jù)表，我們只要引用對象庫 Microsoft ActiveX Data Objects Library再利用 Select? Into語句就可以了。 Index 表示數(shù)據(jù)庫表中的索引。 2: ADO 與 ADOX 我們先來對 ADO 和 ADOX進行簡單的認識。 中對 ADO 對象的一些常見操作與應(yīng)用 1: 問題的提出 在 Visual Basic 中，常用的數(shù)據(jù)訪問接口有下列三種：數(shù)據(jù)庫訪問對象 (DAO， Data Access Object)、遠程數(shù)據(jù)庫對象 (RDO， Remote Data Object)和 ActiveX數(shù)據(jù)對象 (ADO， 更多學習資源請登錄（ ） 上學吧為您提供 計算機二級 VB 考試資料下載： ActiveX Data Object )。當你分析這部分代碼時，你會注意到，在每個修改前景或背景顏色的子程序中都是這樣 操作的。當我復(fù)制一個含有大量文件的目錄時，我經(jīng)常希望得 到一些提示 — 復(fù)制進程完成的怎么樣了？復(fù)制快結(jié)束了還是再等待一會？為了實現(xiàn)這一問題，我構(gòu)建了一個控制臺應(yīng)用程序，它能夠在控制臺窗口內(nèi)顯示一個進度條來以圖形化顯示復(fù)制進度。 如今， 引入了新的控制臺應(yīng)用程序特征。 39。小寫轉(zhuǎn)大寫 Private Sub Text2_KeyPress(KeyAscii As Integer) If KeyAscii = 97 And KeyAscii = 122 Then KeyAscii = KeyAscii 32 End If End Sub 使兩個 TextBox 同步的方法。獲取 DeviceID 39。 OnOff, vbNull, 0, 0) If RefInt = 0 Then SetWindowShow = True End Function 39。 Speed, vbNull, 0, 0) If RefInt = 0 Then SetSpeed = True End Function 39。====================================================== Public Function PlayFullScreen() As Boolean Dim RefInt As Long PlayFullScreen = False RefInt = mciSendString(play NOWMUSIC fullscreen, vbNull, 0, 0) If RefInt = 0 Then PlayFullScreen = True End Function 39。關(guān)閉媒體 39。====================================================== 39。播放文件 39。 alias NOWMUSIC If DriverID = AVIVideo Or DriverID = MPEGVideo Or DriverID = MPEGVideo2 Then