7,765
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
xiaoxi777 2006-12-19
- 打赏
- 举报
up
tmd007 2006-12-16
- 打赏
- 举报
Private Sub Form_Load()
Dim i
For i = 0 To Screen.FontCount - 1
List1.AddItem Screen.Fonts(i)
Next
Text1 = "国": Text1.FontSize = 100: FontSize = 100
End Sub
Private Sub List1_Click()
Text1.FontName = List1.Text: FontName = List1.Text
Text1.Width = Me.TextWidth("国"): Text1.Height = Me.TextHeight("国")
End Sub
Dim i
For i = 0 To Screen.FontCount - 1
List1.AddItem Screen.Fonts(i)
Next
Text1 = "国": Text1.FontSize = 100: FontSize = 100
End Sub
Private Sub List1_Click()
Text1.FontName = List1.Text: FontName = List1.Text
Text1.Width = Me.TextWidth("国"): Text1.Height = Me.TextHeight("国")
End Sub
wada0880 2006-12-16
- 打赏
- 举报
下載字體庫啊
xiaoxi777 2006-12-16
- 打赏
- 举报
up
xiaoxi777 2006-12-16
- 打赏
- 举报
可问题是我的电脑没有啊
earthpea 2006-12-16
- 打赏
- 举报
不用找呀，系统里的字体只要是标准的都可以有@字体的，也就是转了90度的
西雀 2006-12-16
- 打赏
- 举报
乖乖
stlyl 2006-12-16
- 打赏
- 举报
装office
xiaoxi777 2006-12-16
- 打赏
- 举报
在那里下载呢？我以前怎么就有的
也不知道装了什么软件有的
也不知道装了什么软件有的
