frmsave.frm

vb编写机器人遥控程序

VERSION 5.00
Begin VB.Form frmSave 
   Caption         =   "保存图片"
   ClientHeight    =   3885
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   5145
   LinkTopic       =   "Form2"
   ScaleHeight     =   3885
   ScaleWidth      =   5145
   StartUpPosition =   3  '窗口缺省
   Begin VB.PictureBox Picture1 
      Height          =   3655
      Left            =   120
      ScaleHeight     =   3600
      ScaleWidth      =   4800
      TabIndex        =   0
      Top             =   120
      Width           =   4860
   End
End
Attribute VB_Name = "frmSave"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Public Sub SaveBmp()
    If (m_Width = 320 And m_Height = 240) Then
        Me.Picture1.Width = 4860
        Me.Picture1.Height = 3655
    Else
        If (m_Width = 352 And m_Height = 288) Then
           Me.Picture1.Width = 5346
           Me.Picture1.Height = 4386
            Else
                If (m_Width = 640 And m_Height = 480) Then
                   Me.Picture1.Width = 9660
                   Me.Picture1.Height = 7260

                Else
                    If (m_Width = 768 And m_Height = 576) Then
                        Me.Picture1.Width = 11584
                        Me.Picture1.Height = 8700
                    End If
                 End If
        End If
    End If
        
        
       ' Me.Picture1.Width = frmtest.m_Video.Width
       ' Me.Picture1.Height = frmtest.m_Video.Height


    Picture1.Cls
    Picture1.AutoRedraw = True
    Picture1.CurrentX = 300
    Picture1.CurrentY = 50
   
    Picture1.ForeColor = vbRed
    Picture1.Font = "黑体"
    Picture1.FontBold = True
    Picture1.FontSize = 12
  
    Picture1.Print ""
    Picture1.Print m_disDate
    SavePicture Picture1.Image, m_datapath
    Set frmSave.Picture1.Picture = LoadPicture(m_datapath)
    Picture1.Cls
    Picture1.CurrentX = 200
    Picture1.CurrentY = 700
    Picture1.ForeColor = vbRed
    Picture1.Font = "黑体"
    Picture1.FontBold = True
    Picture1.FontSize = 14
    Picture1.Print "microvision"
    SavePicture Picture1.Image, m_datapath
End Sub