VSTO开发记录
VSTO开发 VB获取系统字体列表
VSTO开发 FolderBrowserDialog文件夹选择控件的使用
VSTO开发 FontDialog选择字体基础使用
本文档使用 MrDoc 发布
-
+
home page
VSTO开发 VB获取系统字体列表
``` Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load Button1.Text = "确定" Dim FontList As Object FontList = app.Application.CommandBars("Formatting").FindControl(Id:=1728) If FontList Is Nothing Then Dim TempBar As Object TempBar = app.Application.CommandBars.Add FontList = TempBar.Controls.Add(ID:=1728) End If For I = 0 To FontList.ListCount - 1 fontName.Items.Add(FontList.List(I + 1)) Next I fontName.Text = "微软雅黑" On Error Resume Next End Sub ```  
似最初
Nov. 26, 2021, 11:18 p.m.
Share documents
Collection documents
Last
Next
Scan wechat
Copy link
Scan your mobile phone to share
Copy link
关于 MrDoc
觅思文档MrDoc
是
州的先生
开发并开源的在线文档系统，其适合作为个人和小型团队的云笔记、文档和知识库管理工具。
如果觅思文档给你或你的团队带来了帮助，欢迎对作者进行一些打赏捐助，这将有力支持作者持续投入精力更新和维护觅思文档，感谢你的捐助！
>>>捐助鸣谢列表
微信
支付宝
QQ
PayPal
Markdown文件
share
link
type
password
Update password
