www.pudn.com > NetMgrSamp1.rar > frmSplash.frm

VERSION 5.00 
Begin VB.Form frmSplash  
   BorderStyle     =   1  'Fixed Single 
   Caption         =   "NetMgr -- Sample Chooser" 
   ClientHeight    =   3135 
   ClientLeft      =   45 
   ClientTop       =   330 
   ClientWidth     =   4680 
   ControlBox      =   0   'False 
   LinkTopic       =   "Form1" 
   MaxButton       =   0   'False 
   MinButton       =   0   'False 
   ScaleHeight     =   3135 
   ScaleWidth      =   4680 
   StartUpPosition =   2  'CenterScreen 
   Begin VB.CommandButton cmdClose  
      Caption         =   "Close" 
      Height          =   375 
      Left            =   3000 
      TabIndex        =   8 
      Top             =   2640 
      Width           =   735 
   End 
   Begin VB.CommandButton cmdGo  
      Caption         =   "Go!" 
      Height          =   375 
      Left            =   3840 
      TabIndex        =   1 
      Top             =   2640 
      Width           =   735 
   End 
   Begin VB.Frame fmeSampleApps  
      Caption         =   "Sample Applications" 
      Height          =   2415 
      Left            =   0 
      TabIndex        =   0 
      Top             =   120 
      Width           =   4575 
      Begin VB.OptionButton optSampleApps  
         Height          =   255 
         Index           =   2 
         Left            =   240 
         TabIndex        =   6 
         Top             =   1800 
         Width           =   255 
      End 
      Begin VB.OptionButton optSampleApps  
         Height          =   255 
         Index           =   1 
         Left            =   240 
         TabIndex        =   4 
         Top             =   1080 
         Width           =   255 
      End 
      Begin VB.OptionButton optSampleApps  
         Height          =   255 
         Index           =   0 
         Left            =   240 
         TabIndex        =   2 
         Top             =   340 
         Width           =   255 
      End 
      Begin VB.Label lblSampleApps  
         Caption         =   "SNMP Sample 3 shows a Visual Basic implementation of the NetMgr component" 
         Height          =   480 
         Index           =   2 
         Left            =   480 
         TabIndex        =   7 
         Top             =   1815 
         Width           =   3975 
      End 
      Begin VB.Label lblSampleApps  
         Caption         =   "SNMP Sample 2 demonstrates how to pass an array of OIDs into both the Get and Set methods of the NetMgr component." 
         Height          =   615 
         Index           =   1 
         Left            =   480 
         TabIndex        =   5 
         Top             =   1095 
         Width           =   3975 
      End 
      Begin VB.Label lblSampleApps  
         Caption         =   "SNMP Sample 1 illustrates how to use Get, GetNext and Set operations, as well as Walk functionality, using the NetMgr component." 
         Height          =   615 
         Index           =   0 
         Left            =   480 
         TabIndex        =   3 
         Top             =   360 
         Width           =   3975 
      End 
   End 
End 
Attribute VB_Name = "frmSplash" 
Attribute VB_GlobalNameSpace = False 
Attribute VB_Creatable = False 
Attribute VB_PredeclaredId = True 
Attribute VB_Exposed = False 
' Global variable declarations 
' ---------------------------- 
Private intOps As Integer 
 
Private Sub cmdClose_Click() 
    For Each formObj In Forms 
        Unload formObj 
    Next 
End Sub 
 
Private Sub cmdGo_Click() 
    ' Determine which form to open 
    Select Case intOps 
        Case 0 
            frmSNMP1.Show vbModal, Me       ' Sample 1 -- Primatives + Walk 
            Unload frmSNMP1 
        Case 1 
            frmSNMP2.Show vbModal, Me       ' Sample 2 -- Array -> (Get|Set) 
            Unload frmSNMP2 
        Case 2 
            frmSNMP3.Show vbModal, Me       ' Sample 3 -- VB Implementation 
            Unload frmSNMP3 
    End Select 
End Sub 
 
Private Sub Form_Load() 
    ' Initialize form environment 
    optSampleApps(0).Value = True 
    intOps = 0 
End Sub 
 
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) 
    Unload Me 
End Sub 
 
Private Sub Form_Unload(Cancel As Integer) 
    Unload Me 
End Sub 
 
Private Sub lblSampleApps_Click(Index As Integer) 
    ' Assign index to global variable 
    intOps = Index 
     
    ' Check corresponding radio button 
    optSampleApps(Index).Value = True 
End Sub 
 
Private Sub optSampleApps_Click(Index As Integer) 
    ' Assign current index to global variable intOps 
    intOps = Index 
End Sub