Question

VB中print问题

VB中如果print出的内容占满一竖排，如何让他像QQ聊天时那样自动往下显示？如图，假如原来是这样的

显示不开了，如何才能实现这样

自动向下换行。
求代码。





Answer 1

'在窗体上滚动print，给你个思路：
Dim n As Integer
Private Sub Command1_Click()
Timer1.Interval = 1000
Timer1.Enabled = True
End Sub
Private Sub Form_Load()
Font.Size = 10
ScaleMode = vbCharacters
Me.AutoRedraw = True
End Sub
Private Sub Timer1_Timer()
Dim i As Integer, j As Integer, m As Integer
n = n + 1
If CurrentY + TextHeight("A") > Me.ScaleHeight Then
    i = Fix(Me.ScaleHeight / TextHeight("A")) - 1
    Cls
    For j = n - i To n - 1
        Print j
    Next j
    CurrentY = (i) * TextHeight("A")
End If
Print n
End Sub