home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / myip / myipform.frm (.txt) < prev   
Encoding:
Visual Basic Form  |  1998-12-08  |  3.2 KB  |  97 lines
  1. VERSION 5.00
  2. Object = "{82EDCE78-7E49-11D2-8D41-444553540000}#1.0#0"; "DNSLOOKUP.OCX"
  3. Object = "{3B6DD16A-8EDB-11D2-8D41-444553540000}#1.0#0"; "MYIP.OCX"
  4. Begin VB.Form MyIPForm 
  5.    Caption         =   "MyIP ActiveX Control Demo"
  6.    ClientHeight    =   1410
  7.    ClientLeft      =   60
  8.    ClientTop       =   375
  9.    ClientWidth     =   6195
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   1410
  12.    ScaleWidth      =   6195
  13.    StartUpPosition =   3  'Windows Default
  14.    Begin VB.Frame Frame1 
  15.       Height          =   1335
  16.       Left            =   0
  17.       TabIndex        =   0
  18.       Top             =   0
  19.       Width           =   6135
  20.       Begin VB.Label IPNAmeLabel 
  21.          BorderStyle     =   1  'Fixed Single
  22.          BeginProperty Font 
  23.             Name            =   "MS Sans Serif"
  24.             Size            =   8.25
  25.             Charset         =   0
  26.             Weight          =   700
  27.             Underline       =   0   'False
  28.             Italic          =   0   'False
  29.             Strikethrough   =   0   'False
  30.          EndProperty
  31.          Height          =   375
  32.          Left            =   2640
  33.          TabIndex        =   3
  34.          Top             =   600
  35.          Width           =   3375
  36.       End
  37.       Begin VB.Label IPLabel 
  38.          BorderStyle     =   1  'Fixed Single
  39.          BeginProperty Font 
  40.             Name            =   "MS Sans Serif"
  41.             Size            =   8.25
  42.             Charset         =   0
  43.             Weight          =   700
  44.             Underline       =   0   'False
  45.             Italic          =   0   'False
  46.             Strikethrough   =   0   'False
  47.          EndProperty
  48.          Height          =   375
  49.          Left            =   2640
  50.          TabIndex        =   2
  51.          Top             =   240
  52.          Width           =   3375
  53.       End
  54.       Begin VB.Label Label1 
  55.          BorderStyle     =   1  'Fixed Single
  56.          Caption         =   " After connected my IP is :"
  57.          BeginProperty Font 
  58.             Name            =   "MS Sans Serif"
  59.             Size            =   8.25
  60.             Charset         =   0
  61.             Weight          =   700
  62.             Underline       =   0   'False
  63.             Italic          =   0   'False
  64.             Strikethrough   =   0   'False
  65.          EndProperty
  66.          Height          =   375
  67.          Left            =   120
  68.          TabIndex        =   1
  69.          Top             =   240
  70.          Width           =   2535
  71.       End
  72.    End
  73.    Begin IPandDNSLookUp.DNSLookUp DNSLookUp1 
  74.       Left            =   2040
  75.       Top             =   2400
  76.       _ExtentX        =   1085
  77.       _ExtentY        =   1085
  78.    End
  79.    Begin MyIP_ActiveX_Control.MyIP MyIP1 
  80.       Left            =   840
  81.       Top             =   2400
  82.       _ExtentX        =   873
  83.       _ExtentY        =   661
  84.    End
  85. Attribute VB_Name = "MyIPForm"
  86. Attribute VB_GlobalNameSpace = False
  87. Attribute VB_Creatable = False
  88. Attribute VB_PredeclaredId = True
  89. Attribute VB_Exposed = False
  90. Private Sub Form_Load()
  91.     MyIP1.Get_IP_Address = True
  92.     IPLabel.Caption = MyIP1.IP_Address_is
  93.     DNSLookUp1.IP_Address_is = MyIP1.IP_Address_is
  94.     DNSLookUp1.Search_Domain_Name = True
  95.     IPNAmeLabel.Caption = DNSLookUp1.Domain_Name_is
  96. End Sub
  97.