【正文】 Data Source= amp。有關(guān) ADOX 的詳細(xì)信息，請在 中參閱 Microsoft 發(fā)布的有關(guān) ADOX說明的 Web 頁。 Group 表示在安全數(shù)據(jù)庫內(nèi)有訪問權(quán)限的組帳號。那么在 VB 數(shù)據(jù)庫編程中又是怎樣來操作的呢？在 VB 數(shù)據(jù)庫編程中，如果使用DAO作為數(shù)據(jù)庫訪問接口技術(shù)，則可以用 CreateDatabase結(jié)合 CreateTableDef方法來實現(xiàn)，目前已有不少書和雜志都講到了這種方法，本文就不再講述了；但你如果使用的是最新的數(shù)據(jù)庫訪問接口技術(shù) ADO，你卻發(fā)現(xiàn)目前的書和雜志上沒 有文章講到如何用代碼來建立數(shù)據(jù)庫和數(shù)據(jù)表的方法，可有時我們非常需要用到這種方法，下面我們就來解決這個問題。我想使得這些示例突出一 些；因此，我把 ForegroundColor 設(shè)置為品紅色。在子程序的最后，代碼把 屬性設(shè)置回 originalForegroundColor。 二、實例應(yīng)用程序 — DirCopy 我經(jīng)常從控制臺窗口中實現(xiàn)把文件從一個目錄復(fù)制到另一個目錄。在 VB 6中創(chuàng)建一個控制臺應(yīng)用程序必須進(jìn)行 Win32 API 調(diào)用；即使如此，你也不能控制光標(biāo)位置或文本的顏色，而且在很大程度上僅能被限制進(jìn)行從左到右和從上到下 的編碼。 當(dāng) TextBox得到焦點時（ GotFocus）改變文本顏色，失去焦點時（ LostFocus）將還原文本顏色， ForeColor是設(shè)置文本的前景色。大寫轉(zhuǎn)小寫 Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 65 And KeyAscii = 90 Then 更多學(xué)習(xí)資源請登錄（ ） 上學(xué)吧為您提供 計算機二級 VB 考試資料下載： KeyAscii = KeyAscii + 32 End If End Sub 39。==================================================== 39。==================================================== Public Function SetWindowShow(WindowOff As Boolean) As Boolean Dim RefInt As Long Dim OnOff As String SetWindowShow = False If WindowOff Then OnOff = show Else OnOff = hide RefInt = mciSendString(window NOWMUSIC state amp。===================================================== Public Function SetSpeed(Speed As Long) As Boolean Dim RefInt As Long SetSpeed = False RefInt = mciSendString(set NOWMUSIC speed amp。全屏播放 39。====================================================== 39。====================================================== Public Function GetMusicPos() As Long Dim RefStr As String * 80 mciSendString status NOWMUSIC position, RefStr, 80, 0 GetMusicPos = Val(RefStr) End Function 39。====================================================== 39。 DriverID amp。 style child hWndMusic = GetWindowHandle prevWndproc = GetWindowLong(hWndMusic, 4) SetWindowLong hWndMusic, 4, AddressOf WndProc Else MciCommand = MciCommand + style overlapped End If End If RefInt = mciSendString(MciCommand, vbNull, 0, 0) mciSendString set NOWMUSIC time format milliseconds, vbNullString, 0, 0 If RefInt = 0 Then OpenMusic = True End Function 39。打開 MCI設(shè)備， urlStr為網(wǎng)址 ,傳值代表成功與否 39。H40 注釋：調(diào)用 Dim SHop As SHFILEOPSTRUCT, strFile as string With SHop .wFunc = FO_DELETE .pFrom = strFile + Chr(0) .fFlags = FOF_ALLOWUNDO End With 2 VB中如何使用未安裝的字體？ Declare Function AddFontResource Lib gdi32 Alias AddFontResourceA (ByVal lpFileName As String) As Long Declare Function RemoveFontResource Lib gdi32 Alias RemoveFontResourceA (ByVal lpFileName As String) As Long 增加字體： Dim lResult As Long lResult = AddFontResource(c:) 刪除字體： Dim lResult As Long lResult = RemoveFontResource(c:) MCI 播放器在 VB 中實現(xiàn) 39。HF140amp。要恢復(fù)正常設(shè)置，將 bSwap設(shè)置為 False。HBBamp。) 注釋： TextHwnd為 TextBox的 hWnd屬性值， LineNo為所在行數(shù)， ColNo 為列數(shù) dim iamp。 API 在 VB 中應(yīng)用之技巧集錦 API在 VB中應(yīng)用之技巧集錦 API函數(shù)在 VB中得到了充分的運用，同時也 讓無數(shù) VB 愛好者沉溺于其中。單擊工具欄上的啟動按鈕，運行一下 我們的程序，看一下這個窗口，還不錯吧？ 更多學(xué)習(xí)資源請登錄（ ） 上學(xué)吧為您提供 計算機二級 VB 考試資料下載： 單擊“關(guān)閉”按鈕（或者 Alt＋ F4），回到窗體中，在屬性窗口中找到 Icon 項，在右邊的格子里點一下鼠標(biāo)左鍵再點一下三個小點，在彈出的“加載圖標(biāo)”對話框中，點擊“向上”按鈕退一步，再選擇打開 Common，再選擇打開 Graphics，再選擇打開 Icon，再打開 Misc，在里面找一個圖標(biāo)，單擊打開，再看一下工作區(qū)中的窗體的標(biāo)題欄左側(cè)是否有一個圖標(biāo)。 工具欄：第三行是工具欄，工具欄是一些最常用的命令，而且是用圖標(biāo)表示的，因而便于形象記憶和操作，要求記住“啟動”按鈕。學(xué)習(xí)的目的是理解計算機的工作方式和運行的方式。 （ 1）“文件”菜單，要求記住“保存”命令， VB 要保存兩次，注意保存文件到自己的文件夾中。 （ 3）小窗口：在右側(cè)有三個縱向排列的窗口。保存兩次，一次是窗體，另一次是工程。 Sub getcaretpos(byval TextHwndamp。,0,0) j=i/2^16 注 釋 ： 確 定 所 在 行 LineNo=SendMessage(TextHwnd,amp。) 注釋：注意 400是以象素為單位，你可以根據(jù)情況自行設(shè)定。 End Sub 1 VB中如何使用延時函數(shù)？ *API函數(shù)聲明： Declare Sub Sleep Lib kernel32 (ByVal dwMilliseconds As Long) 調(diào)用： 注釋：延時 1秒 Call Sleep(1000) 1調(diào)用修改屏幕保護口令的窗口： Private Declare Function PwdChangePassword Lib mpr Alias PwdChangePasswordA (ByVal lpcRegkeyname As String, ByVal hwnd As Long, ByVal uiReserved1 As Long, ByVal uiReserved2 As Long) As Long 調(diào)用： Call PwdChangePassword(SCRSAVE, , 0, 0) 1使 Windows開始屏幕保護： *API函數(shù)聲明 Private Declare Function SendMessage Lib user32 Alias SendMessageA (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long Const WM_SYSCOMMAND = amp。 , vbInformation, 聲卡檢測 End If 2如何找到 CDROM驅(qū)動器的盤號？ 下 面的函數(shù)將檢查你計算機所有的驅(qū)動器看是否是 CDROM，如果是就返回驅(qū)動器號，如果沒有就返回空字符 Public Function GetCDROMDrive() As String Dim lType As Long,i As Integer,tmpDrive as String,found as Boolean On Error GoTo errL For i = 0 To 25 tmpDrive = Chr(65 + i) amp。left AudioRight = 2 39。 DriverID amp。MCI命令 DriverID = GetDriverID(RefShortName) If DriverID = RealPlayer Then PlayType = RealPlay Exit Function End If MciCommand = open amp。======================================================= 39。====================================================== Public Function GetMusicLength() As Long Dim RefStr As String * 80 mciSendString status NOWMUSIC length, RefStr, 80, 0 GetMusicLength = Val(RefStr) End Function 39。====================================================== 39。====================================================== Public Function SetAudioSource(sAudioSource As AudioSource) As Boolean Dim RefInt As Long Dim strSource As String Select Case sAudioSource Case 1: strSource = left Case 2: strSource = right Case 0: strSource = stereo End Select SetAudioSource = False RefInt = mciSendString(setaudio NOWMUSIC source to amp。 Volume, vbNull, 0, 0) If RefInt = 0 Then SetVolume = True End Function 39。 OnOff, vbNull, 0, 0) If RefInt = 0 Then SetAudioOff = True End Function 39。==================================================== 39。 Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAs