vb 双屏幕 显示
大家好,我正在做一个程序,使用同一台电脑,接一个显示器(显示程序的具体操作,如同卡拉OK点歌界面),再接上一台大屏的液晶电视(用来显示操作的结果,如同车站打票后给顾客的显示一样).
能给我小例子(详细代码)(一个程序代码怎么写,一个是这二个显示设置如何设置)
谢谢各位大侠.
[解决办法]
第一步：通过S-video线或VGA线连接液晶电视，进入系统设置后就会出现显示器1和显示器2，然后设置好主屏（显示器）和副屏（液晶电视）
第二步：就是布置需要显示的窗体
'模块代码
'设置主副屏显示
Public Declare Function SetWindowPos Lib "user32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Const HWND_TOPMOST = -1
Const SWP_NOACTIVATE = &H10
Public nOrgWidth As Integer '屏幕分辨率-宽
'窗体代码(当时要显示到液晶电视机上的窗体)
Private Sub Form_Load()
nOrgWidth = Screen.Width \ Screen.TwipsPerPixelX '屏幕分辨率-宽度,作为副屏的起始X坐标
SetWindowPos Me.hWnd, HWND_TOPMOST, nOrgWidth, 0, 1600, 1200, SWP_NOACTIVATE '在副显示器的显示区域上显示窗体; 1600、1200设置足够大就行
End Sub
