home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 November / Chip_2002-11_cd1.bin / zkuste / vbasic / Data / Utils / WME71SDK.exe / RCDATA / CABINET / frmconfigure.frm < prev    next >
Text File  |  2001-03-02  |  3KB  |  118 lines
  1. VERSION 5.00
  2. Object = "{C4941F47-8BC1-49D3-9989-2B7826F26AE6}#1.0#0"; "MSPShell.dll"
  3. Begin VB.Form FrmConfigure 
  4.    BorderStyle     =   3  'Fixed Dialog
  5.    Caption         =   "Configure Encoder"
  6.    ClientHeight    =   5730
  7.    ClientLeft      =   2310
  8.    ClientTop       =   1455
  9.    ClientWidth     =   7410
  10.    LinkTopic       =   "Form1"
  11.    MaxButton       =   0   'False
  12.    MinButton       =   0   'False
  13.    ScaleHeight     =   5730
  14.    ScaleWidth      =   7410
  15.    ShowInTaskbar   =   0   'False
  16.    StartUpPosition =   1  'CenterOwner
  17.    Begin MSPROPSHELLLibCtl.MSPropShell PropPageShell 
  18.       Height          =   5175
  19.       Left            =   0
  20.       OleObjectBlob   =   "FrmConfigure.frx":0000
  21.       TabIndex        =   0
  22.       Top             =   0
  23.       Width           =   7335
  24.    End
  25.    Begin VB.CommandButton CmdCancel 
  26.       Cancel          =   -1  'True
  27.       Caption         =   "Cancel"
  28.       Height          =   375
  29.       Left            =   6180
  30.       TabIndex        =   2
  31.       Top             =   5280
  32.       Width           =   1155
  33.    End
  34.    Begin VB.CommandButton CmdOk 
  35.       Caption         =   "OK"
  36.       Default         =   -1  'True
  37.       Height          =   375
  38.       Left            =   4920
  39.       TabIndex        =   1
  40.       Top             =   5280
  41.       Width           =   1155
  42.    End
  43. End
  44. Attribute VB_Name = "FrmConfigure"
  45. Attribute VB_GlobalNameSpace = False
  46. Attribute VB_Creatable = False
  47. Attribute VB_PredeclaredId = True
  48. Attribute VB_Exposed = False
  49. ' Keep track of the Encoder we are told to configure
  50.  
  51. Dim EncoderConfig As WMEncoder
  52.  
  53. Private Sub CmdCancel_Click()
  54.  
  55.     ' Goodbye!
  56.  
  57.     Unload Me
  58.     
  59. End Sub
  60.  
  61. Private Sub CmdOk_Click()
  62.     On Error GoTo err_handler
  63.     
  64.     ' Apply any changes to the Property Pages to the Encoder
  65.     
  66.     PropPageShell.Apply
  67.     
  68.     ' Goodbye!
  69.     EncoderConfig.PrepareToEncode (True)
  70.     Unload Me
  71.     Exit Sub
  72.     
  73. err_handler:
  74.     
  75.     MsgBox "Error applying the configuration parameters to the encoder"
  76.     
  77. End Sub
  78.  
  79. Private Sub Form_Load()
  80.      
  81.     ' Create the Encoder Property Pages
  82.      
  83.     Dim PpgSources As New WMEncSourcesAltPage
  84.     Dim PpgDesc As New WMEncDisplayInfoPage
  85.     Dim PpgAttr As New WMEncAttributesPage
  86.     Dim PpgEnc As New WMEncProfilePage
  87.     Dim PpgOutput As New WMEncOutputPage
  88.     
  89.     On Error GoTo err_handler
  90.     
  91.     ' Add the Encoder to the Page Shell
  92.     
  93.     PropPageShell.AddObject EncoderConfig
  94.     
  95.     ' Add the Encoder Property Pages to the Page Shell
  96.     
  97.     PropPageShell.AddPage PpgSources
  98.     PropPageShell.AddPage PpgDesc
  99.     PropPageShell.AddPage PpgAttr
  100.     PropPageShell.AddPage PpgEnc
  101.     PropPageShell.AddPage PpgOutput
  102.  
  103.     
  104.     Exit Sub
  105.     
  106. err_handler:
  107.     MsgBox "Error adding encoder property pages"
  108.     
  109. End Sub
  110.  
  111. Public Property Set EncoderMain(vNewValue As WMEncoder)
  112.  
  113.     ' Remember the supplied Encoder
  114.  
  115.     Set EncoderConfig = vNewValue
  116.     
  117. End Property
  118.