如果你想在窗体或picturebox中输出文本,想控制这些文字的间距是可行的。如果设置textbox等控件恐怕不行。 设置输出文本用下面的方法:Private Declare Function SetTextCharacterExtra Lib "gdi32" (ByVal hdc As Long, ByVal nCharExtra As Long) As LongPrivate Sub Form_Paint() SetTextCharacterExtra Me.hdc, 10 Me.Print "this is test" End Sub
感谢上面几位朋友! 我现在又遇到一个问题 dim a as string for i=1 to 10 a=a+str(1) next i a的结果为什么是1 1 1 1 ...,而不是1111..呢? 我刚学VB,比较菜,希望大家谅解,希望大家多多支持!谢谢!
str(1)改为Cstr(1) Str 函数返回代表一数值的 Variant 当一数字转成字符串时,总会在前头保留一空位来表示正负。如果 number 为正,返回的字符串包含一前导空格暗示有一正号。
设置输出文本用下面的方法:Private Declare Function SetTextCharacterExtra Lib "gdi32" (ByVal hdc As Long, ByVal nCharExtra As Long) As LongPrivate Sub Form_Paint()
SetTextCharacterExtra Me.hdc, 10
Me.Print "this is test"
End Sub
我现在又遇到一个问题
dim a as string
for i=1 to 10
a=a+str(1)
next i
a的结果为什么是1 1 1 1 ...,而不是1111..呢?
我刚学VB,比较菜,希望大家谅解,希望大家多多支持!谢谢!
Str 函数返回代表一数值的 Variant
当一数字转成字符串时,总会在前头保留一空位来表示正负。如果 number 为正,返回的字符串包含一前导空格暗示有一正号。