以文本方式查看主题 - Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp) -- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2) ---- [求助]我有两个显示器,如何分别当前使用的显示器的宽度? (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=179013) |
-- 作者:moseser -- 发布时间:2022/8/3 8:34:00 -- [求助]我有两个显示器,如何分别当前使用的显示器的宽度? 我用 SysInfo.ScreenWidth 只能获得主屏幕的宽度,当我把软件拖动到另一块屏幕的时候,我想能自动或的该屏幕的宽度 |
-- 作者:有点蓝 -- 发布时间:2022/8/3 9:02:00 -- http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=144783&skin=0 |
-- 作者:moseser -- 发布时间:2022/8/3 9:27:00 -- 回复:(有点蓝)http://www.foxtable.com/bbs/dispbb... 那如何判断目前的工作页面是在哪块屏幕上呢? |
-- 作者:有点蓝 -- 发布时间:2022/8/3 9:28:00 -- 看2楼链接里的9楼 |
-- 作者:moseser -- 发布时间:2022/8/3 11:24:00 -- 回复:(有点蓝)看2楼链接里的9楼 看看窗口的位置, msgbox(forms("窗口1").left) msgbox(forms("窗口1").top) 这个没看懂, 我换了窗口 ,弹出来的结果 都是 0
|
-- 作者:有点蓝 -- 发布时间:2022/8/3 12:09:00 -- 比如屏幕1宽度1000.如果forms("窗口1").left < 1000,说明在屏幕1里,如果forms("窗口1").left大于1000就是在屏幕2里 |
-- 作者:linyunu1 -- 发布时间:2022/8/3 13:52:00 -- 试试 Dim CurrentScreen As System.Windows.Forms.Screen = System.Windows.Forms.Screen.FromPoint(New System.Drawing.Point(System.Windows.Forms.Cursor.Position.X, System.Windows.Forms.Cursor.Position.Y)) Output.Show( CurrentScreen.WorkingArea.Height) Output.Show( CurrentScreen.WorkingArea.Width) [此贴子已经被作者于2022/8/3 13:52:38编辑过]
|
-- 作者:moseser -- 发布时间:2022/8/4 14:23:00 -- 回复:(有点蓝)比如屏幕1宽度1000.如果forms("窗口1... 例如,这样的话可能就只是适应我自己的电脑了,我交给别人用,可能就不适用了 我的目的是,我在任何电脑上都可以适用 最经常的操作是,打开软件后,我会把软件放在大屏幕上使用,拖到大屏幕的时候,能够自动识别出来这个动作
|
-- 作者:有点蓝 -- 发布时间:2022/8/4 14:33:00 -- 无法自动。可以启用窗口的计时器,定时判断窗口位置 |
-- 作者:moseser -- 发布时间:2022/8/4 15:10:00 -- 回复:(有点蓝)无法自动。可以启用窗口的计时器,定... 如何启用? |