(六)分屏输出组件的应用

 

我们使用最简单的VB来编写一个小程序实现

 

1 建立一个VB的工程,引用组件,建立两个form,分别为frmCtl,和frmOutScreen,我们将frmOutScreen输出到第二个屏幕上;

2 组件使用的代码如下:

 

Function initMotion()

    numScreen = frmCtl.MScreenInfo1.MonitorNum
    primaryScreen = frmCtl.MScreenInfo1.primaryScreen
   
    wScreen1 = frmCtl.MScreenInfo1.screenWidth(0)
    hScreen1 = frmCtl.MScreenInfo1.screenHeight(0)
    topScreen1 = frmCtl.MScreenInfo1.ScreenTop(0)
    leftScreen1 = frmCtl.MScreenInfo1.ScreenLeft(0)
   
    wScreen2 = frmCtl.MScreenInfo1.screenWidth(1)
    hScreen2 = frmCtl.MScreenInfo1.screenHeight(1)
    topScreen2 = frmCtl.MScreenInfo1.ScreenTop(1)
    leftScreen2 = frmCtl.MScreenInfo1.ScreenLeft(1)
   
End Function

 

3 frmOutScreen的代码

 

Private Sub Form_Load()

frmOutScreen.Left = leftScreen2 * 15 + 1
frmOutScreen.Top = 8

frmOutScreen.WindowState = 2
frmOutScreen.WindowsMediaPlayer1.Left = 0
frmOutScreen.WindowsMediaPlayer1.Top = 0
frmOutScreen.WindowsMediaPlayer1.Width = frmMediaplay.Width
frmOutScreen.WindowsMediaPlayer1.Height = frmMediaplay.Height
frmOutScreen.Refresh

End Sub

 

4 编译运行就可以实现frmOutScreen在第二个显示器的输出,你可以加入你的web组件实现浏览器在第二个屏幕输出,看如下我的执行结果

 

 

好了,就这些了,要实现更复杂的功能就需要你自己一点点的去调试了.