VB中,如何自动设置文字的大小,
我使用了VSPrinter控件, 可以获取最接近的字体大小。
Sub DoTextBoxes()
Dim s$, X!, Y!, wid!, fs!
Dim i As Long
VP。 StartDoc
fs = VP。FontSize
VP。IndentLeft = 50
VP。BrushColor = RGB(125 + Rnd * 125, 125 + Rnd * 125, 125 + Rnd * 125)
VP。 NewPage
VP。StartDoc
Dim W As Long
Dim H As Long
Dim N As Long
s = "9)做一个小方案，要考虑一下如何...全部
我使用了VSPrinter控件, 可以获取最接近的字体大小。
Sub DoTextBoxes()
Dim s$, X!, Y!, wid!, fs!
Dim i As Long
VP。
StartDoc
fs = VP。FontSize
VP。IndentLeft = 50
VP。BrushColor = RGB(125 + Rnd * 125, 125 + Rnd * 125, 125 + Rnd * 125)
VP。
NewPage
VP。StartDoc
Dim W As Long
Dim H As Long
Dim N As Long
s = "9)做一个小方案，要考虑一下如何做硬件服务的内容；并且要学习一些维护方面的内容；软件、硬件的内容。
"
s = s + vbCrLf + "10)做一个小方案，要考虑一下如何做硬件服务的内容；并且要学习一些维护方面的内容；软件、硬件的内容"
s = s + vbCrLf + "11)做一个小方案，要考虑一下如何做硬件服务的内容；并且要学习一些维护方面的内容；软件、硬件的内容"
s = s + vbCrLf + "12)做一个小方案，要考虑一下如何做硬件服务的内容；并且要学习一些维护方面的内容；软件、硬件的内容"
s = s + vbCrLf + "13)做一个小方案，要考虑一下如何做硬件服务的内容；并且要学习一些维护方面的内容；软件、硬件的内容"
s = s + vbCrLf + "14)做一个小方案，要考虑一下如何做硬件服务的内容；并且要学习一些维护方面的内容；软件、硬件的内容"
s = s + vbCrLf + "15)做一个小方案，要考虑一下如何做硬件服务的内容；并且要学习一些维护方面的内容；软件、硬件的内容"
For i = 2 To 50
VP。
FontSize = i
'测试出宽度,高度
W = Int(VP。TextWidth(s) / 8000) + 1
H = Int(3000 / VP。
TextHeight("天"))
Debug。Print W & ";" & H
If W > H Then Exit For
Next
VP。
FontSize = VP。FontSize + H - W
VP。TextBox s, 200, 200, 8000, 3000, True, False, True
VP。
EndDoc
End Sub。收起
