关于分屏显示 vfp _screen.left 怎么用？

無法替代 2017-07-03 12:11:02

电脑有两台显示器程序运行后自动显示到副显示器
表单的showwindow设置为1 用表单的left属性可以指定位置可以实现但是主显示器上会显示一个空白的vfp主窗体
把表单in screen来用但是无法控制_screen的left

...全文

324 2 打赏收藏转发到动态举报

写回复

2 条回复

切换为时间正序

请发表友善的回复…

发表回复

無法替代 2017-07-26

打赏
举报

回复

引用 1 楼 apple_8180 的回复:

主表单的 showwindow 设为2，子表单的 showwindow 设为1，你控制主表单位置即可。

解决了我正想呢没那么复杂啊后来一看代码后面又给处理了一次修改别人的代码确实很。。。

十豆三 2017-07-09

打赏
举报

回复

主表单的 showwindow 设为2，子表单的 showwindow 设为1，你控制主表单位置即可。

VFP FTP 实现 EZFTP.OCX 使用的控件

clear screen local lcsys16,lcprogram &&定义两个局部变量 lcsys16=sys(16) && sys(16)返回当前正在运行的程序名（包括路径） lcprogram=substr(lcsys16,at(":",lcsys16)-1) cd left(lcprogram,rat("\",lcprogram)) &&用CD命令进入系统所在目录 deactivate window "project manager" &&关闭项目管理器 do setting &&设置系统环境配置 _screen.left=-10000 &&程序运行时去掉Visual FoxPro的主窗口 do form form\admin zoom windows screen max &&最大化窗口 _screen.caption='阳光客房管理系统' &&设置主窗口标题 public purview &&定义全局变量 public pqtgl,pkfgl,pcxtj,pgzgl,pjcinfo,psyscsh,psyswh store .f.to pqtgl,pkfgl,pcxtj,pgzgl,pjcinfo,psyscsh,psyswh purview=5 define window ncover from 0,0 to 800,470 nozoom noclose fill file images\11.gif &&定义一个窗口NCOVER，将它作为应用系统的背景图片。 activate window ncover bottom &&激活窗口NCOVER do menu\menumain.mpr &&调用程序主菜单 _screen.left=0 ON SHUTDOWN do myquit read events &&准备接收事件响应 do reset

vfp 中_screen功能的简单使用，包括窗口的重复调用

_screen.windowstate=2 _screen.closable=.f. _screen.caption="学生宿舍管理系统" set sysmenu off set talk off set dele on do form 登陆框 read events do main_menu.mpr read events set talk on set sysmenu on set dele off quit if select("xsxx")=0 use xsxx endif sele xsxx brow

1、VFP8托盘示例简单化。请参考：VFP7.0以上自带的托盘类(systray.vcx)和例子(systray_sample.scx)：类位置：VFP安装目录\Samples\Solution\Toledo\systray.vcx 例子位置：VFP安装目录\Samples\Solution\Toledo\systray_sample.scx 2、《小丑》的托盘例子程序。

2,726

社区成员

29,112

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章