SELPIN.FRM

VERSION 5.00 
Begin VB.Form frmSelectPin  
   Caption         =   "Connect to Pin" 
   ClientHeight    =   3210 
   ClientLeft      =   4890 
   ClientTop       =   4920 
   ClientWidth     =   6270 
   LinkTopic       =   "Form2" 
   PaletteMode     =   1  'UseZOrder 
   ScaleHeight     =   3210 
   ScaleWidth      =   6270 
   Begin VB.ListBox listPins  
      Height          =   1425 
      Left            =   3360 
      TabIndex        =   7 
      Top             =   360 
      Width           =   2655 
   End 
   Begin VB.ListBox listFilters  
      Height          =   1425 
      Left            =   240 
      TabIndex        =   5 
      Top             =   360 
      Width           =   2655 
   End 
   Begin VB.CommandButton Cancel  
      Cancel          =   -1  'True 
      Caption         =   "Cancel" 
      Height          =   375 
      Left            =   3360 
      TabIndex        =   4 
      Top             =   2640 
      Width           =   975 
   End 
   Begin VB.CommandButton OK  
      Caption         =   "OK" 
      Default         =   -1  'True 
      Height          =   375 
      Left            =   1920 
      TabIndex        =   3 
      Top             =   2640 
      Width           =   975 
   End 
   Begin VB.Label Label2  
      Caption         =   "Pins" 
      Height          =   252 
      Left            =   3240 
      TabIndex        =   6 
      Top             =   120 
      Width           =   492 
   End 
   Begin VB.Label VendorInfoLabel  
      Caption         =   "Vendor Info:" 
      Height          =   252 
      Left            =   120 
      TabIndex        =   2 
      Top             =   2160 
      Width           =   972 
   End 
   Begin VB.Label VendorInfo  
      Height          =   252 
      Left            =   1320 
      TabIndex        =   1 
      Top             =   2160 
      Visible         =   0   'False 
      Width           =   2772 
   End 
   Begin VB.Label Label1  
      Caption         =   "Filters" 
      Height          =   255 
      Left            =   120 
      TabIndex        =   0 
      Top             =   120 
      Width           =   495 
   End 
End 
Attribute VB_Name = "frmSelectPin" 
Attribute VB_GlobalNameSpace = False 
Attribute VB_Creatable = False 
Attribute VB_PredeclaredId = True 
Attribute VB_Exposed = False 
' create filter components to connect filter pins 
Public OtherDir As Long 
Public g_objFI As IFilterInfo 
Public g_objPI As IPinInfo 
Public g_objMC As IMediaControl 
Public bOK As Boolean 
 
Private Sub Cancel_Click() 
' cancel was clicked, so no pin connection is made 
    bOK = False 
    Hide 
End Sub 
 
Private Sub listFilters_Click() 
' when the user clicks on a specific filter in the filter graph, this creates the 
' list of pins for that filter in the pin listbox 
    Dim pfilter As IFilterInfo 
    For Each pfilter In g_objMC.FilterCollection 
        If pfilter.Name = listFilters.Text Then 
            ' display the information and pins for the selected filter 
            Set g_objFI = pfilter  ' global FilterInfo object 
            VendorInfo.Caption = pfilter.VendorInfo 
            listPins.Clear 
            Dim pin As IPinInfo 
            For Each pin In pfilter.Pins 
                Dim pinOther As IPinInfo 
                On Error Resume Next 
                Set pinOther = pin.ConnectedTo 
                If Err.Number <> 0 Then 
                    If pin.Direction <> OtherDir Then 
                        listPins.AddItem pin.Name 
                    End If 
                End If 
            Next pin 
        End If 
    Next pfilter 
    listPins.ListIndex = 0 
End Sub 
 
 
Private Sub Form_Load() 
' fill the filters listbox with all filters in the current filter graph 
    RefreshFilters 
End Sub 
 
 
 
Public Sub RefreshFilters() 
' fill the filters listbox with all filters in the current filter graph 
    listFilters.Clear 
    Dim filter As IFilterInfo 
    For Each filter In g_objMC.FilterCollection 
        Dim pin As IPinInfo 
        Dim pinOther As IPinInfo 
        For Each pin In filter.Pins 
            On Error Resume Next 
            Set pinOther = pin.ConnectedTo 
            If Err.Number <> 0 Then 
                If pin.Direction <> OtherDir Then 
                    listFilters.AddItem filter.Name 
                    Exit For 
                End If 
            End If 
        Next pin 
    Next filter 
    listFilters.ListIndex = 0 
End Sub 
 
Private Sub OK_Click() 
' connect the selected pins, if possible. if no connection is possible, the pin 
' selection box closes and the program continues normally. 
    Dim pin As IPinInfo 
    For Each pin In g_objFI.Pins 
        If pin.Name = listPins.Text Then 
            Set g_objPI = pin 
            bOK = True 
            Exit For 
        End If 
    Next pin 
    Hide 
End Sub 
 
Private Sub listPins_Click() 
' when a pin is selected, store it in the global pin object 
  Dim pPin As IPinInfo 
  For Each pPin In g_objFI.Pins 
    If pPin.Name = listPins.Text Then 
      Set SelPin = pPin 
    End If 
  Next pPin 
End Sub