在运行时刻创建可改变尺寸的控件

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属性