制作rm文件.frm

个人VB学习源码精选,自己学习时的一些编程小程序,希望对大家有帮助

VERSION 5.00
Object = "{56919D21-BE39-11D2-A404-00104BDF4755}#2.0#0"; "prct3260.ocx"
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   4500
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   6330
   LinkTopic       =   "Form1"
   ScaleHeight     =   4500
   ScaleWidth      =   6330
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton Command2 
      Caption         =   "停止编码"
      Height          =   330
      Left            =   4545
      TabIndex        =   4
      Top             =   3825
      Width           =   1095
   End
   Begin VB.CommandButton Command1 
      Caption         =   "开始编码"
      Height          =   330
      Left            =   4545
      TabIndex        =   3
      Top             =   3195
      Width           =   1095
   End
   Begin VB.TextBox Text2 
      Height          =   330
      Left            =   270
      TabIndex        =   2
      Text            =   "Text2"
      Top             =   3780
      Width           =   3615
   End
   Begin VB.TextBox Text1 
      Height          =   330
      Left            =   270
      TabIndex        =   1
      Text            =   "Text1"
      Top             =   3105
      Width           =   3615
   End
   Begin RealProducerControlCtl.ProducerControl ProducerControl1 
      Height          =   2535
      Left            =   180
      TabIndex        =   0
      Top             =   225
      Width           =   6000
      _ExtentX        =   10583
      _ExtentY        =   4471
      InputType       =   0
      InputFilename   =   "D:\Documents\xiaoxiao\xiaoxiao1.avi"
      InputCaptureAudioDriver=   1
      InputCaptureVideoDriver=   0
      InputDoAudio    =   -1  'True
      InputDoVideo    =   -1  'True
      InputDoEvents   =   0   'False
      DoOutputFile    =   -1  'True
      DoOutputServer  =   0   'False
      OutputFilename  =   "D:\Documents\xiaoxiao\xiaoxiao1.rm"
      TempDirectory   =   "d:\temp\temp"
      ServerName      =   ""
      ServerPort      =   4040
      ServerFilename  =   ""
      ServerUserName  =   ""
      ServerPassword  =   ""
      ServerTransport =   0
      ListBroadcast   =   -1  'True
      Title           =   "Xiaoxiao1"
      Author          =   ""
      Copyright       =   "?002"
      Description     =   ""
      Keywords        =   ""
      Rating          =   0
      Indexable       =   -1  'True
      MobilePlay      =   -1  'True
      SelectiveRecord =   -1  'True
      Target28KModem  =   0   'False
      Target56KModem  =   -1  'True
      TargetSingleISDN=   0   'False
      TargetDualISDN  =   0   'False
      TargetDSLCableModem=   0   'False
      TargetLAN       =   0   'False
      AudioContent    =   1
      VideoQuality    =   0
      SureStream      =   0   'False
      DoAudioOnlyMultimedia=   0   'False
      EmphasizeAudio  =   -1  'True
      PlayerCompatibility=   6
      CroppingEnabled =   0   'False
      ResizingEnabled =   0   'False
      CroppingLeft    =   0
      CroppingTop     =   0
      CroppingWidth   =   0
      CroppingHeight  =   0
      OutputWidth     =   0
      OutputHeight    =   0
      NoiseFiltering  =   0
      BackColor       =   13160660
      BackStyle       =   0
      Target256KDSLCableModem=   0   'False
      Target384KDSLCableModem=   0   'False
      Target512KDSLCableModem=   0   'False
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
    ProducerControl1.InputFilename = Text1.Text
    ProducerControl1.OutputFilename = Text2.Text
    ProducerControl1.StartEncoding
End Sub

Private Sub Command2_Click()
    ProducerControl1.StopEncoding
End Sub

Private Sub Form_Load()
    ProducerControl1.InputType = INPUT_SOURCE_CAPTURE
    ProducerControl1.InputFilename = ""
    ProducerControl1.TempDirectory = "d:\temp\temp"
    ProducerControl1.OutputFilename = ""
End Sub