0

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

当我在 VFP 开发环境中运行我的程序时，它工作正常。我想创建一个等效的 VB 控制台窗口，以便将我的程序作为 .EXE 独立使用，我可以在其中显示消息，然后在窗口已满时向上滚动并写入屏幕底部。

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

请你能给我一些示例代码或告诉我在哪里可以找到它。

4

1 回答 1

0

我通常处理这种需求的方式是创建一个表单，在其上放置一个编辑框，然后调整编辑框的大小以匹配表单。如果用户可以调整表单的大小，那么我将为编辑框设置 Anchor 以使其大小与表单保持一致。

然后，每次我需要添加信息时，我都会将其添加到编辑框的 Value 中。我可以通过确保将编辑框的 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)

添马舰

于 2013-04-09T21:17:57.373 回答