osdform.frm

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

VERSION 5.00
Begin VB.Form OSDForm 
   Caption         =   "OSDForm"
   ClientHeight    =   9330
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   11775
   LinkTopic       =   "Form2"
   ScaleHeight     =   622
   ScaleMode       =   3  'Pixel
   ScaleWidth      =   785
   StartUpPosition =   2  '屏幕中心
   Begin VB.PictureBox Picture1 
      Appearance      =   0  'Flat
      AutoSize        =   -1  'True
      BackColor       =   &H80000005&
      BorderStyle     =   0  'None
      FillStyle       =   0  'Solid
      ForeColor       =   &H80000008&
      Height          =   8640
      Left            =   120
      Picture         =   "OSDForm.frx":0000
      ScaleHeight     =   576
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   768
      TabIndex        =   3
      Top             =   600
      Width           =   11520
   End
   Begin VB.CommandButton OSDCancel 
      Caption         =   "取消"
      Height          =   375
      Left            =   2760
      TabIndex        =   2
      Top             =   120
      Width           =   1335
   End
   Begin VB.CommandButton OSDOK 
      Caption         =   "确定"
      Height          =   375
      Left            =   1440
      TabIndex        =   1
      Top             =   120
      Width           =   1335
   End
   Begin VB.CommandButton LoadPic 
      Caption         =   "载入蒙板"
      Height          =   375
      Left            =   120
      TabIndex        =   0
      Top             =   120
      Width           =   1335
   End
End
Attribute VB_Name = "OSDForm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub LoadPic_Click()
    Dim PicFile As OPENFILENAME
    Dim lReturn As Long
    Dim sFilter As String
    
    PicFile.lStructSize = Len(PicFile)
    PicFile.hwndOwner = OSDForm.hWnd
    PicFile.hInstance = App.hInstance
    PicFile.nFilterIndex = 1
    
    sFilter = "BMP File (*.bmp)"
    PicFile.lpstrFilter = sFilter
    
    PicFile.lpstrFile = String$(255, 0)
    lReturn = Len(PicFile.lpstrFile)
    
    PicFile.nMaxFile = Len(PicFile.lpstrFile) - 1
    PicFile.nMaxFileTitle = PicFile.nMaxFile
    PicFile.lpstrInitialDir = strFileDir
    PicFile.lpstrTitle = "打开图片(.bmp)"
    PicFile.flags = 0
    
    lReturn = GetOpenFileName(PicFile)
    
    If lReturn Then
        Set Picture1.Picture = LoadPicture(PicFile.lpstrFile)
        Picture1.Width = Picture1.Picture.Width
        Picture1.height = Picture1.Picture.height
        Picture1.Refresh
    End If

End Sub

Private Sub OSDCancel_Click()
    MV_SetMaskFunction hDevice, 0
    Unload Me
End Sub

Private Sub OSDOK_Click()
    Dim PicRect As RECT
    Dim pByte As Long
    
    PicRect.Left = 0
    PicRect.Top = 0
    PicRect.Right = 767
    PicRect.Bottom = 575
    
    pByte = MV_MakeMaskBit(hDevice, Picture1.hWnd, PicRect, 0)   '获得要叠加的蒙板图像
    MV_SetMaskBit hDevice, PicRect, pByte                        '设置要叠加的蒙板图像击叠加位置
    MV_SetDeviceParameter hDevice, OSD_MODE, 1                   '叠加蒙板图像
    Unload Me
End Sub