首先我们创建一个VFP窗体把窗体Caption设置为:“被发送PostMessage的表单”,表单文件保存为:test
然后我们添加一个表单窗体方法(postmessage):
在postmessage添加如下代码:
再创建一个表单用来发送消息给“被发送PostMessage的表单”,将其Caption设置为:“发送PostMessage的表单”,表单文件保存为“test1".添加一个timer用来不断给test表单发送当前时间。
在表单LOAD中写入如下代码:声明三个函数
在表单INIT中写入如下代码:
在test1.Timer1()写入如下代码:
然后运行”test",效果如下图: