龙盟编程博客 | 无障碍搜索 | 云盘搜索神器
快速搜索
主页 > 软件开发 > VB开发 >

如何取得计算机的所有字型

时间:2009-12-30 15:42来源:未知 作者:admin 点击: 次
分享到：
取得屏幕字型：
　　　DimIAsLong
　　
　　　ForI=0ToScreen.FontCount-1
　　　Combo1.AddItemScreen.Fonts(I)
　　　Next
　　
　　取得打印机字型：
　　　DimIAsLong
　　
　　　ForI=0ToPrinter.FontCount-1
　　　Combo2.AddItemPrinter.Fonts(I)
　　　Next->

精彩图集
灵活实用的VBS入门教程基础篇
灵活实用的
Vbs COM之打开/保存文件脚本代码
Vbs COM之打开
当某IP 连接我机器的3389端口 报警的脚本
当某IP 连接

热门标签

目录列表 装载js 水印效果 博客园 网页图片 java多线程 数据报 over() 存入 EL表达式 php输入流 不能导出空表 An 等比缩放 mysql: 逐页 rashost 错误异常 read命令 服务器 菜单 tns配置 自动提交 防范 服务器安全 a元素 查改 ubgears 装的 命令记录 base64编码 MySQL慢查询 platform 支付页面 VPN 函数形参 PHP PHP判 清理日志 503服务 最大上传附件 排行 kvm curator 项中 button 层 后代元素 2013 查看数组信息 JQueryJcrop 搭建 电池电量 右对齐 连续日期 sql注入漏 排序算法分解 很大 重装失败 队列 c++遍历

赞助商链接