发信人: mendy.bbs@bbs.nju.edu.cn (孟迪), 信区: cnprogram
标  题: VB 4.0 编 程 技 巧 九 则 
发信站: nju_bbs (Mon Apr 20 04:42:30 1998)
转信站: Lilac!ustcnews!nju_bbs

发信人: DarkGod (剑神一笑), 信区: RAD
标  题: VB 4.0 编 程 技 巧 九 则 
发信站: '3m紫金飞鸿m' (Fri Feb 20 19:23:48 1998) , 站内信件

　1、 一 次 在 窗 体 中 加 入 多 个 相 同 控 件 的 快 捷 方 法 

　　 比 如， 要 在 窗 体 中 一 次 加 入 五 个 命 令 按 钮， 一 般 采 用 的 方 法 是 双 击 工
具 箱 中 的 命 令 按 钮 五 次， 然 后 在 窗 体 中 将 按 钮 拖 放 到 合 适 的 位 置。 其 实，
按 住CTRL 键， 用 鼠 标 单 击 工 具 箱 中 的 命 令 按 钮， 然 后 在 窗 体 中 的 合 适 位
置 用 鼠 标 拉 开 一 个 框， 松 开 鼠 标 即 可 放 置 一 个 命 令 按 钮， 接 下 来 继 续 拉
开 四 个 框 就 可 以 放 置 其 余 的 四 个 命 令 按 钮， 当 不 再 需 要 放 置 时， 单 击 一
下 鼠 标 左 键（ 不 要 移 动 鼠 标） 或 单 击 工 具 箱 中 的 鼠 标 指 针 图 标 即 可。 

　　2、 利 用With...End With 结 构 简 化 程 序， 提 高 效 率 

　　 该 结 构 是VB 4.0 中 新 增 的， 特 别 适 合 同 时 查 询 或 改 变 某 个 对 象 的 属 
性， 既 简 化 了 代 码， 又 提 高 了 效 率。 例 如， 修 改 一 个 文 本 框 的 属 性 代 码 ： 

　　text1.text="ok" 

　　text1.left=20 

　　text1.top=200 

　　text1.fontsize=12 

　　 利 用WITH 结 构 可 将 其 改 写 为 ： 

　　With text1 

　　 .text="ok" 

　　 .left=20 

　　 .top=200 

　　 .fontsize=12 

　　End With 

　　3、 从 内 存 中 彻 底 移 走 窗 体 

　　 在VB 4.0 中， 使 用UNLOAD 命 令 可 将 一 个 窗 体 关 闭。 但 是， 该 命 令 并 不
能 将 窗 体 从 内 存 中 完 全 清 除， 要 想 完 全 移 走 窗 体， 则 需 要 将 窗 体 设 置 为
nothing， 使 用 的 语 句 为Set Form1 = Nothing。 

　　4、VB 4.0 中 的 条 件 编 译 

　　VB 4.0 中 的 条 件 编 译 可 用 来 实 现 在 哪 种 条 件 下 编 译 哪 一 部 分 代 码， 比
如 可 以 使 程 序 能 同 时 在16 位 和32 位 环 境 下 编 译。 采 用 的 方 式 为#IF...#END IF
， 

　　#IF 条 件 为 真 THEN 

　　.... 

　　#END IF 

　　5、 窗 体 中 控 件 的 微 调 

　　 在VB 4.0 中， 要 想 微 调 控 件 的 位 置， 可 在 按 住CTRL 键 的 同 时 用 方 向 键
来 移 动， 每 次 移 动 一 个 像 素 的 距 离。 要 想 微 调 控 件 的 大 小 则 可 在 按 住
SHIFT 键 的 同 时 用 方 向 键 来 进 行 调 整。 此 处 有 一 个 前 提， 即EDIT 菜 单 中 的
“Align to Grid” 选 项 必 须 是 无 效 状 态。 

　　6、 在 设 计 阶 段 调 整DBgrid 行、 列 的 宽 度 

　　 在DBgrid 控 件 上 单 击 鼠 标 右 键， 在 快 捷 菜 单 中 选 择EDIT， 这 样 就 可 以
调 整 行、 列 的 宽 度 了。 

　　7、 自 定 义 鼠 标 样 式 

　　 在 属 性 窗 口 将MousePointer 属 性 设 定 为13-Custom， 然 后 在MouseIcon 属
性 中 选 择 用 户 自 己 喜 爱 的ICON 图 标 即 可。 这 两 个 属 性 必 须 一 起 设 定， 否
则 无 效， 并 自 动 使 用 缺 省 样 式。 

　　8、 生 成 控 件 组 的 快 捷 方 法 

　　 生 成 控 件 数 组 的 一 般 方 法 是 ： 将 控 件 加 入 窗 体 后， 将 它 们 的 名 字
（NAME） 改 为 相 同， 这 种 方 法 比 较 麻 烦。 快 捷 的 方 法 是 ： 先 在 窗 体 中 加
入 一 个 控 件， 在 控 件 上 单 击 鼠 标 右 键， 在 快 捷 菜 单 中 选 择“Copy”， 然 后
再 单 击 鼠 标 右 键， 选 择“Paste”，VB 将 提 示 是 否 生 成 控 件 组， 选 择Yes， 这
样 可 迅 速 生 成 一 个 控 件 组。 

　　9、 利 用 标 签 转 移 焦 点 

　　 比 如 窗 体 中 有 文 本 框 用 来 输 入 信 息， 要 使 其 获 得 输 入 焦 点 一 般 需 要
用 鼠 标 单 击， 其 实 我 们 还 可 以 利 用 标 签 并 通 过 热 键 输 入 来 实 现。 有 一 点
特 殊 的 地 方 是 热 键 必 须 用& 加 以 定 义， 比 如 定 义Label1.Caption ＝“&Name
”， 然 后 设 定 其TabIndex 值 比 文 本 框 的TabIndex 值 低1， 这 样 程 序 运 行 后 用
ALT＋N 就 可 将 焦 点 转 移 到 文 本 框， 在 经 常 要 用 键 盘 输 入 时 则 比 用 鼠 标 还
要 方 便 些。 
--

;0m        ---------------------------------------;0m
;0m
;0m              浮云游子意        落日故人情;0m
;0m              挥手自兹去        萧萧斑马鸣;0m
;0m        ---------------------------------------;0m

m;31m※ 来源:·紫金飞鸿 bbs.njupt.edu.cn·[FROM: 166.111.5.164]m

--
※ 来源:．南大小百合信息交换站 bbs.nju.edu.cn．[FROM: a507yjh.nju.edu]