能自行調(diào)節(jié)高度的TextBox

1、能自行調(diào)節(jié)高度的 TextBox 概述TextBox 在放到 Form 中以后， 就不管內(nèi)容有多少， 就是占這么多的地盤， 為什么不讓它靈活一些呢？每當(dāng)TextBox 的內(nèi)容修改好以后， 就查看TextBox 的行數(shù)是否變化。 如果有改變的話， 就把TextBox 的位置調(diào)整到合適的位置。一個可能的應(yīng)用就是在TextBox 和MsFlexGrid 配合使用的情況， 可以動態(tài)修改高度。實現(xiàn)步驟1、 開啟一個新的工程。2、 增加一個TextBox(Text1)， 修改BorderStyle 為0-None， MultiLine 為 True。3、 在 Form1 的聲明中增加：Const EM_G

2、ETLINECOUNT = &HBAPrivate Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As LongDim LastLine As Long '最后的行數(shù)Dim LineHeight '每行的高度4、 在 Form_Load 過程中增加：Private Sub Form_L

3、oad()Set Me.Font = Text1.FontLineHeight = Me.TextHeight("TT")End Sub5、 在 Text1_Change 中增加代碼：Private Sub Text1_Change()Dim Ret As LongRet = SendMessage(Text1.hWnd, EM_GETLINECOUNT, 0, 0&) '取行數(shù)If Ret <> LastLine ThenIf Text1.Height + Text1.Top + LineHeight > Me.ScaleHeight A

4、nd Ret > 1 ThenIf LastLine <= Ret - 1 ThenExit Sub '如果已經(jīng)是最大高度，保持End IfLastLine = Ret - 1 '超過最大高度ElseLastLine = RetEnd IfText1.Height = LastLine * LineHeight '修改高度End IfEnd Sub6、 在Text1_GotFocus 中增加代碼：Private Sub Text1_GotFocus()LastLine = SendMessage(Text1.hWnd, EM_GETLINECOUNT, 0,

5、 0&)End Sub7、 按F5， 開始運行。 在 TextBox 中多打入幾行， 可以發(fā)現(xiàn)TextBox 的高度會自動修改， 甚至對剪貼操作也一樣有效。 而在 TextBox 到了Form 的最大邊緣后， 就停止了擴張高度。如果您發(fā)現(xiàn) Bugs。請告訴我知道。 Thanks. 多姿多彩的進度指示控件 在Win95盛行的今天，我們隨處可以看見各種進程指示控件的身影，這些進程指示控件被廣泛用于各種不同的場合。如果我們能在自己的程序中靈活使用各種進程指示控件，一定會為程序增添許多生機和活力。 下面筆者以Visual Basic為例，向大家介紹幾種常 用的進程指示控件。 一、進度條控件（P

6、rogressBar） 進度條控件是一種極其常見的Win95風(fēng)格的進 度指示控件，廣泛用于各種Win95程序。它一般用在 需要較長處理時間的場合，如在程序加載數(shù)據(jù)、更新系 統(tǒng)、檢查硬件時，用本控件提示用戶程序正在工作、 進度條控件的重要屬性有：Min（最小值）、Max（最 大值）、Value（當(dāng)前值）。 二、滑片控件（Slider） 滑片控件最大的特點是可以很方便地進行手工拖 動重定位，這種特性決定了它主要用于交互性較強的 場合，如著名的軟解壓軟件XingMPEG Player就使用 滑片控件來進行播放控制，它一面用來顯示播放進度， 同時用戶還可通過拖動滑片來選擇適當(dāng)?shù)耐斗盼恢谩?另外，win

7、95本身也大量使用了這種控件，如“控制面 板”中的“鼠標(biāo)”和“鍵盤”等。 滑片控件的重要屬性有：Min（最小值）、Max（最大 值）、SmallChange（最小變化值）、LargeChange（最大變 化值）、Orientation（方向）、TickStyle（標(biāo)尺和滑片風(fēng) 格）、TickFrequency（標(biāo)尺間隔）和Value（當(dāng)前值）等，其 中Orientation（取值為0或1）決定了滑片控件是水平 顯示還是豎直顯示，TickStyle（取值從1到4）可以控制 滑片的形狀、是否顯示標(biāo)尺及標(biāo)尺的位置。 三、3D面板控件（SSPanel） 3D面板控件是另一種常見的進度指示控件，其最 大

