【正文】 pstr = adUseClient 工資表 , conn, adOpenKeyset, adLockPessimistic Set = rs 更多學(xué)習(xí)資源請登錄（ ） 上學(xué)吧為您提供 計算機二級 VB 考試資料下載： End Sub 當(dāng)然，我們還可以把程序設(shè)計得更好，比如：讓用戶先在窗口中任意選擇所需的字段和一些條件，然后再組合生成一個新表。 Persist Security Info=False。例如：有一個名為 ，數(shù)據(jù)庫中有一個名為 工資表 數(shù)據(jù)表，該數(shù)據(jù)表的字段有：編號、姓名、基本工資、津貼、應(yīng)發(fā)工資、扣款、實發(fā)工資等，這個表中已經(jīng)有很多的記錄。 View 表示記錄或虛擬表的過濾集。 Key 表示數(shù)據(jù)庫表中的主關(guān)鍵字、外部關(guān)鍵字或唯一關(guān)鍵字。 ADOX的對象如下表所示： 對象 說明 Catalog 包含描述數(shù)據(jù)源模式目錄的集合。在 VB6中，使用 ADO開發(fā)數(shù)據(jù)庫應(yīng)用程序時，我們要引用對象庫 Microsoft ActiveX Data Objects Library， 這個東西的簡稱就是 ADO，它是 VB6數(shù)據(jù)庫最核心的對象群，也是 VB 數(shù)據(jù)庫開發(fā)人員經(jīng)常所引用的對象庫，在 VB6中你可以看到它的各種版本，從 版都有，很多人對它已經(jīng)很 熟悉，在此我們不再詳細(xì)介紹。在這種開發(fā)過程中，我們有時需要面對這樣一個問題：如何讓用戶在程序運行過程中動態(tài)地建立自己所需 的數(shù)據(jù)庫和數(shù)據(jù)表以提高程序的靈活性呢？在程序運行過程中建立自己所需的數(shù)據(jù)庫和數(shù)據(jù)表，其本質(zhì)就是用代碼 (或者說通過編程 )來建立數(shù)據(jù)庫和數(shù)據(jù)表。數(shù)據(jù)庫訪問技術(shù)一直在不斷進(jìn)步，而這三種接口的每一種都分別代表了該技術(shù)的不同發(fā)展階段。然后，我使用 Writeline和 Write 方法把幾行文本輸出到屏幕上。在實際運行 DirCopy之前，我想確保 DirCopy總是讓控制臺顯示相同的顏色。如果使用太多或太少的命令行參數(shù)調(diào)用DirCopy，那么它將調(diào)用 DisplayUsage， 然后結(jié)束。 三、定義功能 為了簡化本文中的演示目的， DirCopy將使用兩個命令行參數(shù)：一個源目錄和一個目的目錄。 一、在 VB 2022中的新型控制臺應(yīng)用程序特征 基于早期 版本中所提供的 Console 對象，如今的 VB 2022又為控制臺應(yīng)用程序增加了許多優(yōu)秀的特征。它不僅在“ New Project...”對話框中提供一種控制臺應(yīng)用程序工程，而且最重要的是，它還提供了一個控制臺（ Console）對象。 在 Visual Basic 的早期版本中基本沒有為創(chuàng)建控制臺應(yīng)用程序提供多大支持。當(dāng)光標(biāo)移到 TextBox時文字設(shè)置為紅色 Private Sub Text1_GotFocus() = vbRed End Sub 39。 當(dāng)對象得到焦點時，從最前面開始選?。?SelStart=0），選取的 長度為文本長度（ Len（ Text1））。 這種方法怎么解釋呢？第二個等于第一個就行了 :)。 如果在 KeyPress 事件里使用 Ucase$和 Lcase$，那么當(dāng)你輸入 abc時， Text Box里的結(jié)果會是 CBA（具體原因這里不多說），我們只好判斷它的 KeyAscii， 剛好大寫與小寫之間是相差 32，所以??看下面的程序。==================================================== Public Function GetDeviceID() As Long GetDeviceID = mciGetDeviceID(NOWMUSIC) End Function TextBox 使用技巧 TextBox使用技巧 在使用 Visual Basic開發(fā)應(yīng)用程序時， TextBox 控件是最常用的（特別 對于數(shù)據(jù)庫程序），以下是筆者在開發(fā)應(yīng)用程序時的一些技巧，希望對愛好 VB 的朋友有幫助。獲得播放窗口的 handle 39。==================================================== 39。==================================================== 39。==================================================== 39。===================================================== 更多學(xué)習(xí)資源請登錄（ ） 上學(xué)吧為您提供 計算機二級 VB 考試資料下載： 39。===================================================== 39。 strSource, vbNull, 0, 0) If RefInt = 0 Then SetAudioSource = True End Function 39。====================================================== 更多學(xué)習(xí)資源請登錄（ ） 上學(xué)吧為您提供 計算機二級 VB 考試資料下載： Public Function CloseMusic() As Boolean Dim RefInt As Long CloseMusic = False RefInt = mciSendString(close NOWMUSIC, vbNull, 0, 0) If RefInt = 0 Then CloseMusic = True End Function 39。暫停播放 39。獲取媒體的當(dāng)前進(jìn)度 39。====================================================== 39。====================================================== Public Function PlayMusic() As Boolean Dim RefInt As Long 更多學(xué)習(xí)資源請登錄（ ） 上學(xué)吧為您提供 計算機二級 VB 考試資料下載： PlayMusic = False RefInt = mciSendString(play NOWMUSIC, vbNull, 0, 0) If RefInt = 0 Then PlayMusic = True End Function 39。根據(jù)文件名，確定設(shè)備 39。 hwnd amp。 RefShortName amp。打開 MCI設(shè)備， FILENAME為文件名 ,傳值代表成功與否 39。 alias NOWMUSIC If DriverID = AVIVideo Or DriverID = MPEGVideo Or DriverID = MPEGVideo2 Then If hwnd 0 Then MciCommand = MciCommand + parent amp。MCI命令 DriverID = GetDriverID(urlStr) If DriverID = RealPlayer Then PlayType = RealPlay Exit Function End If 更多學(xué)習(xí)資源請登錄（ ） 上學(xué)吧為您提供 計算機二級 VB 考試資料下載： MciCommand = open amp。right End Enum Dim hWndMusic As Long Dim prevWndproc As Long 39。下面的內(nèi)容幾乎有播放器軟件的各種功能， 你只是引用這些函數(shù)就能做出一個播放器來 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 更多學(xué)習(xí)資源請登錄（ ） 上學(xué)吧為您提供 計算機二級 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。) 如何改變 Windows 桌面背景？ *API函數(shù)聲明 Const SPI_SETDESKWALLPAPER = 20 Const SPIF_UPDATEINIFILE = amp。H112amp。 如何讓窗體的標(biāo)題條閃爍以引起用 戶注意？ 在窗體中放一個 Timer 控件 Timer1,設(shè)置其 Inteval=200 更多學(xué)習(xí)資源請登錄（ ） 上學(xué)吧為您提供 計算機二級 VB 考試資料下載： *API函數(shù)聲明 Private Declare Function FlashWindow Lib user32 (ByVal hwnd As Long, ByVal bInvert As Long) As Long 注釋：在窗體中寫下如下代碼 : Private Sub Timer1_Timer() FlashWindow , True End Sub 1怎樣找到鼠標(biāo)指針 的 XY坐標(biāo)？ *API函數(shù)聲明 Type POINTAPI x As Long y As Long End Type Declare Function GetCursorPos Lib user32 (lpPoint As POINTAPI) As Long 調(diào)用： GetCursorPos z print print 1怎樣獲得和改變雙擊鼠標(biāo)的時間間隔？ 獲得鼠標(biāo)雙擊間隔時間： Public Declare Function GetDoubleClickTime Lib user32 Alias _ GetDoubleClickTime () As Long 獲得鼠標(biāo)雙擊間隔時間： Declare Function SetDoubleClickTime Lib user32 Alias SetDoubleClickTime (ByVal wCount As Long) As Long 注釋：注意：這種改變將影響到整個操作系統(tǒng) 以上兩個函數(shù)都可精確到毫秒級。 如何交換鼠標(biāo)按鍵？ *API函數(shù)聲明 Declare Function SwapMouseButtonamp。HBA 注釋：在程序中調(diào)用 LineCnt = SendMessage(, EM_GETLINECOUNT, 0, 0) 注釋： LineCnt即為此 TextBox的行數(shù)。HC9amp。,kamp。,LineNoamp。 如何讓窗體總在最前面？ *API函數(shù)聲明 Declare Function SetWindowPos Lib user32 ( ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long 注釋：常量聲明 Private Const SWP_NOSIZE = amp。 保存好的程序要編譯成可以在 Windows下運行的可執(zhí)行程序，方法是選擇“文件”菜單中的“生成工程 ”命令，以“窗體”為文件名保存文件到自己的文件夾，這個程序關(guān)閉 VB后也可以運行，退出 VB，打開自己的文件夾，找到程序，運行一