Fatal编程技术网
  • vba/
  • Vba 如何使文本框一直向下滚动？

Vba 如何使文本框一直向下滚动？

vba ms-access

Vba 如何使文本框一直向下滚动？,vba,ms-access,textbox,Vba,Ms Access,Textbox,我正在用访问方式建立一个聊天室 我在表单中设置了一个大的文本框控件，以包含所有聊天信息 我需要让它一直向下滚动，即使它没有聚焦 我该怎么做 答案是： txtBox.selstart = len(txtBox.Value) 但是你会从哪里称呼它呢？您可以随时说，即使没有焦点，但要做到这一点，您需要始终运行VBA宏：查找新消息、添加新消息和滚动框。访问不是设计为以这种方式工作的 Access不是一个很好的应用程序，不适合作为聊天室的前端。您可以对后端使用Access：将消息、用户和时间戳存储在表中

我正在用访问方式建立一个聊天室

我在表单中设置了一个大的
文本框
控件，以包含所有聊天信息

我需要让它一直向下滚动，即使它没有聚焦

我该怎么做

答案是：

txtBox.selstart = len(txtBox.Value)
但是你会从哪里称呼它呢？您可以随时说，即使没有焦点，但要做到这一点，您需要始终运行VBA宏：查找新消息、添加新消息和滚动框。访问不是设计为以这种方式工作的

Access不是一个很好的应用程序，不适合作为聊天室的前端。您可以对后端使用Access：将消息、用户和时间戳存储在表中。我建议您使用VB.NET制作前端。VB.NET是多线程的，因此前端将有消息检查线程向文本框添加新消息，而UI线程可以将新消息推送到DB，新消息事件将在DB中拾取并显示在文本框中。

为什么要重新发明轮子？为什么不为现有的开源聊天产品做出贡献，比如：或