Question

VB6.0中如何让TextBox控件显示为当前的信息，为多行信息的最底层的？？？？

如在一个窗体上，一个按钮控件，一个TextBox控件，TextBox控件的属性为MultiLine为True，Scrollbar为2，按钮Caption为CmdShow，按钮事件为：
Private Sub CmdShow_Click()
Text1.Text = Text1.Text & vbCrLf & "当前时间： " & Now & vbCrLf
End Sub
‘点击一下按钮显示当前的系统时间
要求：当出现多行后，如何让TextBox显示当前点击时的信息，而不是前几行的信息？？？？？？？？？大虾帮帮忙！！！！！跪谢……………………

Answer 1

'先定义以下API函数：
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Const WM_VSCROLL = &H115
Const SB_BOTTOM = 7
'然后在按钮事件中粘贴以下代码：
Private Sub cmdShow_Click()
Text1.Text = Text1.Text & vbCrLf & "当前时间： " & Now & vbCrLf
SendMessage Text1.hwnd, WM_VSCROLL, SB_BOTTOM, 0
End Sub

Answer 2

Private Sub CmdShow_Click()
Text1.Text = Text1.Text & vbCrLf & "当前时间： " & Now & vbCrLf
Text1.SelStart = Len(Text1.Text)
End Sub

Answer 3

Private Sub CmdShow_Click()
Text1.Text = ""
Text1.Text = Text1.Text & vbCrLf & "当前时间： " & Now & vbCrLf
End Sub

Answer 4

text1="当前时间:" & now & vbcrlf & text1.text