【正文】 下看看。 關(guān)閉程序回到屬 性窗口，找到 Picture屬性，在右邊的格子里單擊一下鼠標(biāo)左鍵，打開“加載圖片”對話框，找一幅較大的背景圖片打開，觀察一下工作區(qū)窗體的變化。 ①最上面是工程窗口，上邊有三個按鈕，中間的按鈕是顯示對象窗口； ②下面是屬性窗口，屬性是一個對象的名稱、大小、顏色等等； ③最下面是布局窗口，里面顯示程序運(yùn)行時的位置，拖動里面的小框可以改變程序的顯示位置。） 工作區(qū)：工作區(qū)占據(jù)窗口的絕大部分，從左向右包括工具箱、窗體、和屬性窗口。（本書中雙引號當(dāng)中均是指操作命令） （ 2）“視圖”菜單，顯示各個窗口，如果一個窗口找不著了，就到這個菜單中找出來。 （一）啟動 VB：單擊“開始”－“程序”－“ Microsoft Visual Basic 中文版”選擇“標(biāo)準(zhǔn) EXE”，單擊“打開”進(jìn)入窗口。 更多學(xué)習(xí)資源請登錄（ ） 上學(xué)吧為您提供 計算機(jī)二級 VB 考試資料下載： VB 程序設(shè)計基礎(chǔ) :窗體屬性 程序設(shè)計是指為計算機(jī)編制一些軟件和程序。 （二） VB窗口 標(biāo)題欄：在最上面藍(lán)色標(biāo)題是“工程 1－ ...”，是我們當(dāng)前正在設(shè)計的程序，被稱作“工程 1”。 （ 3）“運(yùn)行”菜單，第一個“啟動”命令要記住，可以運(yùn)行我們的程序。 （ 1） 工具箱：在工作區(qū)的左側(cè)，包含許多編程用到的基本對象，被稱作“控件”。 下面修改窗體的屬性，在右側(cè)的屬性窗口中找到 Caption 項，在它右邊的格子里點(diǎn)一下鼠標(biāo)左鍵，然后輸入“窗體”兩個字，觀察一下工作區(qū)中的窗體的標(biāo)題是否已經(jīng)改變，Caption是設(shè)置一個應(yīng)用程序的窗口標(biāo)題，再在屬性窗口中找到 BackColor項，單擊右邊格子里的黑色三角按鈕上點(diǎn)擊一下鼠標(biāo)左鍵，在彈出的面板上邊的一行文字中選擇“調(diào)色板”標(biāo)簽，選中淺紫色，觀察一下工作區(qū)中間的窗體的變化。單擊“啟動”按鈕運(yùn)行一下程序，很漂亮的一個窗口是吧？ 關(guān)閉程序，同樣再修改 Font 屬性和 ForeColor 屬性，屬性都是按照字母排序的，在最后的 WindowState屬性中選擇 2－ Maxing最大化，運(yùn)行一下程序看一下效果。 本節(jié)主要講述了 VB的基本窗口和窗體屬性，以后會經(jīng)常用到。H1 Private Const SWP_NOMOVE = amp。,ColNoamp。 注 釋 ： 獲 取 起 始 位 置 到 光 標(biāo) 所 在 位 置 字 節(jié) 數(shù) i=SendMessage(TextHwnd,amp。,j,0)+1 注釋：確定所在列 k=SendMessage(TextHwnd,amp。 如何設(shè)置 ListBox 的水平卷動軸的寬度？ *API函數(shù)聲明 Const LB_SETHORIZONTALEXTENT = amp。 Lib user32 _ (ByVal bSwap as long) 要交換鼠標(biāo)按鍵，將 bSwap參數(shù)設(shè)置為 True。 1在程序中如何打開和關(guān)閉光驅(qū)門？ *API函數(shù)聲明如下 : Private Declare Function mciSendString Lib Alias mciSendStringA (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long 注釋：調(diào)用時的代碼如下 Dim Ret As Long Dim RetStr As String 注釋：打開光驅(qū)門 Ret = mciSendString(set CDAudio door open, RetStr, 0, 0) 注釋：關(guān)閉光驅(qū)門 更多學(xué)習(xí)資源請登錄（ ） 上學(xué)吧為您提供 計算機(jī)二級 VB 考試資料下載： Ret = mciSendString(set CDAudio door closed, RetStr, 0, 0) 1如何獲得 Windows 啟動方式 ? 在 Form1中加入一個 CommandButton、一個 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如何移動沒有標(biāo)題欄的窗口？ 我們一般是用鼠標(biāo)按住窗口的標(biāo)題欄，然后移動窗口，當(dāng)窗口沒有標(biāo)題欄時，我們可以用下面的方法來移動窗口： *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ī)二級 VB 考試資料下載： Public Const WM_NCLBUTTONDOWN = amp。 Const SC_SCREENSAVE = 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)可以播放聲音。H3 Public Const FOF_ALLOWUNDO = amp。 Public Declare Function mciSendString Lib Alias mciSendStringA (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long Public Declare Function mciGetDeviceID Lib Alias mciGetDeviceIDA 更多學(xué)習(xí)資源請登錄（ ） 上學(xué)吧為您提供 計算機(jī)二級 VB 考試資料下載： (ByVal lpstrName As String) As Long Public Declare Function waveOutGetVolume Lib (ByVal uDeviceID As Long, lpdwVolume As Long) As Long Public Declare Function GetWindowLong Lib user32 Alias GetWindowLongA (ByVal hwnd As Long, ByVal nIndex As Long) As Long Public Declare Function CallWindowProc Lib user32 Alias CallWindowProcA (ByVal lpPrevWndFunc As Long, ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long Public Declare Function SetWindowLong Lib user32 Alias SetWindowLongA (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Public Declare Function GetShortPathName Lib kernel32 Alias GetShortPathNameA (ByVal lpszLongPath As String, ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long Enum PlayTypeName File = 1 CDAudio = 2 VCD = 3 RealPlay = 4 End Enum Dim PlayType As PlayTypeName Enum AudioSource AudioStereo = 0 39。======================================================= 39。 urlStr amp。 hwnd amp。======================================================= Public Function OpenMusic(FileName As String, Optional hwnd As Long) As Boolean OpenMusic = False Dim ShortPathName As String * 255 Dim RefShortName As String Dim RefInt As Long Dim MciCommand As String Dim DriverID As String CloseMusic 39。 type 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, vbNullStrin