vb 双屏幕显示

bgllm 2009-04-05 09:32:20

大家好,我正在做一个程序,使用同一台电脑,接一个显示器(显示程序的具体操作,如同卡拉OK点歌界面),再接上一台大屏的液晶电视(用来显示操作的结果,如同车站打票后给顾客的显示一样).
能给我小例子(详细代码)(一个程序代码怎么写,一个是这二个显示设置如何设置)
谢谢各位大侠.

...全文

291 6 打赏收藏转发到动态举报

写回复

用AI写文章

6 条回复

切换为时间正序

请发表友善的回复…

发表回复

jieweibin 2009-04-05

打赏
举报

第一步：通过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

goosen 2009-04-05

打赏
举报

点歌系统

bgllm 2009-04-05

打赏
举报

你好,我这回好使了,

冰火小猫 2009-04-05

打赏
举报

学习中

jieweibin 2009-04-05

打赏
举报

你写成一行应该就行了,我这没问题!注意空格等

bgllm 2009-04-05

打赏
举报

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 这个句子不能运行呀