home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / ipcheck / form1.frm (.txt) next >
Encoding:
Visual Basic Form  |  1998-11-02  |  3.5 KB  |  117 lines
  1. VERSION 5.00
  2. Object = "{D70559CC-7283-11D2-A460-008029E79FA1}#1.0#0"; "IPCHECK.OCX"
  3. Begin VB.Form Form1 
  4.    Caption         =   "Form1"
  5.    ClientHeight    =   2325
  6.    ClientLeft      =   4560
  7.    ClientTop       =   4860
  8.    ClientWidth     =   4680
  9.    LinkTopic       =   "Form1"
  10.    ScaleHeight     =   2325
  11.    ScaleWidth      =   4680
  12.    Begin IP_Check.IPCheck IPCheck1 
  13.       Left            =   3960
  14.       Top             =   240
  15.       _ExtentX        =   847
  16.       _ExtentY        =   847
  17.    End
  18.    Begin VB.Label Label10 
  19.       Caption         =   " Total Interfaces Found :"
  20.       Height          =   255
  21.       Left            =   120
  22.       TabIndex        =   9
  23.       Top             =   1680
  24.       Width           =   1815
  25.    End
  26.    Begin VB.Label Label9 
  27.       Caption         =   "IP Address (Device 4) :"
  28.       Height          =   255
  29.       Left            =   240
  30.       TabIndex        =   8
  31.       Top             =   1320
  32.       Width           =   1695
  33.    End
  34.    Begin VB.Label Label8 
  35.       Caption         =   "IP Address (Device 3) :"
  36.       Height          =   255
  37.       Left            =   240
  38.       TabIndex        =   7
  39.       Top             =   960
  40.       Width           =   1695
  41.    End
  42.    Begin VB.Label Label4 
  43.       Alignment       =   2  'Center
  44.       BorderStyle     =   1  'Fixed Single
  45.       Height          =   255
  46.       Left            =   2040
  47.       TabIndex        =   6
  48.       Top             =   1320
  49.       Width           =   1575
  50.    End
  51.    Begin VB.Label Label3 
  52.       Alignment       =   2  'Center
  53.       BorderStyle     =   1  'Fixed Single
  54.       Height          =   255
  55.       Left            =   2040
  56.       TabIndex        =   5
  57.       Top             =   960
  58.       Width           =   1575
  59.    End
  60.    Begin VB.Label Label6 
  61.       Caption         =   "IP Address (Device 2) :"
  62.       Height          =   255
  63.       Left            =   240
  64.       TabIndex        =   4
  65.       Top             =   600
  66.       Width           =   1695
  67.    End
  68.    Begin VB.Label Label5 
  69.       Alignment       =   2  'Center
  70.       BorderStyle     =   1  'Fixed Single
  71.       Height          =   255
  72.       Left            =   2040
  73.       TabIndex        =   3
  74.       Top             =   1680
  75.       Width           =   375
  76.    End
  77.    Begin VB.Label Label2 
  78.       Alignment       =   2  'Center
  79.       BorderStyle     =   1  'Fixed Single
  80.       Height          =   255
  81.       Left            =   2040
  82.       TabIndex        =   2
  83.       Top             =   600
  84.       Width           =   1575
  85.    End
  86.    Begin VB.Label Label5a 
  87.       Caption         =   "IP Address (Device 1) :"
  88.       Height          =   255
  89.       Left            =   240
  90.       TabIndex        =   1
  91.       Top             =   240
  92.       Width           =   1695
  93.    End
  94.    Begin VB.Label Label1 
  95.       Alignment       =   2  'Center
  96.       BorderStyle     =   1  'Fixed Single
  97.       Height          =   255
  98.       Left            =   2040
  99.       TabIndex        =   0
  100.       Top             =   240
  101.       Width           =   1575
  102.    End
  103. Attribute VB_Name = "Form1"
  104. Attribute VB_GlobalNameSpace = False
  105. Attribute VB_Creatable = False
  106. Attribute VB_PredeclaredId = True
  107. Attribute VB_Exposed = False
  108. Option Explicit
  109. Private Sub Form_Load()
  110. '    Label1.Caption = IPCheck1.IP(IPCheck1.TotalInterfaces)
  111.  Label1.Caption = IPCheck1.IP(1)
  112.  Label2.Caption = IPCheck1.IP(2)
  113.  Label3.Caption = IPCheck1.IP(3)
  114.  Label4.Caption = IPCheck1.IP(4)
  115.  Label5.Caption = IPCheck1.TotalInterfaces
  116. End Sub
  117.