【正文】 === 更多學(xué)習(xí)資源請登錄（ ） 上學(xué)吧為您提供 計算機(jī)二級 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。====================================================== Public Function PlayMusic() As Boolean Dim RefInt As Long 更多學(xué)習(xí)資源請登錄（ ） 上學(xué)吧為您提供 計算機(jī)二級 VB 考試資料下載： PlayMusic = False RefInt = mciSendString(play NOWMUSIC, vbNull, 0, 0) If RefInt = 0 Then PlayMusic = True End Function 39。打開 MCI設(shè)備， FILENAME為文件名 ,傳值代表成功與否 39。下面的內(nèi)容幾乎有播放器軟件的各種功能， 你只是引用這些函數(shù)就能做出一個播放器來 39。 如何讓窗體的標(biāo)題條閃爍以引起用 戶注意？ 在窗體中放一個 Timer 控件 Timer1,設(shè)置其 Inteval=200 更多學(xué)習(xí)資源請登錄（ ） 上學(xué)吧為您提供 計算機(jī)二級 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ù)都可精確到毫秒級。,kamp。 關(guān)閉程序回到屬 性窗口，找到 Picture屬性，在右邊的格子里單擊一下鼠標(biāo)左鍵，打開“加載圖片”對話框，找一幅較大的背景圖片打開，觀察一下工作區(qū)窗體的變化。 （一）啟動 VB：單擊“開始”－“程序”－“ Microsoft Visual Basic 中文版”選擇“標(biāo)準(zhǔn) EXE”，單擊“打開”進(jìn)入窗口。 （ 1） 工具箱：在工作區(qū)的左側(cè)，包含許多編程用到的基本對象，被稱作“控件”。H1 Private Const SWP_NOMOVE = amp。 如何設(shè)置 ListBox 的水平卷動軸的寬度？ *API函數(shù)聲明 Const LB_SETHORIZONTALEXTENT = amp。H1 Declare Function SystemParametersInfo Lib user32 Alias SystemParametersInfoA (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As Any, ByVal fuWinIni As Long) As Long 注釋：調(diào)用 更多學(xué)習(xí)資源請登錄（ ） 上學(xué)吧為您提供 計算機(jī)二級 VB 考試資料下載： Call SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, C:, SPIF_UPDATEINIFILE) 2怎樣確定系統(tǒng)是否安裝了聲卡？ *API函數(shù)聲明： Declare Function waveOutGetNumDevs Lib Alias waveOutGetNumDevs () As Long 代碼如下： Dim i As Integer i = waveOutGetNumDevs() If i 0 Then MsgBox 你的系統(tǒng)可以播放聲音。 urlStr amp。 style child 更多學(xué)習(xí)資源請登錄（ ） 上學(xué)吧為您提供 計算機(jī)二級 VB 考試資料下載： 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 Function WndProc(ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long If Msg = amp。====================================================== Public Function SetMusicPos(Position As Long) As Boolean Dim RefInt As Long SetMusicPos = False RefInt = mciSendString(seek NOWMUSIC to amp。設(shè)置聲音大小 39。獲得當(dāng)前媒體的狀態(tài)是不是在播放 39。 Private Sub Text1_KeyPress(KeyAscii As Integer) Text2=Text1 End Sub 按下 Enter 鍵之后，光標(biāo)自動移到下一個控件。因此，你不必再“困擾”于 Win32 API 了。 DisplayUsage做的下一件事情是，使用 方法清除控制臺屏幕。如果要在程序運(yùn)行過程中創(chuàng)建數(shù)據(jù)庫和表，我們還要引用對象庫Microsoft ADO Ext . For DDL Security，簡稱為 ADOX，其庫文件名為是： 。現(xiàn)在我們把其中的實(shí)發(fā)工資大于 2022的記錄篩選出來組成一個新表，新表的名稱由用戶從文本框中輸入，新表中我們只要三個字段，它們是：編號、姓名、實(shí)發(fā)工資。 pstr = pstr amp。它還包括安全對象，用于維護(hù)用戶和組，以及授予和撤消對象的權(quán)限。 我想讓幫助文本顯眼一點(diǎn)，為此，我把 ForegroundColor屬性設(shè)置為綠色。但是， 仍然缺乏用于改變光標(biāo)或文本的位置或顏色的方法或?qū)傩?，還有其它許多更高級的特征。 Private Sub Text1_KeyPress (KeyAscii As Integer) If KeyAscii = 13 Then SendKeys “ {tab}” KeyAscii = 0 End If End Sub 當(dāng)光標(biāo)移到 TextBox 時自動選定其中的整串文字。==================================================== 39。 Volume, vbNull, 0, 0) If RefInt = 0 Then SetVolume = True End Function 39。====================================================== 39。======================================================= 39。 DriverID amp。 , vbInformation, 聲卡檢測 End If 2如何找到 CDROM驅(qū)動器的盤號？ 下 面的函數(shù)將檢查你計算機(jī)所有的驅(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。) 注釋：注意 400是以象素為單位，你可以根據(jù)情況自行設(shè)定。 Sub getcaretpos(byval TextHwndamp。 （ 3）小窗口：在右側(cè)有三個縱向排列的窗口。學(xué)習(xí)的目的是理解計算機(jī)的工作方式和運(yùn)行的方式。單擊工具欄上的啟動按鈕，運(yùn)行一下 我們的程序，看一下這個窗口，還不錯吧？ 更多學(xué)習(xí)資源請登錄（ ） 上學(xué)吧為您提供 計算機(jī)二級 VB 考試資料下載： 單擊“關(guān)閉”按鈕（或者 Alt＋ F4），回到窗體中，在屬性窗口中找到 Icon 項，在右邊的格子里點(diǎn)一下鼠標(biāo)左鍵再點(diǎn)一下三個小點(diǎn)，在彈出的“加載圖標(biāo)”對話框中，點(diǎn)擊“向上”按鈕退一步，再選擇打開 Common，再選擇打開 Graphics，再選擇打開 Icon，再打開 Misc，在里面找一個圖標(biāo)，單擊打開，再看一下工作區(qū)中的窗體的標(biāo)題欄左側(cè)是否有一個圖標(biāo)。) 注釋： TextHwnd為 TextBox的 hWnd屬性值， LineNo為所在行數(shù)， ColNo 為列數(shù) dim iamp。要恢復(fù)正常設(shè)置，將 bSwap設(shè)置為 False。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 中實(shí)現(xiàn) 39。 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 NOWMU