Question

在VFP9中，我有一个应用程序，它执行预定义的操作序列，然后结束。在运行时，我需要向用户报告进度（例如“读取事务文件”，“找到123条记录”，“找不到文件abc.txt”等等）。

当我在VFP开发环境中运行我的程序时，这很好。我想创建一个VB控制台窗口的等价物，用于我的程序作为.EXE独立使用，我可以显示消息，然后在窗口已满时向上滚动并写入屏幕底部。 / p>

我从未在VFP中使用过Windows（因为我的程序总是只是批处理过程），所以不知道该怎么做。

请您给我一些示例代码或告诉我在哪里找到它。

Answer 1

我通常处理这种要求的方法是创建一个表单，在其上放置一个编辑框，并调整编辑框的大小以匹配表单。如果用户可以调整表单大小，那么我将为编辑框设置Anchor以使其大小适合表单。

然后，每次我需要添加信息时，我都会将其添加到编辑框的值中。我可以通过确保将编辑框的SelStart设置为当前文本的结尾来保持列表的底部。通常，我会使用自定义方法完成所有这些操作，代码如下：

* Assuming this is a method of the editbox:
LPARAMETERS cNewMessage

This.Value = This.Value + CHR(13) + CHR(10) + m.cNewMessage
This.SelStart = LEN(This.Value)

玛

如何在VFP 9中创建滚动窗口

1 个答案: