更改场景字体
来源:互联网 发布:迷宫问题c语言递归 编辑:程序博客网 时间:2024/05/20 21:43
Private Type LOGFONT
lfHeight As Long
lfWidth As Long
lfEscapement As Long
lfOrientation As Long
lfWeight As Long
lfItalic As Byte
lfUnderline As Byte
lfStrikeOut As Byte
lfCharSet As Byte
lfOutPrecision As Byte
lfClipPrecision As Byte
lfQuality As Byte
lfPitchAndFamily As Byte
lfFaceName As String * 32
End Type
Private Declare Function CreateFontIndirect Lib "gdi32" Alias "CreateFontIndirectA" (lpLogFont As LOGFONT) As Long
Private Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long
Dim ln As LOGFONT
Private Sub Command1_Click()
ln.lfCharSet = 1
ln.lfHeight = 100
ln.lfFaceName = "华文新魏" & Chr$(0)
SelectObject Me.hdc, CreateFontIndirect(ln)
Print "中国"; "asd"
End Sub
lfHeight As Long
lfWidth As Long
lfEscapement As Long
lfOrientation As Long
lfWeight As Long
lfItalic As Byte
lfUnderline As Byte
lfStrikeOut As Byte
lfCharSet As Byte
lfOutPrecision As Byte
lfClipPrecision As Byte
lfQuality As Byte
lfPitchAndFamily As Byte
lfFaceName As String * 32
End Type
Private Declare Function CreateFontIndirect Lib "gdi32" Alias "CreateFontIndirectA" (lpLogFont As LOGFONT) As Long
Private Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long
Dim ln As LOGFONT
Private Sub Command1_Click()
ln.lfCharSet = 1
ln.lfHeight = 100
ln.lfFaceName = "华文新魏" & Chr$(0)
SelectObject Me.hdc, CreateFontIndirect(ln)
Print "中国"; "asd"
End Sub
- 更改场景字体
- 如何使用Viz Artist脚本更改场景中的文字字体
- ITextSymbol字体的更改
- TreeView更改字体
- 如何更改alert字体
- 更改JRE字体配置
- gnome-shell 字体更改
- ubuntu11.10字体更改
- 更改ListView字体颜色
- 更改cell字体
- unity3d ios 更改字体
- 更改Static Text字体
- eclipse更改字体
- LaTeX更改字体字号
- 更改公式中的字体
- 更改WebStrom主题字体
- Latex 更改section 字体
- 怎样更改iMindMap字体
- 如何理解路由器的包转发率
- QuickServer--在吵闹的环境里快速搭建自己的TcpServer(Pragmatic系列)
- 快速一次性读取ORACLE CLOB的方法
- textbox 禁止输入
- 在线书店销售系统设计
- 更改场景字体
- 在职必看!受益无穷的28条职场语录
- 国情专家胡鞍钢建议中国逐渐放宽生育控制政策
- 国家早应放开计划生育政策
- 如何学Linux
- Linux 创建文件系统及挂载文件系统流程详解
- 用 EVEREST Ultimate Edition 2006 检查计算机有没有超频
- 在 Windows 上空闲了,用CHKDSK检查磁盘
- 钱!