8、的物點是除了*以用進度條表示進度情況外，還可以 準(zhǔn)確地顯示出進度百分比。由于有了這種特性，3D 面板控件經(jīng)常被用于各種安裝程序，使用戶可以清楚 地了解軟件安裝的進展情況。 值得一提的是，3D面板控件還有一個非常有趣的 特性，即進度條的滾動方向有上->下、下->上、左->右、右->左四種，甚至可以以同心圓的方式從里向外滾 動。 3D面板控件的主要矚性有：FloodType（滾動類 型）、FloodPercent（進度百分比）、FloodshowPct（是否顯示進度百分比）等，其中FloodType（取值從1到5）決 定了進度條的滾動方向。 四、程序舉例 上面我們簡單介紹了

9、三種不同風(fēng)格的進程指示控 件各自的特點，下面我們以一個具體的例子來演示它 們的用法。 1窗體設(shè)計 新建一個普通窗體，在其中放置一個進度條控件、 一個滑片控件、一個3D面板控件和一個Timer控件， 主要的屬性設(shè)置如下：控件名稱 主要屬性 屬性值 Slider1 TickStyleOrientationMazMinValue 0-sldBoth0-sldHorizontal510000 ProgressBar1 MazMinValue 10000 Panel3dl FloodShowPctFloodTypeFloodPercent True1-LeftToRight0 Timer1 Interv

10、al 200 2代碼 在Time1的Timer事件中編寫如下代碼： Private Sub Timer1_Timer() If ProgressBar1.Value=100 Then '當(dāng)進度條到最右邊后，改變滑片控件與3D面板控件的風(fēng)格 with Sliderl '滑片風(fēng)格從0到3變化 If .TickStyle <3 then <3 Then .TickStyle=.TickStyle+1 Else .TickStyle = 0 '當(dāng)風(fēng)格變?yōu)?時改變水平（豎直）方向 .Orientation=.Orientation Xor l End If End W

11、ith With Panel3d1 '3D面板的風(fēng)格從1到5變化 If .FloodType <5 Then <5 Then .FloodType = .FloodType + 1 Else .FloodType=1 End If End With '設(shè)定三種控件的初始值 ProgressBar1.Value=0 SLider1.Value=0 Panel3d1.FloodPercent=0 Else '設(shè)定三種控件每次滑動的值 PrpgressBar1.Value=ProgressBar1.Value + 5 Slider1.Value=Slider1.V

12、alue +5 Panel3d1.FloodPcrcent = Panel3d1.FloodPercent + 5 End If End sub 3運行 設(shè)計完畢，按F5運行，三種進程指示控件競相在屏幕上展示自己的風(fēng)采，不斷地變化顯示風(fēng)格。 此圖是演示過程中的一個畫面。 本文介紹了Windows環(huán)境下幾種進程指示控件的特性和使用， 希望讀者能在自己的應(yīng)用程序中靈活地使用。 作者：王衛(wèi) 如何在程序中滾動TextBox? 源代碼如下，使用SendMessage發(fā)送消息EM_LINESCROLLOption ExplicitPublic Const EM_LINESCROLL = &HB6D

