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

VB 列出系统所有字体

时间:2009-12-30 15:42来源:未知 作者:admin 点击: 次
分享到：
Private Sub FORM_Load()
Dim counter As Integer
For counter = 0 To Screen.FontCount - 1
List1.AddItem Screen.Fonts(counter)
Next
End Sub
Private Sub List1_Click()
Static tempheight As Single
If tempheight = 0 Then tempheight = List1.Height
Text1.FontSize = 16
Text1.Font.Name = List1.List(List1.ListIndex)
List1.Height = tempheight
End Sub
精彩图集
灵活实用的VBS入门教程基础篇
灵活实用的
Vbs COM之打开/保存文件脚本代码
Vbs COM之打开
当某IP 连接我机器的3389端口 报警的脚本
当某IP 连接

热门标签

初始化对象 可折叠 python函数 积累 响应缓冲区 作用 图片旋转效果 web环境 php解压文件 硬盘 https 汇编语言 批处理 增量备份 留言板 网络接口 多条件 php读写文件 Logger.getLo 限速 移位运算符 1067 file_get_con curl访问 引擎优化 监听 PHP多线程 短信 何用 失效 文本文件分割 分屏显示 追加文件内 墨迹天气 第一个 跨表复制 PHP php解决约 启动线程 DLL 公式运算 伪造数据 目录权限 null 转换器 aspx页面 跟随滚动条 检测 验证码图片 公众平台 PHP禁止IP 系统安装 distributor_ bisect 数据库导出 sql批量更新 增列 undo损坏 血压计 合计 上传限制

赞助商链接