ViewVC Help
View File | Revision Log | Show Annotations | Revision Graph | Root Listing
root/i-scream/experimental/host/vb_net_test/nettest.frm
(Generate patch)

Comparing experimental/host/vb_net_test/nettest.frm (file contents):
Revision 1.8 by pjm2, Fri Feb 23 11:25:35 2001 UTC vs.
Revision 1.9 by pjm2, Fri Feb 23 11:30:25 2001 UTC

# Line 67 | Line 67 | Begin VB.Form Form1
67        _Version        =   393216
68        Protocol        =   1
69     End
70 <   Begin VB.Label Label4
71 <      Caption         =   "Label4"
70 >   Begin VB.Label Label2
71 >      Alignment       =   1  'Right Justify
72 >      Caption         =   "Next heartbeat:"
73        Height          =   255
74 <      Left            =   1920
74 >      Left            =   120
75        TabIndex        =   8
76 <      Top             =   1320
77 <      Width           =   615
76 >      Top             =   480
77 >      Width           =   1455
78     End
79 <   Begin VB.Label Label3
80 <      Caption         =   "Label3"
79 >   Begin VB.Label Label1
80 >      Alignment       =   1  'Right Justify
81 >      Caption         =   "Next UDP packet:"
82        Height          =   255
83 <      Left            =   1920
83 >      Left            =   120
84        TabIndex        =   7
85 <      Top             =   960
86 <      Width           =   615
85 >      Top             =   120
86 >      Width           =   1455
87     End
88 <   Begin VB.Label Label2
89 <      Caption         =   "Label2"
88 >   Begin VB.Label Label4
89 >      Caption         =   "0"
90        Height          =   255
91 <      Left            =   120
91 >      Left            =   1680
92        TabIndex        =   6
93 <      Top             =   600
94 <      Width           =   3375
93 >      Top             =   480
94 >      Width           =   615
95     End
96 <   Begin VB.Label Label1
97 <      Caption         =   "Label1"
96 >   Begin VB.Label Label3
97 >      Caption         =   "0"
98        Height          =   255
99 <      Left            =   120
99 >      Left            =   1680
100        TabIndex        =   5
101 <      Top             =   240
102 <      Width           =   3375
101 >      Top             =   120
102 >      Width           =   615
103     End
104     Begin VB.Label Status
105        Caption         =   "Status:"
# Line 262 | Line 264 | Private Sub TCPSock_DataArrival(ByVal bytesTotal As Lo
264                  responseNumber = 0
265                  TCPSock.Close
266                  Text4.Text = Text4.Text & vbCrLf & "  <closed>"
265                Label1.Caption = "TCP hearbeat interval: " & UDPUpdateTime
266                Label2.Caption = "UDP packet interval: " & TCPUpdateTime
267                  Status.Caption = "i-scream Winhost " & protocolVersion & " - got config okay"
268                  Label3.Caption = UDPUpdateTime
269                  Label4.Caption = TCPUpdateTime

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines