求教各位大虾:如何实现textbox文本的自动滚动显示

bicbasic 2000-01-06 06:31:00
...全文
198 2 打赏 收藏 转发到动态 举报
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
crope 2000-01-07
  • 打赏
  • 举报
回复
用SELTEXT试一试
JiRen 2000-01-07
  • 打赏
  • 举报
回复
小虾:
给TextBox发送一个消息行了 EM_LINESCROLL = &HB6
Dim Linecount
Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Private Sub Command1_Click()
Const EM_LINESCROLL = &HB6
Dim ErrCode As Long
ErrCode = SendMessage(Text1.hwnd, EM_LINESCROLL, ByVal 0&, ByVal 1)
If ErrCole = 0 Then
Linecount = Linecount + 1
MsgBox "滚动:" + Str(Linecount), vbOKOnly, "确定"
End If
End Sub

循环发送EM_LINESCROLL = &HB6 消息就会自动滚动显示了
Don't Forget to Give Me Point

7,759

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