fscrdsp.frm

北京微视公司图像采集卡SDK开发包

VERSION 5.00
Begin VB.Form FScrDsp 
   BackColor       =   &H80000006&
   BorderStyle     =   0  'None
   ClientHeight    =   3195
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   4680
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3195
   ScaleWidth      =   4680
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
End
Attribute VB_Name = "FScrDsp"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub Form_DblClick()
    Unload Me
End Sub

Private Sub Form_KeyDown(KeyCode As Integer, _
                         Shift As Integer)

    If KeyCode = 27 Then ' 按下Esc键
        Unload Me
    End If

End Sub

Private Sub Form_Load()
    Dim tmp As Long
    FScrDsp.Left = 0
    FScrDsp.Top = 0
    FScrDsp.Width = Screen.Width
    FScrDsp.height = Screen.height
    MV_SetDeviceParameter hDevice, DISP_WHND, FScrDsp.hWnd
    tmp = (Screen.Width / Screen.TwipsPerPixelX - MV_GetDeviceParameter(hDevice, GARB_WIDTH)) / 2
    MV_SetDeviceParameter hDevice, DISP_LEFT, tmp
    
    tmp = (Screen.height / Screen.TwipsPerPixelY - MV_GetDeviceParameter(hDevice, GARB_HEIGHT)) / 2
    MV_SetDeviceParameter hDevice, DISP_TOP, tmp
    
    MV_OperateDevice hDevice, MVRUN
End Sub

Private Sub Form_Unload(Cancel As Integer)
    MV_OperateDevice hDevice, MVSTOP
    MV_SetDeviceParameter hDevice, DISP_WHND, Form1.DispArea.hWnd
    MV_SetDeviceParameter hDevice, DISP_LEFT, 0
    MV_SetDeviceParameter hDevice, DISP_TOP, 0
    MV_OperateDevice hDevice, MVRUN
End Sub