【正文】 函數(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。H2 Private Const HWND_TOPMOST = 1 Private Const HWND_NOTOPMOST = 2 注釋： 在某個 form里寫： SetWindowPos ,WND_TOPMOST,0,0,0,0, SWP_NOMOVE 注釋：或下面 更多學習資源請登錄（ ） 上學吧為您提供 計算機二級 VB 考試資料下載： SetWindowPos ,WND_TOPMOST,0,0,0,0, SWP_NOSIZE 使用 API 函數(shù) sendmessage，獲得光標所在行和列。,LineNoamp。) 注釋： TextHwnd為 TextBox的 hWnd屬性值， LineNo為所在行數(shù)， ColNo 為列數(shù) dim iamp。,kamp。HB0amp。HC9amp。HBBamp。HBA 注釋：在程序中調用 LineCnt = SendMessage(, EM_GETLINECOUNT, 0, 0) 注釋： LineCnt即為此 TextBox的行數(shù)。H194 Private Declare Function SendMessage Lib user32 Alias SendMessageA _ (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, _ lParam As Any) As Long 注釋：調用 Call SendMessage(, LB_SETHORIZONTALEXTENT, 400, ByVal 0amp。 如何交換鼠標按鍵？ *API函數(shù)聲明 Declare Function SwapMouseButtonamp。要恢復正常設置，將 bSwap設置為 False。 如何讓窗體的標題條閃爍以引起用 戶注意？ 在窗體中放一個 Timer 控件 Timer1,設置其 Inteval=200 更多學習資源請登錄（ ） 上學吧為您提供 計算機二級 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怎樣找到鼠標指針 的 XY坐標？ *API函數(shù)聲明 Type POINTAPI x As Long y As Long End Type Declare Function GetCursorPos Lib user32 (lpPoint As POINTAPI) As Long 調用： GetCursorPos z print print 1怎樣獲得和改變雙擊鼠標的時間間隔？ 獲得鼠標雙擊間隔時間： Public Declare Function GetDoubleClickTime Lib user32 Alias _ GetDoubleClickTime () As Long 獲得鼠標雙擊間隔時間： Declare Function SetDoubleClickTime Lib user32 Alias SetDoubleClickTime (ByVal wCount As Long) As Long 注釋：注意：這種改變將影響到整個操作系統(tǒng) 以上兩個函數(shù)都可精確到毫秒級。HA1 在 Form_MouseDown 事件中： Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) ReleaseCapture SendMessage hwnd, WM_NCLBUTTONDOWN, HTCAPTION,0amp。H112amp。HF140amp。) 如何改變 Windows 桌面背景？ *API函數(shù)聲明 Const SPI_SETDESKWALLPAPER = 20 Const SPIF_UPDATEINIFILE = amp。 , vbInformation, 聲卡檢測 Else MsgBox 你的系統(tǒng)不能播放聲音。 : 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。H40 注釋：調用 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。下面的內容幾乎有播放器軟件的各種功能， 你只是引用這些函數(shù)就能做出一個播放器來 39。 stereo AudioLeft = 1 39。right End Enum Dim hWndMusic As Long Dim prevWndproc As Long 39。打開 MCI設備， urlStr為網(wǎng)址 ,傳值代表成功與否 39。MCI命令 DriverID = GetDriverID(urlStr) If DriverID = RealPlayer Then PlayType = RealPlay Exit Function End If 更多學習資源請登錄（ ） 上學吧為您提供 計算機二級 VB 考試資料下載： MciCommand = open amp。 type amp。 alias NOWMUSIC If DriverID = AVIVideo Or DriverID = MPEGVideo Or DriverID = MPEGVideo2 Then If hwnd 0 Then MciCommand = MciCommand + parent 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設備， FILENAME為文件名 ,傳值代表成功與否 39。獲取短文件名 GetShortPathName FileName, ShortPathName, 255 RefShortName = Left(ShortPathName, InStr(1, ShortPathName, Chr(0)) 1) 39。 RefShortName amp。 DriverID amp。 hwnd amp。H202 Then MsgBox OK End If WndProc = CallWindowProc(prevWndproc, hwnd, Msg, wParam, lParam) End Function 39。根據(jù)文件名，確定設備 39。====================================================== 39。====================================================== Public Function PlayMusic() As Boolean Dim RefInt As Long 更多學習資源請登錄（ ） 上學吧為您提供 計算機二級 VB 考試資料下載： PlayMusic = False RefInt = mciSendString(play NOWMUSIC, vbNull, 0, 0) If RefInt = 0 Then PlayMusic = True End Function 39。獲取媒體的長度 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。 Position, vbNull, 0, 0) If RefInt = 0 Then SetMusicPos = True End Function 39。暫停播放 39。====================================================== 39。===============================