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

我 们 可 以 将 许 多 不 同 的 控 件， 例 如 文 本 框 控 件， 添 加 到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 来 运 行 该 样 例 程 序， 单 击 命 令 按 钮， 可 以 将 文 本 框 的 大 小 按 照 需 要 进 行 改 变.