怎样在vb中载入某种字体文件.txt

VB技巧问答10000例 VB技巧问答10000例

加 载 字 体 使 用 API函 数 CreateScalableFontResource和 AddFontResource。 如 果 不 希 望 使 用 字 体 ， 可 以 使 用 RemoveResource。 加 载 后 使 用 字 体 的 方 法 和 Windows自 带 的 字 体 没 有 区 别 。 使 用 AddFontResource加 入 的 字 体 在 计 算 机 启 动 后 不 会 自 动 加 载 ， 如 果 希 望 永 久 使 用 某 字 体 ， 应 该 把 文 件 拷 贝 到 Fonts目 录 ， 并 修 改 注 册 表 。 你 可 以 参 考 微 软 的 Knowledge Base的 文 章：“ HOWTO: Programmatically Install a True Type Font” ， 这 是 使 用 FoxPro写 的 ， 但 是 方 法 适 用 于 其 他 语 言 。