2010-11-02 22:45 【 转 】 vb 界 面 美 化 vb 界 面 如 何 美 化 一 、 网 上 搜 索 VB 皮 肤 控 件 , 一 般 为 了 更 加 美 化 都 是 做 异 性 窗 体 , 用 图 片 做 背 景 , 然后 去 掉 窗 体 边 框 , 设 置 窗 体 颜 色 为 透 明 , 这 个 在 这 里 就 不 详 细 说 , 还 要 加 上 拖 动无 边 框 窗 体 的 代 码 , 这 样 就 可 以 了 , 至 于 其 他 按 钮 也 可 以 用 图 片 代 替 下 面 这 个图 片 是 我 做 的 仿 酷 狗 播 放 器 , 全 是 由 图 片 构 成 的 二 、 利 用 V B 做 美 化 界 面 如 果 大 家 用 过 《 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...