请教各位，vb下如何实现一机双屏的窗口显示

Question

我有一个程序需用到一机双屏，现在我不知道怎样才能让另一个子窗口显示在另一个显示器上，并且是要全屏的。急啊，先谢了。在线等待........

Answer 1

下面的VB代码仅仅实现了在两个显示器分别显示不同的窗口，用户点击按钮后，主显示器显示窗口Form1，副显示器显示窗口Form2，感兴趣的读者可以稍加修改，就可以应用到实际项目开发中去。　　首先在VB全局模块中声明：
Public Declare Function SetWindowPos Lib "user32" Alias "SetWindowPos" (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 　　其次在需要定位的两个窗口模块中调用该函数。具体的VB代码是：
Private Sub Form1_Load( )
Const HWND_TOPMOST=-1
Const SWP_NOACTIVATE=&H10
SetWindowPos Me.hWnd, HWND_TOPMOST, 0, 0, ScreenWidht/2, ScreenHeight, SWP_NOACTIVATE '在主显示器的显示区域上显示窗口1;End Sub
Private Sub Form2_Load( )
Const HWND_TOPMOST=-1
Const SWP_NOACTIVATE=&H10
SetWindowPos Me.hWnd, HWND_TOPMOST, ScreenWidht/2, 0, ScreenWidht/2, ScreenHeight, SWP_NOACTIVATE '在副显示器的显示区域上显示窗口2;
End Sub
 　　为了正确的显示，需要将窗体的ScaleMode属性设置为twips，这样才可以与Windows系统中ScreenWidth和ScreenHeight的计量单位twips保持一致

Answer 2

这里是详细的：http://www.chinabyte.net/20021128/1641980.shtml