【正文】 制臺應(yīng)用程序工程，而且最重要的是，它還提供了一個控制臺（Console）對象?！　≡赩isual Basic的早期版本中基本沒有為創(chuàng)建控制臺應(yīng)用程序提供多大支持。當(dāng)光標(biāo)移到TextBox時文字設(shè)置為紅色　　Private Sub Text1_GotFocus()　　 = vbRed　　End Sub　　39?！　‘?dāng)對象得到焦點時，從最前面開始選取（SelStart=0），選取的　　長度為文本長度（Len（Text1））?！　∵@種方法怎么解釋呢？第二個等于第一個就行了:)?！　∪绻贙eyPress事件里使用Ucase$和Lcase$，那么當(dāng)你輸入abc時，Text　　Box里的結(jié)果會是CBA（具體原因這里不多說），我們只好判斷它的KeyAscii，　　剛好大寫與小寫之間是相差32，所以……看下面的程序。====================================================　　Public Function GetDeviceID() As Long　　GetDeviceID = mciGetDeviceID(NOWMUSIC)　　End FunctionTextBox使用技巧TextBox使用技巧　　在使用Visual Basic開發(fā)應(yīng)用程序時，TextBox控件是最常用的（特別　　對于數(shù)據(jù)庫程序），以下是筆者在開發(fā)應(yīng)用程序時的一些技巧，希望對愛好　　VB的朋友有幫助。獲得播放窗口的handle　　39。====================================================　　39。====================================================　　39。====================================================　　39。=====================================================　　39。=====================================================　　39。 strSource, vbNull, 0, 0)　　If RefInt = 0 Then SetAudioSource = True　　End Function　　39。======================================================　　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。暫停播放　　39。獲取媒體的當(dāng)前進(jìn)度　　39。======================================================　　39。======================================================　　Public Function PlayMusic() As Boolean　　Dim RefInt As Long　　PlayMusic = False　　RefInt = mciSendString(play NOWMUSIC, vbNull, 0, 0)　　If RefInt = 0 Then PlayMusic = True　　End Function　　39。根據(jù)文件名，確定設(shè)備　　39。 hwnd amp。 RefShortName amp。打開MCI設(shè)備，F(xiàn)ILENAME為文件名,傳值代表成功與否　　39。 alias NOWMUSIC　　If DriverID = AVIVideo Or DriverID = MPEGVideo Or DriverID = MPEGVideo2 Then　　If hwnd 0 Then　　MciCommand = MciCommand + parent amp。MCI命令　　DriverID = GetDriverID(urlStr)　　If DriverID = RealPlayer Then　　PlayType = RealPlay　　Exit Function　　End If　　MciCommand = open amp。right　　End Enum　　Dim hWndMusic As Long　　Dim prevWndproc As Long　　39。下面的內(nèi)容幾乎有播放器軟件的各種功能，你只是引用這些函數(shù)就能做出一個播放器來　　39。H3　　Public Const FOF_ALLOWUNDO = 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)用　　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)可以播放聲音?！　onst SC_SCREENSAVE = amp。　　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ū)門　　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　　Public Const WM_NCLBUTTONDOWN = amp。 Lib user32 _ (ByVal bSwap as long)　　要交換鼠標(biāo)按鍵，將bSwap參數(shù)設(shè)置為True?！　∪绾卧O(shè)置ListBox的水平卷動軸的寬度？　　*API函數(shù)聲明　　Const LB_SETHORIZONTALEXTENT = amp。,j,0)+1　　注釋：確定所在列　　k=SendMessage(TextHwnd,amp。 注釋：獲取起始位置到光標(biāo)所在位置字節(jié)數(shù)　　　　　　　　　i=SendMessage(TextHwnd,amp。,ColNoamp。H1　　Private Const SWP_NOMOVE = amp?！　”竟?jié)主要講述了VB的基本窗口和窗體屬性，以后會經(jīng)常用到。單擊“啟動”按鈕運(yùn)行一下程序，很漂亮的一個窗口是吧？　　關(guān)閉程序，同樣再修改Font屬性和ForeColor屬性，屬性都是按照字母排序的，在最后的WindowState屬性中選擇2－Maxing最大化，運(yùn)行一下程序看一下效果?！　∠旅嫘薷拇绑w的屬性，在右側(cè)的屬性窗口中找到Caption項，在它右邊的格子里點一下鼠標(biāo)左鍵，然后輸入“窗體”兩個字，觀察一下工作區(qū)中的窗體的標(biāo)題是否已經(jīng)改變，Caption是設(shè)置一個應(yīng)用程序的窗口標(biāo)題，再在屬性窗口中找到BackColor項，單擊右邊格子里的黑色三角按鈕上點擊一下鼠標(biāo)左鍵，在彈出的面板上邊的一行文字中選擇“調(diào)色板”標(biāo)簽，選中淺紫色，觀察一下工作區(qū)中間的窗體的變化?！　。?） 工具箱：在工作區(qū)的左側(cè)，包含許多編程用到的基本對象，被稱作“控件”。　?。?）“運(yùn)行”菜單，第一個“啟動”命令要記住，可以運(yùn)行我們的程序。　?。ǘ￢B窗口　　標(biāo)題欄：在最上面藍(lán)色標(biāo)題是“工程1－...”，是我們當(dāng)前正在設(shè)計的程序，被稱作“工程1”。 更多學(xué)習(xí)資源請登錄（）VB程序設(shè)計基礎(chǔ):窗體屬性　程序設(shè)計是指為計算機(jī)編制一些軟件和程序。　?。ㄒ唬﹩覸B：單擊“開始”－“程序”－“Microsoft Visual Basic 中文版”選擇“標(biāo)準(zhǔn)EXE”，單擊“打開”進(jìn)入窗口。（本書中雙引號當(dāng)中均是指操作命令）　?。?）“視圖”菜單，顯示各個窗口，如果一個窗口找不著了，就到這個菜單中找出來。）　　工作區(qū)：工作區(qū)占據(jù)窗口的絕大部分，從左向右包括工具箱、窗體、和屬性窗口?！　、僮钌厦媸枪こ檀翱?，上邊有三個按鈕，中間的按鈕是顯示對象窗口；　　②下面是屬性窗口，屬性是一個對象的名稱、大小、顏色等等；　　③最下面是布局窗口，里面顯示程序運(yùn)行時的位置，拖動里面的小框可以改變程序的顯示位置?！　￡P(guān)閉程序回到屬性窗口，找到Picture屬性，在右邊的格子里單擊一下鼠標(biāo)左鍵，打開“加載圖片”對話框，找一幅較大的背景圖片打開，觀察一下工作區(qū)窗體的變化。　　保存好的程序要編譯成可以在Windows下運(yùn)行的可執(zhí)行程序，方法是選擇“文件”菜單中的“”命令，以“窗體”為文件名保存文件到自己的文件夾，這個程序關(guān)閉VB后也可以運(yùn)行，退出VB，打開自己的文件夾，找到程序，運(yùn)行一下看看。　　如何讓窗體總在最前面？　　*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　　注釋：常量聲明　　Pr