VERSION 5.00 Begin VB.Form frmGroup Caption = "Group Menu" ClientHeight = 3675 ClientLeft = 60 ClientTop = 345 ClientWidth = 5805 Icon = "frmGroup.frx":0000 LinkTopic = "Form2" LockControls = -1 'True ScaleHeight = 3675 ScaleWidth = 5805 StartUpPosition = 1 'CenterOwner Begin VB.Frame fraFixture Height = 3165 Left = 75 TabIndex = 8 Top = 0 Width = 5640 Begin VB.TextBox txtBuffering BeginProperty DataFormat Type = 1 Format = "0" HaveTrueFalseNull= 0 FirstDayOfWeek = 0 FirstWeekOfYear = 0 LCID = 1033 SubFormatType = 1 EndProperty Height = 375 Left = 1470 TabIndex = 5 Top = 2625 Width = 3975 End Begin VB.TextBox txtPreviewMode BeginProperty DataFormat Type = 1 Format = "0" HaveTrueFalseNull= 0 FirstDayOfWeek = 0 FirstWeekOfYear = 0 LCID = 1033 SubFormatType = 1 EndProperty Height = 375 Left = 1470 TabIndex = 4 Top = 2145 Width = 3975 End Begin VB.TextBox txtOutputFPS BeginProperty DataFormat Type = 1 Format = "0" HaveTrueFalseNull= 0 FirstDayOfWeek = 0 FirstWeekOfYear = 0 LCID = 1033 SubFormatType = 1 EndProperty Height = 375 Left = 1470 TabIndex = 3 Top = 1665 Width = 3975 End Begin VB.TextBox txtPriority BeginProperty DataFormat Type = 1 Format = "0" HaveTrueFalseNull= 0 FirstDayOfWeek = 0 FirstWeekOfYear = 0 LCID = 1033 SubFormatType = 1 EndProperty Height = 375 Left = 1470 TabIndex = 2 Top = 1185 Width = 3975 End Begin VB.TextBox txtMediaType BeginProperty DataFormat Type = 1 Format = "0" HaveTrueFalseNull= 0 FirstDayOfWeek = 0 FirstWeekOfYear = 0 LCID = 1033 SubFormatType = 1 EndProperty Height = 375 Left = 1470 TabIndex = 1 ToolTipText = "0 - Video / 1 - Audio" Top = 705 Width = 3975 End Begin VB.TextBox txtGroupName Height = 375 Left = 1470 TabIndex = 0 Top = 225 Width = 3975 End Begin VB.Label lblBuffering Caption = "Buffering" Height = 255 Left = 150 TabIndex = 14 Top = 2745 Width = 975 End Begin VB.Label lblPreviewMode Caption = "PreviewMode" Height = 255 Left = 150 TabIndex = 13 Top = 2265 Width = 1215 End Begin VB.Label lblOutputFPS Caption = "OutputFPS" Height = 255 Left = 150 TabIndex = 12 Top = 1785 Width = 1215 End Begin VB.Label lblPriority Caption = "Priority" Height = 255 Left = 150 TabIndex = 11 Top = 1305 Width = 615 End Begin VB.Label lblMediaType Caption = "MediaType" Height = 255 Left = 150 TabIndex = 10 ToolTipText = "0 - Video / 1 - Audio" Top = 825 Width = 1095 End Begin VB.Label lblGroupName Caption = "GroupName" Height = 255 Left = 150 TabIndex = 9 Top = 345 Width = 1095 End End Begin VB.CommandButton cmdCancel Caption = "Cancel" Height = 340 Left = 4500 TabIndex = 7 Top = 3255 Width = 1215 End Begin VB.CommandButton cmdOk Caption = "OK" Default = -1 'True Height = 340 Left = 3300 TabIndex = 6 Top = 3255 Width = 1095 End End Attribute VB_Name = "frmGroup" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False '******************************************************************************* '* This is a part of the Microsoft DXSDK Code Samples. '* Copyright (C) 1999-2001 Microsoft Corporation. '* All rights reserved. '* This source code is only intended as a supplement to '* Microsoft Development Tools and/or SDK documentation. '* See these sources for detailed information regarding the '* Microsoft samples programs. '******************************************************************************* Option Explicit Option Base 0 Option Compare Text Private m_intUnloadMode As Integer Private Const DIALOG_TITLE = "Group Help" ' ************************************************************************************************************************************** ' * PUBLIC INTERFACE- PROPERTIES ' * ' * ' ****************************************************************************************************************************** ' * procedure name: UnloadMode ' * procedure description: Returns an integer specifying the method from which this dialog was last unloaded ' * ' ****************************************************************************************************************************** Public Property Get UnloadMode() As Integer On Local Error GoTo ErrLine 'return the value to the client UnloadMode = m_intUnloadMode Exit Property ErrLine: Err.Clear Exit Property End Property ' ************************************************************************************************************************************** ' * PRIVATE INTERFACE- FORM EVENT HANDLERS ' * ' * ' ****************************************************************************************************************************** ' * procedure name: Form_Load ' * procedure description: Occurs when a form is loaded. ' * ' ****************************************************************************************************************************** Private Sub Form_Load() On Local Error GoTo ErrLine 'set default value(s) With Me .txtGroupName.Text = vbNullString .txtMediaType.Text = vbNullString .txtPriority.Text = vbNullString .txtOutputFPS.Text = vbNullString .txtPreviewMode.Text = vbNullString .txtBuffering.Text = vbNullString End With Exit Sub ErrLine: Err.Clear Exit Sub End Sub ' ****************************************************************************************************************************** ' * procedure name: Form_QueryUnload ' * procedure description: Occurs before a form or application closes. ' * ' ****************************************************************************************************************************** Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) On Local Error GoTo ErrLine Select Case UnloadMode Case vbFormControlMenu '0 The user chose the Close command from the Control menu on the form. Cancel = 1: Me.Visible = False Case vbFormCode '1 The Unload statement is invoked from code. Case vbAppWindows '2 The current Microsoft Windows operating environment session is ending. Case vbAppTaskManager '3 The Microsoft Windows Task Manager is closing the application. End Case vbFormMDIForm '4 An MDI child form is closing because the MDI form is closing. Case vbFormOwner '5 A form is closing because its owner is closing End Select Exit Sub ErrLine: Err.Clear Exit Sub End Sub ' ****************************************************************************************************************************** ' * procedure name: Form_Unload ' * procedure description: Occurs when a form is about to be removed from the screen. ' * ' ****************************************************************************************************************************** Private Sub Form_Unload(Cancel As Integer) On Local Error GoTo ErrLine With Me .Move 0 - (Screen.Width * 8), 0 - (Screen.Height * 8): .Visible = False End With Exit Sub ErrLine: Err.Clear Exit Sub End Sub ' ************************************************************************************************************************************** ' * PRIVATE INTERFACE- CONTROL EVENT HANDLERS ' * ' * ' ****************************************************************************************************************************** ' * procedure name: cmdOk_Click ' * procedure description: occures when the user presses the "Ok" button ' * ' ****************************************************************************************************************************** Private Sub cmdOk_Click() Dim nResultant As VbMsgBoxResult On Local Error GoTo ErrLine 'validation code If frmGroup.txtGroupName.Text = vbNullString Then nResultant = MsgBox("You Must Set GroupName", , DIALOG_TITLE) frmGroup.txtGroupName.SetFocus Exit Sub End If If frmGroup.txtMediaType.Text = vbNullString Then nResultant = MsgBox("You Must Set MediaType", , DIALOG_TITLE) frmGroup.txtMediaType.SetFocus Exit Sub End If If frmGroup.txtPriority.Text = vbNullString Then nResultant = MsgBox("You Must Set Priority", , DIALOG_TITLE) frmGroup.txtPriority.SetFocus Exit Sub End If If frmGroup.txtOutputFPS.Text = vbNullString Then nResultant = MsgBox("You Must Set OutputFPS", , DIALOG_TITLE) frmGroup.txtOutputFPS.SetFocus Exit Sub End If If frmGroup.txtPreviewMode.Text = vbNullString Then nResultant = MsgBox("You Must Set PreviewMode", , DIALOG_TITLE) frmGroup.txtPreviewMode.SetFocus Exit Sub End If If frmGroup.txtBuffering.Text = vbNullString Then nResultant = MsgBox("You Must Set Buffering", , DIALOG_TITLE) frmGroup.txtBuffering.SetFocus Exit Sub End If 'hide the dialog Me.Visible = False Exit Sub ErrLine: Err.Clear Exit Sub End Sub ' ****************************************************************************************************************************** ' * procedure name: cmdCancel_Click ' * procedure description: occures when the user presses the "Cancel" button ' * ' ****************************************************************************************************************************** Private Sub cmdCancel_Click() On Local Error GoTo ErrLine 'hide the dialog Me.Visible = False m_intUnloadMode = 1 Exit Sub ErrLine: Err.Clear Exit Sub End Sub