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 回答