【正文】 CDAudio door closed, RetStr, 0, 0) 1如何獲得 Windows 啟動(dòng)方式 ? 在 Form1中加入一個(gè) CommandButton、一個(gè) Label 并加入如下代碼 : Private Declare Function GetSystemMetrics Lib user32 (ByVal nIndex As Long) As Long Const SM_CLEANBOOT = 67 Private Sub Command1_Click() Select Case GetSystemMetrics(SM_CLEANBOOT) Case 1 Label1 = 安全模式 . Case 2 Label1 = 支持網(wǎng)絡(luò)的安全模式 . Case Else Label1 = Windows運(yùn)行在普通模式 . End Select End Sub 1怎樣使 CtrlAltDelete 無效？ *API函數(shù)聲明 Private 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 編寫如下函數(shù)： Sub DisableCtrlAltDelete(bDisabled As Boolean) Dim X As Long X = SystemParametersInfo(97, bDisabled, CStr(1), 0) End Sub 使 CtrlAltDelete無效 ： Call DisableCtrlAltDelete(True) 恢復(fù) CtrlAltDelete ： Call DisableCtrlAltDelete(False) 1如何移動(dòng)沒有標(biāo)題欄的窗口？ 我們一般是用鼠標(biāo)按住窗口的標(biāo)題欄，然后移動(dòng)窗口，當(dāng)窗口沒有標(biāo)題欄時(shí)，我們可以用下面的方法來移動(dòng)窗口： *API函數(shù)聲明： Declare Function ReleaseCapture Lib user32 () As Long Declare Function SendMessage Lib user32 Alias SendMessageA (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long Public Const HTCAPTION = 2 更多學(xué)習(xí)資源請登錄（ ） 上學(xué)吧為您提供 計(jì)算機(jī)二級 VB 考試資料下載： Public Const WM_NCLBUTTONDOWN = amp。 然后調(diào)用函數(shù)就可以交換和恢復(fù)鼠標(biāo)按鍵了。 Lib user32 _ (ByVal bSwap as long) 要交換鼠標(biāo)按鍵，將 bSwap參數(shù)設(shè)置為 True。) 注釋：注意 400是以象素為單位，你可以根據(jù)情況自行設(shè)定。 如何設(shè)置 ListBox 的水平卷動(dòng)軸的寬度？ *API函數(shù)聲明 Const LB_SETHORIZONTALEXTENT = amp。,1,0) ColNo=jk+1 End sub 如何以某種顏色填充某區(qū)域？ *API函數(shù)聲明 Private Declare Sub FloodFill Lib gdi32 _ (ByVal hDC As Long, ByVal X As Long, ByVal Y As _ Long, ByVal crColor As Long 注釋：設(shè) (fillx,filly)為此區(qū)域內(nèi)任一點(diǎn) 注釋： Color為某種顏色 FloodFill , fillx, filly,Color 如何關(guān)閉計(jì)算機(jī)？ *API函數(shù)聲明 Declare Function ExitWindows Lib User (ByVal dwReturnCode As Long, ByVal wReserved As Integer) As Integer 注釋：執(zhí)行 Dim DUMMY DUMMY=ExitWindows(0， 0) 如何獲取 Windows 目錄和 System目錄？ 注釋：復(fù)制以下代碼到一模塊中 Public Declare Function GetWindowsDirectory Lib kernel32 Alias GetWindowsDirectoryA (ByVal lpBuffer As String, ByVal nSize As Long) As Long Public Declare Function GetSystemDirectory Lib kernel32 Alias GetSystemDirectoryA (ByVal lpBuffer As String, ByVal nSize As Long) As Long 注釋：在程序中調(diào)用 Dim WindowsDirectory As String, SystemDirectory As String, x As Long WindowsDirectory = Space(255) SystemDirectory = Space(255) x = GetWindowsDirectory(WindowsDirectory, 255) x = GetSystemDirectory(SystemDirectory, 255) 更多學(xué)習(xí)資源請登錄（ ） 上學(xué)吧為您提供 計(jì)算機(jī)二級 VB 考試資料下載： MsgBox Windows 的安裝目錄是 : + WindowsDirectory+,系統(tǒng)目錄是 : + SystemDirectory 如何建立簡單的超級連接？ *API函數(shù)聲明 Private Declare Function ShellExecute Lib Alias ShellExecute A (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd A s Long) As Long 注釋：打開某個(gè)網(wǎng)址 ShellExecute 0, open, vbNullString, vbNullString, 3 注釋：給某個(gè)信箱發(fā)電子郵件 ShellExecute hwnd, open, mailto:, vbNullString, vbNullString, 0 如何得知 TextBox 中文字所有的行數(shù)？ *API函數(shù)聲明 Declare Function SendMessage Lib user32 Alias SendMessageA (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long Public Const EM_GETLINECOUNT = amp。,j,0)+1 注釋：確定所在列 k=SendMessage(TextHwnd,amp。,0,0) j=i/2^16 注 釋 ： 確 定 所 在 行 LineNo=SendMessage(TextHwnd,amp。 注 釋 ： 獲 取 起 始 位 置 到 光 標(biāo) 所 在 位 置 字 節(jié) 數(shù) i=SendMessage(TextHwnd,amp。,jamp。,ColNoamp。 Sub getcaretpos(byval TextHwndamp。H1 Private Const SWP_NOMOVE = amp。以下是筆者幾年來收集整理的幾十個(gè) API 函數(shù)在 VB 中應(yīng)用的實(shí)例，現(xiàn)在寫出來與大伙分享，希望能對大伙有所幫助。 本節(jié)主要講述了 VB的基本窗口和窗體屬性，以后會(huì)經(jīng)常用到。保存兩次，一次是窗體，另一次是工程。單擊“啟動(dòng)”按鈕運(yùn)行一下程序，很漂亮的一個(gè)窗口是吧？ 關(guān)閉程序，同樣再修改 Font 屬性和 ForeColor 屬性，屬性都是按照字母排序的，在最后的 WindowState屬性中選擇 2－ Maxing最大化，運(yùn)行一下程序看一下效果。單擊“啟動(dòng)”按鈕，運(yùn)行一下程序，然后最小化，看一下任務(wù)欄上的圖標(biāo)找到我們的程序，單擊一下圖標(biāo)恢復(fù)窗口。 下面修改窗體的屬性，在右側(cè)的屬性窗口中找到 Caption 項(xiàng)，在它右邊的格子里點(diǎn)一下鼠標(biāo)左鍵，然后輸入“窗體”兩個(gè)字，觀察一下工作區(qū)中的窗體的標(biāo)題是否已經(jīng)改變，Caption是設(shè)置一個(gè)應(yīng)用程序的窗口標(biāo)題，再在屬性窗口中找到 BackColor項(xiàng)，單擊右邊格子里的黑色三角按鈕上點(diǎn)擊一下鼠標(biāo)左鍵，在彈出的面板上邊的一行文字中選擇“調(diào)色板”標(biāo)簽，選中淺紫色，觀察一下工作區(qū)中間的窗體的變化。 （ 3）小窗口：在右側(cè)有三個(gè)縱向排列的窗口。 （ 1） 工具箱：在工作區(qū)的左側(cè)，包含許多編程用到的基本對象，被稱作“控件”。 （在視窗操作系統(tǒng)中，我們不僅要會(huì)認(rèn)識文字說明，還要特別留意圖標(biāo)含義。 （ 3）“運(yùn)行”菜單，第一個(gè)“啟動(dòng)”命令要記住，可以運(yùn)行我們的程序。 （ 1）“文件”菜單，要求記住“保存”命令， VB 要保存兩次，注意保存文件到自己的文件夾中。 （二） VB窗口 標(biāo)題欄：在最上面藍(lán)色標(biāo)題是“工程 1－ ...”，是我們當(dāng)前正在設(shè)計(jì)的程序，被稱作“工程 1”。 VB 是運(yùn)行在 Windows 視窗操作系統(tǒng)上，設(shè)計(jì)程序的思想在于在窗口中放置對象和針對對象設(shè)計(jì)代碼。 更多學(xué)習(xí)資源請登錄（ ） 上學(xué)吧為您提供 計(jì)算機(jī)二級 VB 考試資料下載： VB 程序設(shè)計(jì)基礎(chǔ) :窗體屬性 程序設(shè)計(jì)是指為計(jì)算機(jī)編制一些軟件和程序。學(xué)習(xí)的目的是理解計(jì)算機(jī)的工作方式和運(yùn)行的方式。 （一）啟動(dòng) VB：單擊“開始”－“程序”－“ Microsoft Visual Basic 中文版”選擇“標(biāo)準(zhǔn) EXE”，單擊“打開”進(jìn)入窗口。 菜單欄 ：菜單欄在第二行，包含一組菜單，菜單中有各種命令，我們應(yīng)該理解操作計(jì)算機(jī)就是向計(jì)算機(jī)提供一系列的指令。（本書中雙引號當(dāng)中均是指操作命令） （ 2）“視圖”菜單，顯示各個(gè)窗口，如果一個(gè)窗口找不著了，就到這個(gè)菜單中找出來。 工具欄：第三行是工具欄，工具欄是一些最常用的命令，而且是用圖標(biāo)表示的，因而便于形象記憶和操作，要求記住“啟動(dòng)”按鈕。） 工作區(qū)：工作區(qū)占據(jù)窗口的絕大部分，從左向右包括工具箱、窗體、和屬性窗口。 （ 2） 窗體：中間的灰色的窗口，是我們設(shè)計(jì)的程序的基本框架，所有的對象都放在這個(gè)窗口當(dāng)中。 ①最上面是工程窗口，上邊有三個(gè)按鈕，中間的按鈕是顯示對象窗口； ②下面是屬性窗口，屬性是一個(gè)對象的名稱、大小、顏色等等； ③最下面是布局窗口，里面顯示程序運(yùn)行時(shí)的位置，拖動(dòng)里面的小框可以改變程序的顯示位置。單擊工具欄上的啟動(dòng)按鈕，運(yùn)行一下 我們的程序，看一下這個(gè)窗口，還不錯(cuò)吧？ 更多學(xué)習(xí)資源請登錄（ ） 上學(xué)吧為您提供 計(jì)算機(jī)二級 VB 考試資料下載： 單擊“關(guān)閉”按鈕（或者 Alt＋ F4），回到窗體中，在屬性窗口中找到 Icon 項(xiàng)，在右邊的格子里點(diǎn)一下鼠標(biāo)左鍵再點(diǎn)一下三個(gè)小點(diǎn)，在彈出的“加載圖標(biāo)”對話框中，點(diǎn)擊“向上”按鈕退一步，再選擇打開 Common，再選擇打開 Graphics，再選擇打開 Icon，再打開 Misc，在里面找一個(gè)圖標(biāo)，單擊打開，再看一下工作區(qū)中的窗體的標(biāo)題欄左側(cè)是否有一個(gè)圖標(biāo)。 關(guān)閉程序回到屬 性窗口，找到 Picture屬性，在右邊的格子里單擊一下鼠標(biāo)左鍵，打開“加載圖片”對話框，找一幅較大的背景圖片打開，觀察一下工作區(qū)窗體的變化。 如何保存自己的程序呢？方法是在“文件”菜單中選擇“保存工程”或者點(diǎn)擊工具欄上的磁盤按鈕，保存文件到自己的文件夾（如果沒有就新建一個(gè)）以 “ MyForm”為文件名（如果能用中文就輸入漢字“窗體”）。 保存好的程序要編譯成可以在 Windows下運(yùn)行的可執(zhí)行程序，方法是選擇“文件”菜單中的“生成工程 ”命令，以“窗體”為文件名保存文件到自己的文件夾，這個(gè)程序關(guān)閉 VB后也可以運(yùn)行，退出 VB，打開自己的文件夾，找到程序，運(yùn)行一下看看。 API 在 VB 中應(yīng)用之技巧集錦 API在 VB中應(yīng)用之技巧集錦 API函數(shù)在 VB中得到了充分的運(yùn)用，同時(shí)也 讓無數(shù) VB 愛好者沉溺于其中。 如何讓窗體總在最前面？ *API