自动改变控件大小
当 窗 体 大 小 改 变 时, 如 何 动 态 的 改 变 控 件 的 大 小 是 许 多VB
程 序 员 头 痛 的 事。 有 的 人 设 置 窗 体Resizable 但 却 不 改 变 控
件 的 大 小; 有 的 人 则 根 据 控 件 的 绝 对 位 置 与 窗 口 大 小 相
加 减 的 办 法 来 重 新 定 位 控 件 与 改 变 大 小, 这 种 办 法 比 较
繁 琐, 且 不 可 重 用; 当 然 也 有 人 则 限 定 窗 口 干 脆 不 让 改 变。
有 没 有 一 种 简 便 易 行 的 办 法 ? 答 案 是 肯 定 的, 下 面 给 出
一 个 一 劳 永 逸 的 办 法, 源 程 序 如 下:
Option Explicit
Private FormOldWidth As Long '保存窗体的原始宽度
Private FormOldHeight As Long '保存窗体的原始高度
'在调用ResizeForm前先调用本函数
Public Sub ResizeInit(FormName As Form)
Dim Obj As Control
FormOldWidth = FormName.ScaleWidth
FormOldHeight = FormName.ScaleHeight
On Error Resume Next
For Each Obj In FormName
Obj.Tag = Obj.Left & " " & Obj.Top & " " & Obj.Width & " " & Obj.Height
& " "
Next Obj
本内容试读结束,登录后可阅读更多
下载后可阅读完整内容,剩余2页未读,立即下载