【正文】 的水平卷動軸的寬度？　　*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　　注釋：設(fillx,filly)為此區(qū)域內任一點　　注釋：Color為某種顏色　　FloodFill , fillx, filly,Color　　如何關閉計算機？　　*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目錄？　　注釋：復制以下代碼到一模塊中　　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　　注釋：在程序中調用　　Dim WindowsDirectory As String, SystemDirectory As String, x As Long　　WindowsDirectory = Space(255)　　SystemDirectory = Space(255)　　x = GetWindowsDirectory(WindowsDirectory, 255)　　x = GetSystemDirectory(SystemDirectory, 255)　　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　　注釋：打開某個網址　　ShellExecute 0, open, , vbNullString, vbNullString, 3　　注釋：給某個信箱發(fā)電子郵件　　ShellExecute hwnd, open, mailto:sst95, 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。 注釋：獲取起始位置到光標所在位置字節(jié)數(shù)　　　　　　　　　i=SendMessage(TextHwnd,amp。,jamp。,ColNoamp?！　ub getcaretpos(byval 　TextHwndamp。H1　　Private Const SWP_NOMOVE = amp。以下是筆者幾年來收集整理的幾十個API函數(shù)在VB中應用的實例，現(xiàn)在寫出來與大伙分享，希望能對大伙有所幫助?！　”竟?jié)主要講述了VB的基本窗口和窗體屬性，以后會經常用到。保存兩次，一次是窗體，另一次是工程。單擊“啟動”按鈕運行一下程序，很漂亮的一個窗口是吧？　　關閉程序，同樣再修改Font屬性和ForeColor屬性，屬性都是按照字母排序的，在最后的WindowState屬性中選擇2－Maxing最大化，運行一下程序看一下效果。單擊“啟動”按鈕，運行一下程序，然后最小化，看一下任務欄上的圖標找到我們的程序，單擊一下圖標恢復窗口?！　∠旅嫘薷拇绑w的屬性，在右側的屬性窗口中找到Caption項，在它右邊的格子里點一下鼠標左鍵，然后輸入“窗體”兩個字，觀察一下工作區(qū)中的窗體的標題是否已經改變，Caption是設置一個應用程序的窗口標題，再在屬性窗口中找到BackColor項，單擊右邊格子里的黑色三角按鈕上點擊一下鼠標左鍵，在彈出的面板上邊的一行文字中選擇“調色板”標簽，選中淺紫色，觀察一下工作區(qū)中間的窗體的變化?！　。?）小窗口：在右側有三個縱向排列的窗口。　?。?） 工具箱：在工作區(qū)的左側，包含許多編程用到的基本對象，被稱作“控件”。（在視窗操作系統(tǒng)中，我們不僅要會認識文字說明，還要特別留意圖標含義?！　。?）“運行”菜單，第一個“啟動”命令要記住，可以運行我們的程序?！　。?）“文件”菜單，要求記住“保存”命令，VB要保存兩次，注意保存文件到自己的文件夾中?！　。ǘ￢B窗口　　標題欄：在最上面藍色標題是“工程1－...”，是我們當前正在設計的程序，被稱作“工程1”。　　VB是運行在Windows視窗操作系統(tǒng)上，設計程序的思想在于在窗口中放置對象和針對對象設計代碼。 更多學習資源請登錄（）VB程序設計基礎:窗體屬性　程序設計是指為計算機編制一些軟件和程序。學習的目的是理解計算機的工作方式和運行的方式?！　。ㄒ唬﹩覸B：單擊“開始”－“程序”－“Microsoft Visual Basic 中文版”選擇“標準EXE”，單擊“打開”進入窗口?！　〔藛螜冢翰藛螜谠诘诙?，包含一組菜單，菜單中有各種命令，我們應該理解操作計算機就是向計算機提供一系列的指令。（本書中雙引號當中均是指操作命令）　?。?）“視圖”菜單，顯示各個窗口，如果一個窗口找不著了，就到這個菜單中找出來?！　」ぞ邫冢旱谌惺枪ぞ邫冢ぞ邫谑且恍┳畛Ｓ玫拿?，而且是用圖標表示的，因而便于形象記憶和操作，要求記住“啟動”按鈕。）　　工作區(qū)：工作區(qū)占據(jù)窗口的絕大部分，從左向右包括工具箱、窗體、和屬性窗口?！　。?） 窗體：中間的灰色的窗口，是我們設計的程序的基本框架，所有的對象都放在這個窗口當中。　?、僮钌厦媸枪こ檀翱?，上邊有三個按鈕，中間的按鈕是顯示對象窗口；　?、谙旅媸菍傩源翱冢瑢傩允且粋€對象的名稱、大小、顏色等等；　?、圩钕旅媸遣季执翱冢锩骘@示程序運行時的位置，拖動里面的小框可以改變程序的顯示位置。單擊工具欄上的啟動按鈕，運行一下我們的程序，看一下這個窗口，還不錯吧？　　單擊“關閉”按鈕（或者Alt＋F4），回到窗體中，在屬性窗口中找到Icon項，在右邊的格子里點一下鼠標左鍵再點一下三個小點，在彈出的“加載圖標”對話框中，點擊“向上”按鈕退一步，再選擇打開Common，再選擇打開Graphics，再選擇打開Icon，再打開Misc，在里面找一個圖標，單擊打開，再看一下工作區(qū)中的窗體的標題欄左側是否有一個圖標?！　￡P閉程序回到屬性窗口，找到Picture屬性，在右邊的格子里單擊一下鼠標左鍵，打開“加載圖片”對話框，找一幅較大的背景圖片打開，觀察一下工作區(qū)窗體的變化。　　如何保存自己的程序呢？方法是在“文件”菜單中選擇“保存工程”或者點擊工具欄上的磁盤按鈕，保存文件到自己的文件夾（如果沒有就新建一個）以“MyForm”為文件名（如果能用中文就輸入漢字“窗體”）?！　”４婧玫某绦蛞幾g成可以在Windows下運行的可執(zhí)行程序，方法是選擇“文件”菜單中的“”命令，以“窗體”為文件名保存文件到自己的文件夾，這個程序關閉VB后也可以運行，退出VB，打開自己的文件夾，找到程序，運行一下看看。API在VB中應用之技巧集錦API在VB中應用之技巧集錦　　API函數(shù)在VB中得到了充分的運用，同時也讓無數(shù)VB愛好者沉溺于其中?！　∪绾巫尨绑w總在最前面？　　*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。H2　　Private Const HWND_TOPMOST = 1　　Private Const HWND_NOTOPMOST = 2　　注釋： 在某個form里寫：　　SetWindowPos ,WND_TOPMOST,0,0,0,0, SWP_NOMOVE 注釋：或下面　　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?！∪绾谓粨Q鼠標按鍵？　　*API函數(shù)聲明　　Declare Function SwapMouseButtonamp。要恢復正常設置，將bSwap設置為False?！　∪绾巫尨绑w的標題條閃爍以引起用戶注意？　　在窗體中放一個Timer控件Timer1,設置其Inteval=200　　*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。