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

原创 2004年07月14日 20:17:00
我 们 可 以 将 许 多 不 同 的 控 件, 例 如 文 本 框 控 件, 添 加 到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 来 运 行 该 样 例 程 序, 单 击 命 令 按 钮, 可 以 将 文 本 框 的 大 小 按 照 需 要 进 行 改 变.

2014年24段魔尺变三叶花视频教程

2014年24段魔尺变三叶花视频教程(升级版)偶是真心喜欢24段魔尺制作的三叶花,那是相当漂亮,体现了几何美,对称美,空间美,色彩美,见下图。三叶花,又叫三叶草,或者魔尺心。     偶学习和熟练掌握...
  • littletigerat
  • littletigerat
  • 2014年09月20日 11:22
  • 106177

最美丽的花--百变魔尺-24段魔尺玩法

最美丽的花--百变魔尺-24段魔尺玩法
  • littletigerat
  • littletigerat
  • 2016年05月08日 13:43
  • 5818

腰围2尺1,2,3,4,5,6,7,8寸分别等于是多少厘米/英寸(对照表)

腰围2尺1,2,3,4,5,6,7,8,9寸转换结果: ■70厘米 ■2尺1 ●26英寸 ■74厘米 ■2尺2 ●28英寸 ■76厘米 ■2尺3 ●29英寸 ■78厘米 ■2尺35●30...
  • amanda8828
  • amanda8828
  • 2012年12月17日 21:22
  • 77680

为什么24阶魔尺照着感觉就能扭出正方体

24阶魔尺
  • nameofcsdn
  • nameofcsdn
  • 2016年09月22日 20:58
  • 4090

2014年24段魔尺如何变球的视频教程

魔方玩过了,哥最近恋上魔尺。哥疯狂迷上魔尺。为此,还专门搞了一个魔尺世界网站:www.wanmochi.com24段魔尺变球,优酷网上有很多视频,但偶觉得,学习起来,还是挺费劲。今偶就果断显身,录了优...
  • littletigerat
  • littletigerat
  • 2014年09月17日 11:44
  • 14688

2014年24段魔尺变球视频教程(升级版)

2014年24段魔尺变球视频教程(升级版)2014-09-14 23:27曾在优酷网上传了24段魔尺变球的视频教程。互联网思维讲究:迭代思维,极致思维。今天2014-09-18 23:02,偶又专门录...
  • littletigerat
  • littletigerat
  • 2014年09月19日 00:38
  • 18086

24段魔尺--小海龟图案

24段魔尺小海龟图案
  • littletigerat
  • littletigerat
  • 2017年04月16日 08:36
  • 1469

24段魔尺,可以折出哪些精美图案

24段魔尺,可以折出哪些精美图案24段魔尺,究竟可以叠成哪些精美图案?球、小乌龟、十字架、三叶花、三角形、牛魔王、音符是大家比较熟悉的。偶对这个问题,比较感兴趣。先将网络上流传的24段魔尺折出的精美图...
  • littletigerat
  • littletigerat
  • 2014年09月21日 15:56
  • 114989

最新最潮的24段魔尺立体几何玩法(2016版)

最新最潮的24段魔尺立体几何玩法(2016版)         上述玩法,典型立体几何玩法,把几何图形对称之美展现的淋漓尽致,充分挖掘玩家的空间观察力、洞察力和想象力,亲爱的玩家,您会玩吗?...
  • littletigerat
  • littletigerat
  • 2016年05月09日 08:26
  • 2898

24段魔尺,可以折出哪些精美图案(续)

24段魔尺,可以折出哪些精美图案(续)偶对这个问题,比较感兴趣。先将网络上流传的24段魔尺折出的精美图案,进行展示。小小24段魔尺,真是变化万千。...
  • littletigerat
  • littletigerat
  • 2014年09月21日 16:08
  • 30066
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:在 运 行 时 刻 创 建 可 改 变 尺 寸 的 控 件
举报原因:
原因补充:

(最多只允许输入30个字)