lpRect ---------  RECT，欲设置的矩形

X1 -------------  Long，左侧区域（Left）的值

Y1 -------------  Long，顶部区域（Top）的值

X2 -------------  Long，右侧区域（Right）的值

Y2 -------------  Long，底部区域（Bottom）的值

Dim TxtRect as Rect     '定义一个RECT变量

Call SetRect(TxtRect, 20, 20, Me.ScaleWidth - 20, Me.ScaleHeight)

为指定的设备场景设置文本背景颜色。

SetBkColor声明：

hdc ------------  Long，设备场景的句柄

crColor --------  Long，新背景颜色的RGB颜色值

要实现文本背景颜色还需要一个API函数：SetBkMode

指定阴影刷子、虚线画笔以及字符中的空隙的填充方式。

hdc ------------  Long，设备场景的句柄

nBkMode --------  Long，下述常数之一：
  OPAQUE
  用当前的背景色填充虚线画笔、阴影刷子以及字符的空隙
  TRANSPARENT
  透明处理，即不作上述填充

设置当前文本颜色。这种颜色也称为“前景色”。

SetTextColor声明：

hdc ------------  Long，设备场景的句柄

crColor --------  Long，新的文本色
  在VB里使用
  如改变了这个设置，注意恢复VB窗体或控件原始的文本颜色

hdc ------------  Long，欲在其中显示文字的一个设备场景的句柄

lpStr ----------  String，欲描绘的文本字串

nCount ---------  Long，欲描绘的字符数量。如果要描绘整个字串（直到空中止符），则可将这个参数设为-1

lpRect ---------  RECT，指定用于绘图的一个格式化矩形（采用逻辑坐标）

wFormat --------  Long，一个标志位数组，决定了以何种形式执行绘图。参考下面总结的常数类型列表
  标志常数

Dim text As String'定义一个存储文本的变量

text="vb中，我想只用一个print在窗体上输出一串字符，但由于字行符较多且是连续的，我不想用多个print词句换行，请问有没有什么方法能,字符串自动换行"

Call DrawText(Me.hdc, text, -1, Rect, DT_WORDBREAK Or DT_NOCLIP Or DT_EDITCONTROL)

Option Explicit

Private Type Rect
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type

Private Declare Function SetBkMode Lib "gdi32" (ByVal hdc As Long, ByVal nBkMode As Long) As Long
Private Declare Function SetTextColor Lib "gdi32" (ByVal hdc As Long, ByVal crColor As Long) As Long
Private Declare Function SetBkColor Lib "gdi32" (ByVal hdc As Long, ByVal crColor As Long) As Long
Private Declare Function SetRect Lib "user32" (lpRect As Rect, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Private Declare Function DrawText Lib "user32" Alias "DrawTextA" (ByVal hdc As Long, ByVal lpStr As String, ByVal nCount As Long, lpRect As Rect, ByVal wFormat As Long) As Long

Private Const DT_NOCLIP = &H100
Private Const DT_WORDBREAK = &H10
Private Const DT_EDITCONTROL = &H2000
Private Const OPAQUE = 2

Private Sub Form_Load()
Me.AutoRedraw = True
Me.ScaleMode = 3
End Sub

Private Sub Form_Click()
Dim Text As String, TxtRect As Rect
Text = "vb中，我想只用一个print在窗体上输出一串字符，但由于字行符较多且是连续的，我不想用多个print词句换行，请问有没有什么方法能,字符串自动换行"
Me.Cls
Call SetBkMode(Me.hdc, OPAQUE) '
Call SetBkColor(Me.hdc, RGB(200, 200, 200))
Call SetTextColor(Me.hdc, RGB(255, 0, 0))
Call SetRect(TxtRect, 20, 20, Me.ScaleWidth - 20, Me.ScaleHeight - 20)
Call DrawText(Me.hdc, Text, -1, TxtRect, DT_WORDBREAK Or DT_NOCLIP Or DT_EDITCONTROL)
End Sub