【VB开源代码栏目提醒】：网学会员为广大网友收集整理了，VB趣味小程序 - 开发文档，希望对大家有所帮助！

４· 总 ２） ·７ 　 （ ９ ２　 ＶＢ 趣 味 小 程 序　 ０ ９矩　 ２０ 趣 味 小 程 序　 　 徐 州 高 等 师 范 学校 现 代 教 育 技 术 系 黄　 敏　 ｕ　 ｓ ｌ ａｉ 可 视 化 编 程 语 言 ， Ｖｉ ａ Ｂ ｓｃ是 虽　 Ｐ ｉａｅＳ ｂｃ ３ ｖ ｉ （ 提 ｒ ｔ　 ｕ　ｍｄ 　Ｃｌ ｋ ）‘ 示 是 否 退 出　 Ｔ ｘ ６Ｔｅｔ＝　 男 ” ‘ 别 根 据 倒 数 第 ２位 判　 ｃ ｅ ｔ． ｘ 性然 功能 强大 ， 单 易学 ， 在平 时 的学 习 简 但 　 ｇｏ　 ”＆ Ｃ ｒ 断 得 到　 Ｍｓ Ｂ ｘ 欢 迎 再 次 使 用 本 程 序 。

     ｈ　 １ Ｌ ” ｂ ｎｙ中 ， 习 者 往 往 感 觉 枯 燥 乏 味 ， 兴 趣 深　 （ ３） ８ ” 祝 你 好 运 ！ ， ｖ ＯＫＯ ｌ ＋　 ｄＳ 　 Ｅｎ 　 ｕｈ 学 没 ｂ ｎ ｏ ｍａ ｉ ， ｖ ｌ ｆ ｒ ｔ ｎ　 关 于 Ｈ ｏ 　 ｉａｅ ｂ ｘｔ Ｐｒｖ ｔ　Ｓｕ 　Ｔｅ 　 １ ｙＰ ｅ ｓ（ ｙ ｃｉ Ｋｅ ｒ ｓ Ｋｅ Ａｓ ｉ　 既究 。

     如 果 引 入 趣 味 实用 的 例 子 ， 能 提 高　 一 ｄ Ｅｎ 　 　ｎｅ ｅ） 输 ８位 ， 能 包　 ＡｓＩｔｇｒ ‘ 人 身 份 证 号 码 为 １ 只 又学 习 者 的 学 习 兴 致 ， 能 让 他 们 对 所 学 的　 　 ｂ Ｅｎｄ Ｓｕ 　 含数字和 ｘ　 　知 识 印象 深 刻 。

     ｅ ｅ ｔＣａ ｅ Ｋｅ Ａｓ ｉ Ｓ ｌｃ 　 ｓ 　 ｙ ｃ ｉ 　 ｉ ａ ｅ Ｓ ｂ Ｔｉ ｒ Ｐｒｖ ｔ 　 ｕ 　 ｍｅ １ 一 ｍｅ （ 时 Ｔｉ ｒ ）’ 钟 工 作　１ 调 色 板　 每 ． ｓ产 生 一 组 随 机 数 ， 示 在 控 件 数 组　 时， ０１ 显 ｓ 　 ８ Ｔｏ ５ Ｃａ ｅ ４ 　 　 ７，８，８ ２ 　 ８，１ Ｏ 利 功 能 分 析 ： 用 三 个 水 平 滚 动 条 控 件　 ｔｘ１ ｅ ｔ　 ｓ　 ｓ　 Ｃａ ｅ Ｅｌ ｅ 绿 蓝 调设置 红、 、 的值 ， 用 ＲＧＢ 函 数 为 对　 ｒ ｉ一 ０ Ｔｏ ４ Ｆｏ 　 　 　　 Ｍｓ Ｂ ｘ 只能 输 入 数 字 和 字母 ｘ！ ｇ ｏ　 ”　 ｙ ｃｉ一 ０ Ｋｅ Ａｓ ｉ 　 　象 颜 色 属 性 赋值 。

     ｎ（ ０ ｄ） ｎ ＝ Ｉ ｔ １ ＊ Ｒｎ 　 Ｔｅ １ ｉ． ｘ — Ｓ ｒ￥（ ） ｘｔ （） Ｔｅ ｔ ｔ ｎ　 ｄ Ｓ ｌｃ 　 Ｅｎ 　 ｅ ｅ ｔ 滚 Ｓ ｒｌ 　 １ 界 面 设 计 ： 动 条 控 件 Ｈ ｃｏｌ 、 Ｎｅ ｔｉ ｘ 　 ｄ Ｓｕ 　 Ｅｎ 　 ｂ ｃｏｌ Ｈ ｃｏｌ 并 ２ ３ ｘＨＳ ｒｌ 、 Ｓ ｒｌ ， 将 它 们 ｍａ 的属 性　 ａ值设置 为 ２ ５ ｒｉ ， ５ ， ｎ值设置为 ０ 如图 １所示 。

     　 ｄ Ｓｕ 　 Ｅｎ 　 ｂ ５ 图片 自动展 开　 　 ３ 鼠 标 跟 随　 糖 　　臻 蒜 　 ｉ｜ 　 Ｅ《 　 糍 　燧 　 盥　 矮 辩 圉 噬辫《　 隧叠盔置　 功 能 分 析 ： 串 文 字 跟 随 鼠标 移 动 ， 一 一 利 用 窗 体 的 Ｍｏ ｓＭｏ ｅ事 件 实 现 。

     ｕｅ ｖ ｂ 　 ａ ｌ， 　 界 面 设 计 ： 个 标 签 控 件 ｌ ｅｌ 将 其　 ａｋ ｔｌ 　 ｂ ｃ ｓｙｅ属 性设 置 为 透 明 。

     图 １ 调 色 板　 图 ２ 抽 奖 程 序　 　 实现代码 ： 　 实现代码 ： Ｐｒｖ ｔ 　Ｓｕ 　Ｆｏ ｍ ｉａｅ ｂ ｒ — ｕｅ ｖ ｕｔｎ Ｍ ｏ ｓ Ｍ ｏ ｅ（Ｂ ｔ ｏ 　 ｉａｅ ｕ 　 Ｐｒｖ ｔ　Ｓ ｂ ＨＳ ｒ ｔｌ ｃ ｏｌ ａｇ ） 移 Ｃｈ ｎ ｅ（ ‘ 动　 　 ｎ ｅ ｒ ｈｉ Ａｓ Ｉ ｔ ｇ ｒ ｔ Ａｓ Ｓ ｎ ｌ Ａｓ Ｉ ｔ ｇｅ ，Ｓ ｆ　 　 ｎ ｅ ｅ ，Ｘ　 　 ｉ ｇ ｅ，Ｙ　 — ｃｏｌ 滑 块 时 ， 变 ＲＧ 第 一 个 参 数 值 ．ＨＳｒｌｌ的 改 Ｂ 　 　 ｉｇ ｅ　 Ａｓ Ｓ ｎ ｌ ） Ｂ 　将 此 时 的 ＲＧ 函数 值 作 为 窗 体 背 景 颜 色 。

     ｂｌ． ｆ Ｌａ ｅ １ Ｌｅ ｔ— Ｘ　 ｉ ａ ｅ Ｓ ｂ ＨＳ ｒ ｌｌ Ｐｒｖ ｔ 　 ｕ 　 ｃ ｏ ｌ Ｃｈ ｎ ｅ ） ａ ｇ （　 ｂｌ． ｐ Ｌａ ｅ １ Ｔｏ — Ｙ　 — ｏ ｍ ． ｃ Ｃｏ ｏ 　 ｆ ｒ １ Ｂａ ｋ ｌ ｒ —　 ＲＧＢ　 Ｅｎ 　 ｕ 　 ｄＳ ｂ 　 图 ４ 自动 展 开 的 图 片　（ ｃ ｏ ｌ ． ｌ ｅ， ＨＳ ｒ ｌ１ Ｖａ ｕ ｃ ｏ ｌ ． ｌ ｅ， ＨＳ ｒ ｌ２ Ｖａ ｕ 　 从 功 能 分 析 ：图 片 自动 展 开 ， 左 到 右　ＨＳ ｒ ｌ ． ｃ ｏｌ３ Ｖａ ｕ ） ｌｅ　 ４ 身 份 分 析 器　 　 依次动态展现 图片内容。

     Ｅｎ 　 ｕ 　 ｄＳ ｂ 根 　 功 能分 析 ： 据输 入 的身份 证 号码 ， 水 Ｓ ｒｌ 时　 ｉ 界 面 设 计 ： 平 滚 动 条 Ｈ ｃｏｌ， ｉ ａ ｅ Ｓ ｂ ＨＳ ｒ ｔ Ｐｒ ｖ ｔ 　 ｕ 　 ｅ ｏ ｌ ２ Ｃｈ ｎ ｅ ） ａ ｇ （　 分 析 出归 属 地 、 生 年 月 、 日、 别 等 。

     出 生 性 　 ｉ ｒ， ｉ ｒｌ 如 ｔ 　 钟 Ｔ ｍｅｌ 图 片 框 Ｐｃｕｅ ， 图 ４所 示 。

     一 ｆ ｒ １ Ｂａ ｋ ｌ ｒ ｏ ｍ ． ｃ Ｃｏ ｏ 　 —　 ＲＧＢ　 文 ｅ ｅｔ， ｔ、 ｔ、ｅ 界 面设 计 ： 本 框 ｔｘ １ ｔｘ Ｉ ｔ ｘ ２　 　 .