没有合适的资源?快使用搜索试试~ 我知道了~
资源推荐
资源详情
资源评论
运行时改变控件大小的两种方法
发表评论(0)作者:不详, 平台:VB6.0+Win98, 阅读:6624, 日期:2001-06-23
运行时改变控件大小的两种方法
作者:李法龙
---- 通 常 我 们 在 设 计 应 用 程 序 时 可 以 任 意 改 变 控 件 的 大 小( 除 去 象Timer 这 样 的 运 行 时 不 可 显 示 的 控 件), 以 使 其 满 足 我 们 的 实 际 需 要, 使 界 面 友 好 而 且 美 观 大 方。 但 有 些 时 候, 我 们 为 了 方 便 用 户, 需 要 提 供 在 运 行 时 刻 能 够 改 变 控 件 大 小 的 功 能, 使 用 户 能 够 根 据 程 序 显 示, 输 出 的 需 要 通 过 鼠 标 的 拖 放 改 变 控 件 的 大 小, 从 而 方 便 用 户 的 阅 读 浏 览 等。 本 文 就 此 向 诸 位 介 绍 两 种 方 法 来 达 到 此 目 的。
---- 我 们 知 道, 运 行 时 刻 可 见 的 控 件 都 具 有Top,Left,Height,Width 等 属 性, 用 以 定 位 其 在 窗 体 上 的 位 置 及 大 小, 在 运 行 时 刻 改 变 控 件 大 小 的 原 理 也 基 于 此。 通 过 鼠 标 的 拖 放 等 操 作, 动 态 改 变 控 件 的Top,Left,Bottom,Height 属 性 值, 从 而 定 制 控 件 的 大 小, 甚 至 拖 动 整 个 控 件。
---- 第 一 种 方 法 需 要Win32 API 函 数。 所 用 到 的API 函 数 有:
Declare Function ScreenToClient Lib "user32" (ByVal hwnd As Long, lpPoint As- POINTAPI) As Long
---- 获 得 鼠 标 的 屏 幕 坐 标 放 在lpPoint 中。
Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
---- 将 屏 幕 坐 标 转 化 成 客 户 区 坐 标 系 统 的 坐 标, 转 换 后 的 坐 标 仍 在lpPoint 中。
---- 新 开 一 个 工 程, 在Form1 上 放 一 个TextBox 控 件, 命 名 为Text1。 在Form 的MouseMove 事 件 中 捕 获 鼠 标 坐 标, 如 果 鼠 标 的 位 置 与Text1 的 边 界 相 距 很 近( 比 如 说50 Twips,150 效 果 比 较 好), 根 据 需 要 将 Form1 的MousePointer 属 性 值 为vbSizeNS( 垂- 直 尺 寸 线), 或vbSizeWE( 水- 平 尺 寸 线), 或vbSizeNESW( 右 上- 左 下 尺 寸 线), 或vbSizeNWSE( 左 上- 右 下 尺 寸 线)。 用 户 一 看 就 知 道 可 以 改 变 该 控 件 的 尺 寸。 而 在 其 余 区 域 则 将Form1 的MousePointer 属 性 设 成 缺 省 值(vbDefault)。 当 用 户 按 下 鼠 标 键 并 拖 动 鼠 标 时 根 据 当 前 的MousePointer 进 行 判 断 该 如 何 改 变 控 件 的 大 小。 具 体 操 作 可 参 看 附 带 的 例 程。
---- 第 二 中 方 法 不 需 要 调 用API 函 数, 但 需 要 额 外 的 控 件。 同 样 新 开 一 个 工 程, 在Form1 上 放 一 个TextBox 控 件, 命 名 为Text1。 然 后 紧 靠Text1 的 右 侧 放 一 个 高 度 与Text1 相 同 但 宽 度 尽 量 小 的PictureBox 控 件, 命 名 为Picture1。 宽 度 要 小 到 看 不 见 立 体 效 果。 将Picture1 的MousePointer 属 性 设 置 成9 (vbSizeWE) 。
---- Picture1 的MouseMove 事 件 如 下:
Private Sub Text1_MouseMove(Button As Integer, Shift As Integer, x As Single, y-As Single)
If Button< >1 Then Exit Sub
Picture1.Left=Picture1.Left+X
‘Move Picture
Text1.Width=Picture1.Left-Text1.Left
注释:Change TextBox注释:s size
End Sub
发表评论(0)作者:不详, 平台:VB6.0+Win98, 阅读:6624, 日期:2001-06-23
运行时改变控件大小的两种方法
作者:李法龙
---- 通 常 我 们 在 设 计 应 用 程 序 时 可 以 任 意 改 变 控 件 的 大 小( 除 去 象Timer 这 样 的 运 行 时 不 可 显 示 的 控 件), 以 使 其 满 足 我 们 的 实 际 需 要, 使 界 面 友 好 而 且 美 观 大 方。 但 有 些 时 候, 我 们 为 了 方 便 用 户, 需 要 提 供 在 运 行 时 刻 能 够 改 变 控 件 大 小 的 功 能, 使 用 户 能 够 根 据 程 序 显 示, 输 出 的 需 要 通 过 鼠 标 的 拖 放 改 变 控 件 的 大 小, 从 而 方 便 用 户 的 阅 读 浏 览 等。 本 文 就 此 向 诸 位 介 绍 两 种 方 法 来 达 到 此 目 的。
---- 我 们 知 道, 运 行 时 刻 可 见 的 控 件 都 具 有Top,Left,Height,Width 等 属 性, 用 以 定 位 其 在 窗 体 上 的 位 置 及 大 小, 在 运 行 时 刻 改 变 控 件 大 小 的 原 理 也 基 于 此。 通 过 鼠 标 的 拖 放 等 操 作, 动 态 改 变 控 件 的Top,Left,Bottom,Height 属 性 值, 从 而 定 制 控 件 的 大 小, 甚 至 拖 动 整 个 控 件。
---- 第 一 种 方 法 需 要Win32 API 函 数。 所 用 到 的API 函 数 有:
Declare Function ScreenToClient Lib "user32" (ByVal hwnd As Long, lpPoint As- POINTAPI) As Long
---- 获 得 鼠 标 的 屏 幕 坐 标 放 在lpPoint 中。
Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
---- 将 屏 幕 坐 标 转 化 成 客 户 区 坐 标 系 统 的 坐 标, 转 换 后 的 坐 标 仍 在lpPoint 中。
---- 新 开 一 个 工 程, 在Form1 上 放 一 个TextBox 控 件, 命 名 为Text1。 在Form 的MouseMove 事 件 中 捕 获 鼠 标 坐 标, 如 果 鼠 标 的 位 置 与Text1 的 边 界 相 距 很 近( 比 如 说50 Twips,150 效 果 比 较 好), 根 据 需 要 将 Form1 的MousePointer 属 性 值 为vbSizeNS( 垂- 直 尺 寸 线), 或vbSizeWE( 水- 平 尺 寸 线), 或vbSizeNESW( 右 上- 左 下 尺 寸 线), 或vbSizeNWSE( 左 上- 右 下 尺 寸 线)。 用 户 一 看 就 知 道 可 以 改 变 该 控 件 的 尺 寸。 而 在 其 余 区 域 则 将Form1 的MousePointer 属 性 设 成 缺 省 值(vbDefault)。 当 用 户 按 下 鼠 标 键 并 拖 动 鼠 标 时 根 据 当 前 的MousePointer 进 行 判 断 该 如 何 改 变 控 件 的 大 小。 具 体 操 作 可 参 看 附 带 的 例 程。
---- 第 二 中 方 法 不 需 要 调 用API 函 数, 但 需 要 额 外 的 控 件。 同 样 新 开 一 个 工 程, 在Form1 上 放 一 个TextBox 控 件, 命 名 为Text1。 然 后 紧 靠Text1 的 右 侧 放 一 个 高 度 与Text1 相 同 但 宽 度 尽 量 小 的PictureBox 控 件, 命 名 为Picture1。 宽 度 要 小 到 看 不 见 立 体 效 果。 将Picture1 的MousePointer 属 性 设 置 成9 (vbSizeWE) 。
---- Picture1 的MouseMove 事 件 如 下:
Private Sub Text1_MouseMove(Button As Integer, Shift As Integer, x As Single, y-As Single)
If Button< >1 Then Exit Sub
Picture1.Left=Picture1.Left+X
‘Move Picture
Text1.Width=Picture1.Left-Text1.Left
注释:Change TextBox注释:s size
End Sub
lifesky2006
- 粉丝: 1
- 资源: 8
上传资源 快速赚钱
- 我的内容管理 展开
- 我的资源 快来上传第一个资源
- 我的收益 登录查看自己的收益
- 我的积分 登录查看自己的积分
- 我的C币 登录后查看C币余额
- 我的收藏
- 我的下载
- 下载帮助
安全验证
文档复制为VIP权益,开通VIP直接复制
信息提交成功
- 1
- 2
- 3
- 4
- 5
- 6
前往页