home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / trace / tracefor.frm (.txt) < prev   
Encoding:
Visual Basic Form  |  1998-12-14  |  7.7 KB  |  256 lines
  1. VERSION 5.00
  2. Object = "{AF4CEBB5-939C-11D2-8D41-444553540000}#1.0#0"; "TRACE.OCX"
  3. Begin VB.Form TraceForm 
  4.    Caption         =   "Trace ActiveX Control  Demo"
  5.    ClientHeight    =   4185
  6.    ClientLeft      =   60
  7.    ClientTop       =   375
  8.    ClientWidth     =   9420
  9.    LinkTopic       =   "Form1"
  10.    ScaleHeight     =   4185
  11.    ScaleWidth      =   9420
  12.    StartUpPosition =   3  'Windows Default
  13.    Begin Trace_ActiveX_Control.Trace Trace1 
  14.       Left            =   4560
  15.       Top             =   960
  16.       _ExtentX        =   1085
  17.       _ExtentY        =   661
  18.    End
  19.    Begin VB.Timer TraceTimer 
  20.       Enabled         =   0   'False
  21.       Interval        =   1
  22.       Left            =   8760
  23.       Top             =   480
  24.    End
  25.    Begin VB.TextBox ErrorText 
  26.       Height          =   2415
  27.       Left            =   5040
  28.       MultiLine       =   -1  'True
  29.       ScrollBars      =   3  'Both
  30.       TabIndex        =   7
  31.       Top             =   1440
  32.       Width           =   4215
  33.    End
  34.    Begin VB.CommandButton StopCommand 
  35.       Caption         =   "S  t  o  p"
  36.       BeginProperty Font 
  37.          Name            =   "MS Sans Serif"
  38.          Size            =   8.25
  39.          Charset         =   0
  40.          Weight          =   700
  41.          Underline       =   0   'False
  42.          Italic          =   0   'False
  43.          Strikethrough   =   0   'False
  44.       EndProperty
  45.       Height          =   735
  46.       Left            =   120
  47.       TabIndex        =   6
  48.       Top             =   120
  49.       Width           =   1695
  50.    End
  51.    Begin VB.TextBox HostName 
  52.       BackColor       =   &H00E0E0E0&
  53.       BeginProperty Font 
  54.          Name            =   "MS Sans Serif"
  55.          Size            =   8.25
  56.          Charset         =   0
  57.          Weight          =   700
  58.          Underline       =   0   'False
  59.          Italic          =   0   'False
  60.          Strikethrough   =   0   'False
  61.       EndProperty
  62.       Height          =   375
  63.       Left            =   3600
  64.       TabIndex        =   5
  65.       Top             =   120
  66.       Width           =   3495
  67.    End
  68.    Begin VB.TextBox HostIP 
  69.       Enabled         =   0   'False
  70.       BeginProperty Font 
  71.          Name            =   "MS Sans Serif"
  72.          Size            =   8.25
  73.          Charset         =   0
  74.          Weight          =   700
  75.          Underline       =   0   'False
  76.          Italic          =   0   'False
  77.          Strikethrough   =   0   'False
  78.       EndProperty
  79.       Height          =   375
  80.       Left            =   3600
  81.       TabIndex        =   4
  82.       Top             =   480
  83.       Width           =   3495
  84.    End
  85.    Begin VB.CommandButton TraceCommand 
  86.       Caption         =   "Trace Route"
  87.       BeginProperty Font 
  88.          Name            =   "MS Sans Serif"
  89.          Size            =   8.25
  90.          Charset         =   0
  91.          Weight          =   700
  92.          Underline       =   0   'False
  93.          Italic          =   0   'False
  94.          Strikethrough   =   0   'False
  95.       EndProperty
  96.       Height          =   735
  97.       Left            =   7440
  98.       TabIndex        =   1
  99.       Top             =   120
  100.       Width           =   1695
  101.    End
  102.    Begin VB.TextBox StatusText 
  103.       Height          =   2415
  104.       Left            =   120
  105.       MultiLine       =   -1  'True
  106.       ScrollBars      =   3  'Both
  107.       TabIndex        =   0
  108.       Top             =   1440
  109.       Width           =   4695
  110.    End
  111.    Begin VB.Label Label9 
  112.       BackColor       =   &H00000000&
  113.       Caption         =   "  Connection Status "
  114.       BeginProperty Font 
  115.          Name            =   "MS Sans Serif"
  116.          Size            =   9.75
  117.          Charset         =   0
  118.          Weight          =   700
  119.          Underline       =   0   'False
  120.          Italic          =   0   'False
  121.          Strikethrough   =   0   'False
  122.       EndProperty
  123.       ForeColor       =   &H0000FF00&
  124.       Height          =   255
  125.       Left            =   1200
  126.       TabIndex        =   9
  127.       Top             =   1200
  128.       Width           =   2175
  129.    End
  130.    Begin VB.Label Label8 
  131.       BackColor       =   &H00000000&
  132.       Caption         =   "   Network     Error     Message "
  133.       BeginProperty Font 
  134.          Name            =   "MS Sans Serif"
  135.          Size            =   9.75
  136.          Charset         =   0
  137.          Weight          =   700
  138.          Underline       =   0   'False
  139.          Italic          =   0   'False
  140.          Strikethrough   =   0   'False
  141.       EndProperty
  142.       ForeColor       =   &H0000FF00&
  143.       Height          =   255
  144.       Left            =   5520
  145.       TabIndex        =   8
  146.       Top             =   1200
  147.       Width           =   3255
  148.    End
  149.    Begin VB.Line Line4 
  150.       BorderColor     =   &H00FFFFFF&
  151.       X1              =   0
  152.       X2              =   9480
  153.       Y1              =   4080
  154.       Y2              =   4080
  155.    End
  156.    Begin VB.Line Line3 
  157.       X1              =   0
  158.       X2              =   9360
  159.       Y1              =   3960
  160.       Y2              =   3960
  161.    End
  162.    Begin VB.Line Line2 
  163.       BorderColor     =   &H00FFFFFF&
  164.       X1              =   0
  165.       X2              =   9480
  166.       Y1              =   1080
  167.       Y2              =   1080
  168.    End
  169.    Begin VB.Line Line1 
  170.       BorderColor     =   &H00000000&
  171.       X1              =   0
  172.       X2              =   9480
  173.       Y1              =   960
  174.       Y2              =   960
  175.    End
  176.    Begin VB.Label Label2 
  177.       BorderStyle     =   1  'Fixed Single
  178.       Caption         =   " Host Name        :"
  179.       BeginProperty Font 
  180.          Name            =   "MS Sans Serif"
  181.          Size            =   8.25
  182.          Charset         =   0
  183.          Weight          =   700
  184.          Underline       =   0   'False
  185.          Italic          =   0   'False
  186.          Strikethrough   =   0   'False
  187.       EndProperty
  188.       Height          =   375
  189.       Left            =   1920
  190.       TabIndex        =   3
  191.       Top             =   120
  192.       Width           =   1695
  193.    End
  194.    Begin VB.Label Label1 
  195.       BorderStyle     =   1  'Fixed Single
  196.       Caption         =   " Host IP Address :"
  197.       BeginProperty Font 
  198.          Name            =   "MS Sans Serif"
  199.          Size            =   8.25
  200.          Charset         =   0
  201.          Weight          =   700
  202.          Underline       =   0   'False
  203.          Italic          =   0   'False
  204.          Strikethrough   =   0   'False
  205.       EndProperty
  206.       Height          =   375
  207.       Left            =   1920
  208.       TabIndex        =   2
  209.       Top             =   480
  210.       Width           =   1695
  211.    End
  212. Attribute VB_Name = "TraceForm"
  213. Attribute VB_GlobalNameSpace = False
  214. Attribute VB_Creatable = False
  215. Attribute VB_PredeclaredId = True
  216. Attribute VB_Exposed = False
  217. Private Sub Form_Load()
  218.      HostName.Text = Trace1.Host_Name
  219.      TraceTimer.Enabled = False
  220. End Sub
  221. Private Sub HostIP_Change()
  222.     Trace1.IP_Address = HostIP.Text
  223. End Sub
  224. Private Sub HostName_Change()
  225.     Trace1.Host_Name = HostName.Text
  226. End Sub
  227. Private Sub StopCommand_Click()
  228.     TraceTimer.Enabled = False
  229. End Sub
  230. Private Sub TraceTimer_Timer()
  231.     DoEvents
  232.     If Trace1.Error Then
  233.         ErrorText.Text = Trace1.Error_Message
  234.         Trace1.Trace_Route = False
  235.         TraceTimer.Enabled = False
  236.         Exit Sub
  237.     End If
  238.     '
  239.     StatusText.Text = Trace1.Network_Message
  240.     HostIP.Text = Trace1.IP_Address
  241.     HostName.Text = Trace1.Host_Name
  242.     If Trace1.Trace_Route = False Then
  243.         StatusText.Text = Trace1.Network_Message
  244.         StatusText.Refresh
  245.         TraceTimer.Enabled = False
  246.         Exit Sub
  247.     End If
  248.         '
  249. End Sub
  250. Private Sub TraceCommand_Click()
  251.     '
  252.     TraceTimer.Enabled = True
  253.     Trace1.Trace_Route = True
  254.     '
  255.  End Sub
  256.