13、eclare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As LongPrivate Sub Command1_Click() SendMessage Text1.hwnd, EM_LINESCROLL, Val(txtX), ByVal CLng(Val(txtY)End Sub調(diào)用Office97技巧 Visual Basic 5

14、.0具有簡單、易學(xué)等特點，深受初學(xué)者的歡迎，但也有一些不如人意的地方。例如，不能像Word 97那樣進行拼寫檢查，不能像Excel 97那樣具有很多的函數(shù)。如果我們能將Word 97和Exce l97的功能使用在Visual Basic 5.0中，就可以使VB達到錦上添花的目的。 我們知道所有Office 97應(yīng)用程序都提供了ActiveX對象，我們可以在Visual Basic 5.0中使用它們。 調(diào)用Word 97 要想在VB中調(diào)用Word 97，首先要打開VB的“工程”菜單中的“引用”項目，并在該項目對話框中選定“Microsoft Word 8.0 Object Library”就可以

15、了。 下面我們舉例說明調(diào)用Word 97中的“拼寫檢查”和“單詞統(tǒng)計”功能。首先新建一個工程并在窗體上放置一個TextBox控件和兩個CommandButton控件，然后添入如下的代碼： Option Explicit Dim Doc As New Document Dim Visi As Boolean 圖1調(diào)用Word 97 拼寫檢查 Private Sub Command1Click() Form1.Caption =“拼寫檢查" Doc.Range.Text = Text1 確定范圍 Doc.Application.Visible = True將Word 97變?yōu)榭梢?App

16、Activate Doc.Application.Caption 激活Word 97 Doc.Range.CheckSpelling 拼寫檢查 Text1 = Doc.Range.Text Text1 = Left(Text1, Len(Text1)1) AppActivate Caption End Sub 統(tǒng)計單詞數(shù) Private Sub Command2Click() Dim Dlg As Word.Dialog Doc.Range = Text1.Text Set Dlg = Doc.Application.Dialogs (wdDialogDocumentStatistics) D

17、lg.Execute統(tǒng)計單詞和字符 Form1.Caption =“單詞數(shù):"Str(Dlg.Words)“詞" Str(Dlg.Characters)“字符"顯示統(tǒng)計結(jié)果 End Sub Private Sub FormLoad() Form1.Caption =“調(diào)用Word 97" Text1.Text =“" Command1.Caption =“拼寫檢查" Command2.Caption =“統(tǒng)計單詞" 使應(yīng)用程序可見 Visi = Doc.Application.Visible End Sub 關(guān)閉應(yīng)用程序 P

18、rivate Sub FormUnload(Cancel As Integer) If Visi Then關(guān)閉文件 Doc.Close savechanges:=False Else Doc.Application.Quit savechanges:=False關(guān)閉Word 97 End If End Sub 運行中的窗體如圖1所示。 圖2調(diào)用Excel 97 調(diào)用Excel 97 使用Excel Sheet對象的技術(shù)可以處理可變數(shù)量的數(shù)據(jù)，并將結(jié)果最后送到你的Visual Basic應(yīng)用程序中。例子如下： 新建一個工程并在新建的窗體上放置兩個TextBox控件和一個CommandButton

19、控件及六個Label控件。建設(shè)中的窗體如圖2所示。 程序代碼如下： Option Explicit Private Sub Command1Click() Dim xObject As Object 調(diào)用Excel 97 Set xObject = CreateObject(“Excel.Sheet") Set xObject = xObject.Application.ActiveWorkbook.ActiveSheet xObject.Range(“A1").Value = Text1.Text將數(shù)值送入Excel 97的A1單元格 xObject.Range(“A2&

20、quot;).Value = Text2.Text將數(shù)值送入Excel 97的A2單元格 xObject.Range(“A3").Formula =“=MAX(A1,A2)"將最大值送入A3單元格 xObject.Range(“A4").Formula =“=ATAN(A1/A2)180/PI()"將反正切值送入A4單元格 顯示計算的結(jié)果 Label1.Caption = xObject.Range(“A3").Value Label2.Caption = xObject.Range(“A4").Value Set xObject =

21、 Nothing End Sub Private Sub Form_Load() Text1.Text =“" Text2.Text =“" Label1.Caption =“" Label2.Caption =“" End Sub 該程序的作用是：首先在兩個文本框（Text1和Text2）輸入數(shù)值并分別將輸入的數(shù)值送入Excel 97的“A1”和“A2”單元格中，然后用Excel 97中的“Max()”函數(shù)將計算的結(jié)果送入“A3”單元格中；用反正切函數(shù)“ATAN()”進行計算并將結(jié)果送入“A4”單元格中，最后輸出。 作者：袁津生用VB制作TopMost

22、類型窗口 TopMost這個詞也許你很陌生，但具有TopMost窗口的軟件你應(yīng)該早就接觸過，如Office97、網(wǎng)絡(luò)吸血鬼、IE等。所謂TopMost窗口是指哪些始終出現(xiàn)在桌面的最前方且不會被其它窗口覆蓋的窗口，如網(wǎng)絡(luò)吸血鬼中的下載圖標(biāo)。 一般憎況下，在運行VB程序時，窗口總有可能會被其它程序的窗口所覆蓋。如何在自己的應(yīng)用程序中實現(xiàn)TopMost類型的窗口呢？我們可以通過調(diào)用Windows API函數(shù)SetWindowPos來實現(xiàn)。一、SetWindowPos函數(shù)介紹 SetWindowPos函數(shù)功能是將一個窗口在三維空間中移動，利用它，你可以改變一個窗口的位置，甚至可以在Z軸上改變（Z軸決定

23、了一個窗口和其它窗口的前后關(guān)系），你還可以改變窗口的尺寸。為了實現(xiàn)TopMost類型的窗口，我們只需調(diào)用該函數(shù)，將窗口放在所有窗口的前面并永遠保持在最前面即可。要想在VB中使用SetWindowPos函數(shù)，必須在程序的代碼模塊中進行如下的函數(shù)聲明：Declare Function SetwindowPos Lib "user32.dll" (ByVal hwnd As Long,ByVal hWndInsertAfter As Long,ByVal x As Long,ByVal y As Long,ByVal cx As Long,ByVal cy As Long,ByV

24、al wFlags as Long)As LongSetWindowPos函數(shù)各個參數(shù)的含義見表1。表1 SetWindowPos函數(shù)的參數(shù)解釋參數(shù)名 參數(shù)含義 hwnd 要移動的窗口的句柄（可以用窗體的hwnd屬性） hWndInsertAfter 關(guān)于如何在Z軸上放置窗口的標(biāo)記（具體見表2） x 相當(dāng)于窗口的Left屬性 y 相當(dāng)于窗口的Top屬性 cx 相當(dāng)于窗口的Right屬性 cy 相當(dāng)于窗口的Bottom屬性 wFlags 關(guān)于如何移動窗口的標(biāo)記（具體見表3） 表2 HWndInsertAfter參數(shù)的可能取值及含義hWndInsertAfter的可能取值 功能 某一窗口的句柄 將

25、窗口放在該句柄指定的窗口后面 HWND_BOTTOM(1) 把窗口放在Z軸的最后，即所有窗口的后面 HWND_TOP(0) 將窗口放在Z軸的前面，即所有窗口的前面 HWND_TOPMOST(-1) 使窗口成為“TopMost”類型的窗口，這種類型的窗口總是在其它窗口的前面，真到它被關(guān)閉 HWND_NOTOPMOST(-2) 將窗口放在所有“TopMost”類型窗口的后面、其它類型窗口的前面 表3 wFlags參數(shù)的可能值及含義wFlags參數(shù)的可能值 功能 SWP_DRAWFRAME(&H20) 移動窗口后重畫窗口及其上的所有內(nèi)容 SWP_HIDEWINDOW(&H80) 隱藏

26、窗口，窗口隱藏后既不出現(xiàn)在屏幕上也不出現(xiàn)在任務(wù)欄上，但它仍然處于激活狀態(tài) SWP_NOACTIVATE(&H10) 窗口移動后不激活窗口，當(dāng)然，如果窗口在移動前就是激活的則例外 SWP_NOCOPYBITS(&H100) 當(dāng)窗口移動后，不重畫它上面的任何內(nèi)容 SWP_NOMOVE(&H2) 不移動窗口（即忽略X和Y參數(shù)） SWP_NOSIZE(&H1) 不改變窗口尺寸（即忽略Cx和Cy參數(shù)） SWP_NOREDRAW(&H8) Do not remove the image of the window in its former positionfrom

27、 the screen. In other words,leave behind a ghost imageof the window in its old position SWP_NOZORDER(&H4) 不改變窗口聽Z軸位置（即忽略hWndInsertAfter參數(shù)） SWP_SHOWWINDOW(&H40) 顯示窗口（之前必須使用過SWP_HIDEWINDOW隱藏窗口） 前面已提到，利用SetWindowPos函數(shù)可以決定窗口在Z軸中的位置，具體如何放置，需根據(jù)表2給hWndInsertAfter參數(shù)賦予合適的值。 另外，wFlags參數(shù)為SetWindowPos函數(shù)

28、移動窗口提供了附加的特性，我們可以通過or運算將表3中若干個wFlags結(jié)合在一起使用，如SWP_NOMOVE Or SWP_NOSIZE既不移動窗口又不改變窗口的尺寸。但是要注意不要將功能沖突的值結(jié)合使用，如SWP_HIDEWINDOW Or SWP_SHOWWINDOW。二、程序舉例 下面，我們以一個簡單的例子說明SetWindowPos函數(shù)的用法及如何實現(xiàn)TopMost類型窗口。新建工程，在普通窗體Form1上放置兩個命令按鈕cmdNormal和cmdTopMost，命令按鈕的Caption屬性分別為“變成普通窗口”和“變成TopMost窗口”。cmdNormal的Enabled屬性為F

29、alse。為工程添加代碼模塊Moudall，在其中放置如下聲明代碼：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 LongPublic Const SWP_NOMOVE= &H2 '不移動窗體Public Const SWP_NOSIZE

30、=&H1 '不改變窗體尺寸Public Const Flag=SWP_NOMOVE Or SWP_NOSIZEPublic Const HWND_TOPMOST=-1 '窗體總在最前面Public Const HWND_NOTOPMOST=-2 '窗體不在最前面為窗體添加代碼如下：Private Sub cmdNormal_Click() cmdTopMost.Enabled=True cmdNormal. Enabled= False Form1.Captio = "現(xiàn)在是普通窗口" SetWindowPos Form1.hwnd,HWND

31、_NOTOPMOST,0,0,0,0,FlagEnd SubPrivate Sub cmdTopMost_Click() cmdTopMost.Enabled = False cmdNormal.Enabled = True Form1.Caption = "現(xiàn)在是TopMost窗口" SetWindowPos Form1.hwnd,HWND_TOPMOST,0,0,0,0,FlagEnd Sub 按下F5，運行程序，單擊“變成TopMost窗體”命令按鈕，此時窗口即成為TopMost類型。隨意打開桌面上的其它窗口，F(xiàn)orm1總是處在其它窗口的前面；如果單擊“變成普通窗體”

32、按鈕。則一切又恢復(fù)正常，一旦打開了其它窗口，則其它窗口會將Form1窗口覆蓋。 本程序用Visual Basic 5.0編寫，在Pwin95、Pwin97環(huán)境下運行正常。一組應(yīng)用技巧(制作透明窗體,路徑問題,創(chuàng)建快捷方式等) 路徑問題 很多程序員在打開文件、調(diào)用程序時喜歡使用絕對文件路徑,結(jié)果在另一臺計算機上運行時便會遇到路徑不對或需要重新拷貝到該目錄的問題。其實，只要使用相對路徑，就完全可以避免這個問題。在Windows下，某個程序一旦運行，除非特別指定了工作目錄，一般該程序文件所在的目錄就是工作目錄，其他目錄可以用工作目錄為參照系。在編程中"App.Path"即為當(dāng)前工

33、作目錄。另外，用安裝程序向?qū)е谱靼惭b盤時，只要在步驟"文件小結(jié)"中添加某文件時指定"文件詳細資料"的路徑即可安裝該文件到指定的目錄下。 生成透明窗體 利用API函數(shù)可做出透明窗體。以下為一種方法： Me.AutoRedraw = True hBitmap = CreateCompatibleBitmap(Me.hdc, 0, 0) SelectObject Me.hdc, hBitmap 調(diào)用Bitblt API函數(shù) 在編程中我們經(jīng)常遇到需要拷貝圖形的問題,一般利用API函數(shù)Bitblt或Stretchblt(后者可縮放). Declare Functi

34、on BitBlt Lib "gdi32" Alias "BitBlt" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long Declare Function StretchBlt Lib "gdi32"

35、 Alias "StretchBlt" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal nSrcWidth As Long, ByVal nSrcHeight As Long, ByVal dwRop As Long) As Long 當(dāng)所拷貝的圖形為畫圖語句所創(chuàng)建時,有時就會出現(xiàn)拷貝不上去的

36、毛病,這時不用著急,請確認(rèn)在拷貝之前對所畫的圖形進行刷新,即調(diào)用Refresh方法. Findwindow()函數(shù)用法 要使用此函數(shù),先從API VIEW中拷貝如下的FindWindow()函數(shù)的聲明： Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long 這個函數(shù)有兩個參數(shù)，第一個是要找的窗口的類，第二個是要找的窗口的標(biāo)題。在搜索的時 候不一定兩者都知

37、道，但至少要知道其中的一個。有的窗口的標(biāo)題是比較容易得到的，所以應(yīng)使用標(biāo)題進行搜索。但有些軟件的標(biāo)題是不固定的，如一些MDI程序，如果打開的文 件不同，窗口標(biāo)題也不同，這時使用窗口類來搜索就比較方便。如果找到了滿足條件的窗口，這個函數(shù)會返回該窗口的句柄，否則返回0。前面提到的VB的FindWindow()函數(shù)的聲明將兩個參數(shù)都定義為String類型，而在實際使用過 程中，如果我們要忽略某個參數(shù)，應(yīng)將該參數(shù)的定義由As String改為As Any。這里的As Any相當(dāng) 于C語言中的強制類型轉(zhuǎn)換。例如，如果我們忽略窗口的類，應(yīng)將定義修改如下： Declare Function FindWindow Lib "user32" Alias &quo