7,762
社区成员
发帖
与我相关
我的任务
分享急：怎么设置可以使滚动条自动移动显示TEXTBOX中的最新消息？？
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
'定义 New_Text 字符串来记录新接收的信息
Dim New_Text As String
'接收信息并赋值给 New_Text
Winsock1.GetData New_Text
'在TEXT1显示框中显示新接收到的信息
Text1.SelText = New_Text
Frame1.Caption = Winsock1.RemoteHostIP
'在状态栏中显示接收信息
StatusBar1.Panels(2).Text = " 接收到 " & bytesTotal & " byte的消息 "
End Sub
帮看一下是这里出了问题，还是属性中应该设置成什么？
'定义 New_Text 字符串来记录新接收的信息
Dim New_Text As String
'接收信息并赋值给 New_Text
Winsock1.GetData New_Text
'在TEXT1显示框中显示新接收到的信息
Text1.SelText = New_Text
Frame1.Caption = Winsock1.RemoteHostIP
'在状态栏中显示接收信息
StatusBar1.Panels(2).Text = " 接收到 " & bytesTotal & " byte的消息 "
End Sub
帮看一下是这里出了问题，还是属性中应该设置成什么？
...全文
请发表友善的回复…
发表回复
hailong326 2003-05-29
- 打赏
- 举报
请大家多帮忙
hailong326 2003-05-29
- 打赏
- 举报
up
meteor820828 2003-05-29
- 打赏
- 举报
问题还没有解决
请大家帮忙
请大家帮忙
hailong326 2003-05-29
- 打赏
- 举报
up
hailong326 2003-05-29
- 打赏
- 举报
up
DaiLM 2003-05-29
- 打赏
- 举报
Text1.Text = Text1.Text & vbCrLf & new_text
Text1.SelStart = Len(Text1.Text) - Len(new_text)
Text1.SelLength = Len(new_text)
Text1.SelStart = Len(Text1.Text) - Len(new_text)
Text1.SelLength = Len(new_text)
meteor820828 2003-05-29
- 打赏
- 举报
问题已解决
在Commandbutton中加入
txtOutput.SelStart = Len(txtOutput.Text)
在Commandbutton中加入
txtOutput.SelStart = Len(txtOutput.Text)
