home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / webmon_1 / frmnewse.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-08-09  |  5.9 KB  |  181 lines
  1. VERSION 5.00
  2. Begin VB.Form frmNewServer 
  3.    BackColor       =   &H00FF8080&
  4.    BorderStyle     =   0  'None
  5.    Caption         =   "Form1"
  6.    ClientHeight    =   2805
  7.    ClientLeft      =   0
  8.    ClientTop       =   0
  9.    ClientWidth     =   4050
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   2805
  12.    ScaleWidth      =   4050
  13.    ShowInTaskbar   =   0   'False
  14.    StartUpPosition =   3  'Windows Default
  15.    Begin VB.TextBox txtURL 
  16.       Height          =   285
  17.       Left            =   1800
  18.       TabIndex        =   2
  19.       Top             =   720
  20.       Width           =   2055
  21.    End
  22.    Begin VB.TextBox txtMachineName 
  23.       Height          =   285
  24.       Left            =   1800
  25.       TabIndex        =   1
  26.       Top             =   1680
  27.       Width           =   2055
  28.    End
  29.    Begin VB.TextBox txtIP 
  30.       Height          =   285
  31.       Left            =   1800
  32.       TabIndex        =   0
  33.       Top             =   1200
  34.       Width           =   2055
  35.    End
  36.    Begin VB.Label Label4 
  37.       Alignment       =   2  'Center
  38.       BackColor       =   &H00FF8080&
  39.       Caption         =   "Add New Server"
  40.       BeginProperty Font 
  41.          Name            =   "Comic Sans MS"
  42.          Size            =   12
  43.          Charset         =   0
  44.          Weight          =   400
  45.          Underline       =   0   'False
  46.          Italic          =   0   'False
  47.          Strikethrough   =   0   'False
  48.       EndProperty
  49.       Height          =   375
  50.       Left            =   840
  51.       TabIndex        =   6
  52.       Top             =   120
  53.       Width           =   2175
  54.    End
  55.    Begin VB.Image Image2 
  56.       Height          =   480
  57.       Left            =   960
  58.       Picture         =   "frmNewServer.frx":0000
  59.       Top             =   2160
  60.       Width           =   480
  61.    End
  62.    Begin VB.Image command1 
  63.       Height          =   480
  64.       Left            =   2160
  65.       Picture         =   "frmNewServer.frx":0442
  66.       Top             =   2160
  67.       Width           =   480
  68.    End
  69.    Begin VB.Label Label3 
  70.       BackColor       =   &H00FF8080&
  71.       Caption         =   "Machine Name"
  72.       Height          =   255
  73.       Left            =   120
  74.       TabIndex        =   5
  75.       Top             =   1680
  76.       Width           =   1095
  77.    End
  78.    Begin VB.Label Label2 
  79.       BackColor       =   &H00FF8080&
  80.       Caption         =   "Server's IP address"
  81.       Height          =   255
  82.       Left            =   120
  83.       TabIndex        =   4
  84.       Top             =   1200
  85.       Width           =   1455
  86.    End
  87.    Begin VB.Label Label1 
  88.       BackColor       =   &H00FF8080&
  89.       Caption         =   "Server's URL"
  90.       Height          =   255
  91.       Left            =   120
  92.       TabIndex        =   3
  93.       Top             =   720
  94.       Width           =   1095
  95.    End
  96. Attribute VB_Name = "frmNewServer"
  97. Attribute VB_GlobalNameSpace = False
  98. Attribute VB_Creatable = False
  99. Attribute VB_PredeclaredId = True
  100. Attribute VB_Exposed = False
  101. Dim mmflag As Boolean
  102. Dim sax As Integer
  103. Dim Say As Integer
  104. Option Explicit
  105. Private Sub Command1_Click()
  106.     If blnEdit = True Then
  107.         'editing server
  108.         If txtURL <> "" And txtIP <> "" And txtMachineName <> "" Then
  109.                     SSetting "URL" & frmMain.intServClicked, txtURL
  110.                     SSetting "IP" & frmMain.intServClicked, txtIP
  111.                     SSetting "MName" & frmMain.intServClicked, txtMachineName
  112.                     SayThis "Server " & txtMachineName & " Updated"
  113.         End If
  114.                 modWeb.refresh
  115.                 Unload Me
  116.     Else
  117.         'new server
  118.         If frmMain.lblServer(7).Visible = True Then
  119.             MsgBox ("No more servers!")
  120.         Else
  121.             If Val(txtIP) < 1 Or InStr(1, txtIP, ".") < 1 Then
  122.                 MsgBox ("Thats not a valid IP address!!!!")
  123.             Else
  124.                 If txtURL <> "" And txtIP <> "" And txtMachineName <> "" Then
  125.                     SSetting "URL" & intNoOfServers, txtURL
  126.                     SSetting "IP" & intNoOfServers, txtIP
  127.                     SSetting "MName" & intNoOfServers, txtMachineName
  128.                     intNoOfServers = intNoOfServers + 1
  129.                     SSetting "NoOfServers", intNoOfServers
  130.                     SayThis "Server " & txtMachineName & " Added to server list"
  131.                 End If
  132.                 modWeb.refresh
  133.             End If
  134.         End If
  135.         Unload Me
  136.     End If
  137. End Sub
  138. Private Sub command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  139.     command1.BorderStyle = 1
  140. End Sub
  141. Private Sub Form_Load()
  142.     If blnEdit = True Then
  143.         Label4 = "Edit Server"
  144.         txtURL = LSetting("URL" & frmMain.intServClicked)
  145.         txtIP = LSetting("IP" & frmMain.intServClicked)
  146.         txtMachineName = LSetting("MName" & frmMain.intServClicked)
  147.     End If
  148. End Sub
  149. Private Sub Image2_Click()
  150.     Unload Me
  151. End Sub
  152. Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  153.    Dim fml As Long
  154.    Dim fmt As Long
  155.    Dim a As Integer
  156.         command1.BorderStyle = 0
  157.         Image2.BorderStyle = 0
  158.    If mmflag = True Then
  159.       fml = Me.Left: fmt = Me.Top
  160.       If X > sax Then Me.Left = fml + (X - sax)
  161.         If X < sax Then Me.Left = fml - (sax - X)
  162.       If Y > Say Then Me.Top = fmt + (Y - Say)
  163.       If Y < Say Then Me.Top = fmt - (Say - Y)
  164.    End If
  165.    End Sub
  166. Private Sub form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  167. If mmflag = False Then
  168.       sax = X
  169.       Say = Y
  170.       mmflag = True
  171.    End If
  172.    Me.MousePointer = vbSizePointer
  173.    End Sub
  174. Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  175.     mmflag = False
  176.    Me.MousePointer = vbDefault
  177. End Sub
  178. Private Sub Image2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  179.     Image2.BorderStyle = 1
  180. End Sub
  181.