2010-11-02 22:45 【 转 】 vb 界 面 美 化 vb 界 面 如 何 美 化 一 、 网 上 搜 索 VB 皮 肤 控 件 ， 一 般 为 了 更 加 美 化 都 是 做 异 性 窗 体 ， 用 图 片 做 背 景 ， 然后 去 掉 窗 体 边 框 ， 设 置 窗 体 颜 色 为 透 明 ， 这 个 在 这 里 就 不 详 细 说 ， 还 要 加 上 拖 动无 边 框 窗 体 的 代 码 ， 这 样 就 可 以 了 ， 至 于 其 他 按 钮 也 可 以 用 图 片 代 替 下 面 这 个图 片 是 我 做 的 仿 酷 狗 播 放 器 ， 全 是 由 图 片 构 成 的 二 、 利 用 Ｖ Ｂ 做 美 化 界 面 如 果 大 家 用 过 《 Windows 优 化 大 师 》 ， 肯 定 会 被 它 的 界 面 所 倾 倒 ， 其 实 利 用ActiveSkin 就 可 以 办 到 ,甚 至 更 好 ,但 是 如 果 要 做 的 共 享 软 件 只 是 一 个 文 件 ,在加 上 几 个 OCX 累 赘 ,似 乎 很 是 不 好 ,看 看 VB 是 怎 么利 用 别的 东西来实 现的 吧。 首先新建一 个 EXE 工程， 再在 窗 体 上 拖 几 个 Label 控 件 ， 看 看 Label 的 强大 功能吧， 原理就 是 利 用 Label 来模拟一 个 按 钮 ， 但 是 首先要 将Label 控 件 的 属性 要 调一 下 ， Name： LblBtn， BorderStyle: 1， Appearance: 0， Alignment: 2， 这 样 一 个 按 钮 的 雏形就 已经出来了 ， 如 果 工程量很 大 ， 可 以 将多个 Label控 件 的 Name 属性 设 为 一 样 的 ， 对于 按 钮 的 识别就 要 靠识别Index 属性 了 ， 为 了方便起见， 在 进入到 代 码 编辑窗 口， 输入以 下 代 码 ： Private Const LBL_BACK_COLOR ＝ &HE0E0E0 ’正常时 Label 控 件 的 背 景 色 Private Const LBL_WHEN_MOUSE_MOVE ＝ &HC0C0C0 ’鼠标移动 时 Label 的 背 景色 Private Const LBL_WHEN_MOUSE_DOWN ＝ &H808080 ’鼠标按 下 时 Label 的 背 景色 再在Form 的Load 事件中输入以下内容 Private Sub Form_Load（） Dim Count As Integer For Count ＝ 0 To 3 ’请将此出的3 换成你的LblBtn 数量的个数－1 LblBtn（Cou...
