在運行時刻創建可改變尺寸的控件

2024-07-21 02:24:11

字體：大中小

來源：轉載

供稿：網友

商業源碼熱門下載www.html.org.cn

我們可以將許多不同的控件，例如文本框控件，添加到visual basic 的窗體上。在設計期間，可以調整控件的大小和位置。文本介紹如何從一個visual basic 應用程序中，在運行時刻修改這些控件的尺寸。
運行時刻重設控件的尺寸 ---- 當設計visual basic 應用程序時，可以簡單地按照需要將控件添加到窗體上，例如，文本框控件為程序提供了一個最小功能的字處理程序的特性。
---- 控件的尺寸必須在設計期間設置。然而，通過使用兩個windows api 函數：getwindowlong 以及setwindowlong，我們可以實現在運行時刻改變一個控件，例如一個文本框控件的大小。

---- 當將一個控件，例如一個文本框控件添加到visual basic 應用程序中時，本質上是創建了一個新的窗口。每個在windows 操作系統中被創建的窗口都具有某種與之相關的風格屬性，例如，一個文本框控件可能具有es_multiline 的窗口風格。這告訴windows 該控件是一個多行編輯控件。

---- 通常，一個文本框控件不能在運行時刻被重設大小。然而，通過改變控件的風格屬性，用戶將能夠在程序運行期間調整文本框的物理尺寸。

---- 這可以通過調用getwindowlong 和setwindowlong 函數來完成。首先，調用getwindowlong 函數以提取該文本框控件當前的窗口風格屬性。其次，可以使用or 位操作符為該文本框控件設置ws_thickframe 屬性。一個具有ws_thickframe 屬性的窗口會在它的邊界繪制一個粗框。可以使用該邊框來改變窗口的大小。

---- 然后運行setwindowlong 函數，它告訴windows 修改文本框控件的風格屬性。

---- 最后，固定文本框最新的尺寸，以便它的新位置和尺寸被注冊在其下的窗體中，可以調用setwindowpos 函數來完成這項工作。

樣例程序 ---- 該程序顯示了在visual basic 中，如何在運行時刻創建一個可變大小的文本框控件。
---- 1. 在visual basic 中開始一個新的工程，采用缺省的方法建立form1。
---- 2. 將如下常量和聲明語句添加到form1 的通用聲明部分中（注意每個聲明語句需要被書寫在一行內）：

---- private declare function getwindowlong lib "user" (byval hwnd as integer, byval nindex as integer) as long
---- private declare function setwindowlong lib "user" (byval hwnd as integer, byval nindex as integer, byval dwnewlong as long) as long
---- private declare sub setwindowpos lib "user" (byval hwnd as integer, byval hwndinsertafter as integer, byval x as integer, byval y as integer, byval cx as integer, byval cy as integer, byval wflags as integer)
---- const swp_nosize = &h1
---- const swp_nozorder = &h4
---- const swp_nomove = &h2
---- const swp_drawframe = &h20
---- const gwl_style = (-16)
---- const ws_thickframe = &h40000

---- 對于32 位環境下使用visual basic 5.0 的用戶，需要將如下聲明語句添加到form1 的通用聲明部分中（注意每個聲明語句需要被書寫在一行內）：

---- private declare function getwindowlong lib "user32" alias "getwindowlonga" (byval hwnd as long, byval nindex as long) as long
---- private declare function setwindowlong lib "user32" alias "setwindowlonga" (byval hwnd as long, byval nindex as long, byval dwnewlong as long) as long
---- private 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
---- const swp_nosize = &h1
---- const swp_nozorder = &h4
---- const swp_nomove = &h2
---- const swp_drawframe = &h20
---- const gwl_style = (-16)
---- const ws_thickframe = &h40000

---- 3. 在form1 上添加一個命令按鈕控件，采用缺省的方法建立comand1。將它的caption 屬性設置為“ 改變文本框控件大小”

---- 4. 將如下代碼添加到command1 的單擊事件中：

---- private sub command1_click()
---- resizecontrol text1, form1
---- end sub

---- 5. 在form1 上添加一個文本框控件，采用缺省的方法建立text1。

---- 6. 創建一個名為resizecontrol 的新函數，將如下代碼添加到該函數中：

---- sub resizecontrol(controlname as control, formname as form)
---- dim newstyle as long
---- newstyle = getwindowlong(controlname.hwnd, gwl_style)
---- newstyle = newstyle or ws_thickframe
---- newstyle = setwindowlong(text1.hwnd, gwl_style, newstyle)
---- setwindowpos controlname.hwnd, formname.hwnd, 0, 0, 0, 0, swp_nozorder or swp_nosize or swp_nomove or swp_drawframe
---- end sub

---- 按下f5 來運行該樣例程序，單擊命令按鈕，可以將文本框的大小按照需要進行改變.

上一篇：登陸框控件

下一篇：實用的TextBox控件的Undo屬性