VB做双显示器程序

多显示器其实就是不同的屏幕坐标，将窗体移动到合适的位置就可以了。

VB codeOption Explicit

Public Const MONITORINFOF_PRIMARY = &H1

Public Const MONITOR_DEFAULTTONEAREST = &H2

Public Const MONITOR_DEFAULTTONULL = &H0

Public Const MONITOR_DEFAULTTOPRIMARY = &H1

Public Type RECT

Left As Long

Top As Long

Right As Long

Bottom As Long

End Type

Public Type MONITORINFO

cbSize As Long

rcMonitor As RECT

rcWork As RECT

dwFlags As Long

End Type

Public Declare Function GetMonitorInfo Lib "user32dll" Alias "GetMonitorInfoA" _

(ByVal hMonitor As Long, ByRef lpmi As MONITORINFO) As Long

Public Declare Function EnumDisplayMonitors Lib "user32dll" (ByVal hdc As Long, _

ByRef lprcClip As Any, ByVal lpfnEnum As Long, ByVal dwData As Long) As Long

Public Declare Function MoveWindow Lib "user32" (ByVal hwnd As Long, ByVal x As _

Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal _

bRepaint As Long) As Long

Sub Main()

'先显示窗体

Form1Show

Form2Show

'在枚举显示器来定位窗体

EnumDisplayMonitors ByVal 0&, ByVal 0&, AddressOf MonitorEnumProc, ByVal 0&

End Sub

Public Function MonitorEnumProc(ByVal hMonitor As Long, ByVal hdcMonitor As Long, _

lprcMonitor As RECT, ByVal dwData As Long) As Long

Dim MI As MONITORINFO, R As RECT

MIcbSize = Len(MI)

GetMonitorInfo hMonitor, MI

R = MIrcWork

If CBool(MIdwFlags = MONITORINFOF_PRIMARY) Then '第一显示器

MoveWindow Form1hwnd, RLeft, RTop, RRight - RLeft, RBottom - RTop, 1&

Else

MoveWindow Form2hwnd, RLeft, RTop, RRight - RLeft, RBottom - RTop, 1&

End If

MonitorEnumProc = 1

End Function

不能

但是2台主机把显示器拆了是可以运行2个程序的。呵呵。

显示器是输出设备

当主机作出响应的时候显示器把主机的响应显示出来

这时候，你2台显示器都接在一个主机上面。2台显示器当然是显示同一个响应

你的这种想法很好。也能实现。但是市场在商机不大。

目前还没有这样的 *** 作系统。

就算有这样的 *** 作系统的话。机子的配置需要很高。原理我就不说了。

如果你有这样的要求的话。完全可以用2台电脑实现。

1、首先在桌面上找到“此电脑”，点击鼠标右键找到“属性”，点击。

2、点击左侧的“设备管理器”。

3、下拉找到“显示适配器”，点击旁边的小箭头，如果屏幕有问题，就会在图标旁边标有一个感叹号或问号，在有标记感叹号或问号的那一项右击鼠标，点击“属性”。

4、点击“驱动程序”，先找到“更新驱动程序”并点击。更新驱动如果不成功，则需要通过网络下载一个与自己电脑型号匹配的显示卡驱动，下载好之后安装驱动，这样电脑显示就恢复正常了！

1、右键点击桌面，在菜单中选择“屏幕分辨率”;

2、在多显示器那边，原先是“扩展这些显示”，把它改成“只在1上显示桌面”。然后点击“应用”或“确定”;

3、恢复正常之后，再改回“扩展这些显示”，确定即可。

1、将显示和笔记本或者台式机连接。

2、双屏显示，则电脑主机应该具备双显示输出接口（一般为集成VGA显卡接口加独立VGA或DVI或HDMI显卡接口，也有全集成VGA显卡接口和DVI显卡接口，甚至还有全集成VGA、DVI、HDMI三种显卡接口的），并且显卡和系统也应当支持双屏显示。

3、如果电脑主机只有VGA接口没有HDMI接口（这种配置很常见），而电视机只有HDMI接口，则需要通过添置VGA转HDMI或HDMI转VGA的转接头才能将其连接起来，但其画质会有所下降。

4、右键点击桌面，打开个性化。

5、点击显示。

6、点击屏幕设置。

7、在这里设置显示器的分辨率、横屏还是竖屏、以及多显示器设置。

8、复制模式为两个显示器一致，只是将电脑显示器1的内容复制到2，比如笔记本复制到台式，显得大一些，两个显示器监控内容。

9、选择显示器2，就相当于将笔记本显示器内容显示到台式显示器上，而笔记本显示器就关闭了，相当于笔记本成了主机，用大尺寸显示器看内容而已。

10、拓展模式就是显示器1和2同时使用，又不是复制模式，比如设置了显示器1，可以将1的内容拖拽到2显示，也可以把2的内容拖拽到1，两个显示器随意切换。

11、然后就完成设置了。

以上就是关于VB做双显示器程序全部的内容，包括:VB做双显示器程序、双显示器能不能同时运行两个全屏程序（比如两个游戏）、双显示器 扩展显示 分显示器桌面显示不完全等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！