-
-
[求助]多显示器编程问题急请教
-
发表于:
2009-5-29 00:16
4483
-
基础太差了,找了好多资料还是没解决问题
正面这段代码可以在主显示器的正中央画一个红十字,而且是置顶的!
我现在想让他显示在第二个显示器上,我的主机上有两个显卡,连两台显示器。请不吝赐教,谢谢
建立一个工程,在窗体中加上一个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
[培训]《安卓高级研修班(网课)》月薪三万计划,掌握调试、分析还原ollvm、vmp的方法,定制art虚拟机自动化脱壳的方法