怎样输出旋转文字？

2004-12-07 02:00:40 166 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

WSL基础环境配置方案通过以上步骤，您已经在 Windows 的 WSL 环境中成功搭建了一个完整的基础开发环境，包含 Docker、Kubernetes、Helm、kubectl、yq、Git 等工具。这套环境特别适用于在国内使用阿里云镜像服务部署和管理 Tekton，提升了开发和运维的效率和稳定性。阅读详情

比如将"二"旋转90度输出成“||”？

...全文

配置xen上VM混杂模式，使其能捕获物理网络流量本文目的：配置VM和xen相应的物理网卡（pif）和虚拟网卡（vi 阅读详情

zhourongbiao

VB基础类 7,788 成员 197,583 内容

+ 关注 + 加入社区

切换为时间正序

韧恒 2004-12-07

打赏
举报

唉，分略多一点总是有人顶，一转眼的工夫就被顶到后排了。 ^_^

韧恒 2004-12-07

打赏
举报

Private Const LF_FACESIZE = 32 ' 最长的字体名称
Private Const SYSTEM_FONT = 13

Private Const VARIABLE_PITCH = 2 ' 字体族

Private Const FF_DONTCARE = 0 '
Private Const FF_ROMAN = 16 ' 字体宽度可变，Times Roman, Century ' Schoolbook等
Private Const FF_SWISS = 32 ' 宽度可变，带衬线，如Helvetica, Swiss等
Private Const FF_MODERN = 48 ' 具有规定的宽度，衬线可有可无，
' 如Pica, Elite, Courier等等.
Private Const FF_SCRIPT = 64 ' 手写体，如Cursive
Private Const FF_DECORATIVE = 80 ' 特殊字体，如Old English

'/*********************/
'/* 2. 类型声明部分 */
'/*********************/
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(LF_FACESIZE) As Byte
End Type

'/*********************/
'/* 4. 函数声明部分 */
'/*********************/
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
Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long
Private Declare Function GetStockObject Lib "gdi32" (ByVal nIndex As Long) As Long
Private Declare Function GDIGetObject Lib "gdi32" Alias "GetObjectA" (ByVal hObject As Long, ByVal nCount As Long, lpObject As Any) As Long
Private Declare Function TextOut Lib "gdi32" Alias "TextOutA" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal lpString As String, ByVal nCount As Long) As Long

Private Declare Function lstrlen Lib "kernel32" Alias "lstrlenA" (ByVal lpString As String) As Long

'******************************************
' hDestDC: 显示文字的控件句柄
' Text: 要显示的文字
' x, y: 显示文字的位置
' LineAngle: 角度
'******************************************
Private Sub RotPrint(ByVal hDestDC As Long, Text As String, x As Long, y As Long, LineAngle As Long)
Dim hFont As Long, hOldFont As Long, r As Long
Dim Font As LOGFONT

hOldFont = SelectObject(hDestDC, GetStockObject(SYSTEM_FONT))

GDIGetObject hOldFont, Len(Font), Font

' 填充LOGFONT结构
Font.lfEscapement = LineAngle

Font.lfPitchAndFamily = VARIABLE_PITCH Or FF_DONTCARE

' 创建字体
hFont = CreateFontIndirect(Font)

' 选择旋转字体
r = SelectObject(hDestDC, hFont)

' 显示字体
TextOut hDestDC, x, y, Text, lstrlen(Text)

' 恢复原字体
hFont = SelectObject(hDestDC, hOldFont)

' 删除创建的字体
DeleteObject hFont
End Sub

' 绘制
Private Sub Form_Paint()
Dim nAngle As Long

Cls
For nAngle = 20 To 90 Step 10
ForeColor = QBColor(nAngle / 10 - 2)
RotPrint hdc, VBCSTEXT, 10, 290, nAngle * 10
Next
End Sub

完整的例子：
http://www.vb99.com/loaddown.asp?tid=1&pathid=7&Filenames=97

aohan 2004-12-07

打赏
举报

up了

guoxu_009 2004-12-07

打赏
举报

帮顶！

chuting1 2004-12-07

打赏
举报

哈哈
搜索一下吧

AprilSong 2004-12-07

打赏
举报

看这里～

http://community.csdn.net/Expert/topic/3479/3479779.xml

怎样输出旋转文字？

相关推荐