首页
社区
课程
招聘
[求助]多显示器编程问题急请教
发表于: 2009-5-29 00:16 4575

[求助]多显示器编程问题急请教

2009-5-29 00:16
4575
基础太差了,找了好多资料还是没解决问题

正面这段代码可以在主显示器的正中央画一个红十字,而且是置顶的!
我现在想让他显示在第二个显示器上,我的主机上有两个显卡,连两台显示器。请不吝赐教,谢谢

建立一个工程,在窗体中加上一个Timer控件,Timer的时间间隔设置为100。  
   
  窗体中加入以下代码,运行即可。  
   
  Private   Declare   Function   SetPixel   Lib   "gdi32"   (ByVal   hdc   As   Long,   ByVal   x   As   Long,   ByVal   y   As   Long,   ByVal   crColor   As   Long)   As   Long  
  Private   Declare   Function   GetDC   Lib   "user32"   (ByVal   hwnd   As   Long)   As   Long  
   
  Private   Sub   Timer1_Timer()  
  Dim   Hdc1   As   Long  
  Hdc1   =   GetDC(0)  
  Dim   i   As   Long  
  For   i   =   -5   To   5  
          Me.Caption   =   SetPixel(Hdc1,   Screen.Width   /   Screen.TwipsPerPixelX   /   2   +   i,   Screen.Height   /   Screen.TwipsPerPixelY   /   2,   RGB(255,   0,   0))  
          Me.Caption   =   SetPixel(Hdc1,   Screen.Width   /   Screen.TwipsPerPixelX   /   2,   Screen.Height   /   Screen.TwipsPerPixelY   /   2   +   i,   RGB(255,   0,   0))  
  Next   i  
  End   Sub

[培训]内核驱动高级班,冲击BAT一流互联网大厂工作,每周日13:00-18:00直播授课

收藏
免费 0
支持
分享
最新回复 (3)
雪    币: 547
活跃值: (2185)
能力值: ( LV7,RANK:100 )
在线值:
发帖
回帖
粉丝
2
简单的说就是怎么使SetPixel()函数作用在第二个显示器上
2009-5-29 00:53
0
雪    币: 208
活跃值: (40)
能力值: ( LV3,RANK:20 )
在线值:
发帖
回帖
粉丝
3
判断一下Screen的长宽比,然后修改起始的X坐标
2009-5-30 22:55
0
雪    币: 547
活跃值: (2185)
能力值: ( LV7,RANK:100 )
在线值:
发帖
回帖
粉丝
4
谢谢楼上回复,原来这么简单的问题却困扰了我一天
2009-6-1 14:14
0
游客
登录 | 注册 方可回帖
返回
//