frmip.frm

基于化工行业造气岗位的自动化监控系统

VERSION 5.00
Begin VB.Form frmIP 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "寻优微机IP地址设置"
   ClientHeight    =   1020
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   4125
   Icon            =   "frmIP.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   1020
   ScaleWidth      =   4125
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton cmdClose 
      Caption         =   "关闭&C"
      Height          =   375
      Left            =   3000
      TabIndex        =   3
      Top             =   600
      Width           =   1095
   End
   Begin VB.CommandButton cmdApplay 
      Caption         =   "应用&1"
      Height          =   315
      Index           =   0
      Left            =   2970
      TabIndex        =   2
      Top             =   120
      Width           =   1095
   End
   Begin VB.ComboBox cboIP 
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   315
      Index           =   0
      Left            =   720
      TabIndex        =   1
      Text            =   "192.168.0.100"
      Top             =   120
      Width           =   2175
   End
   Begin VB.Label lblID 
      Alignment       =   1  'Right Justify
      Caption         =   "1#炉"
      Height          =   255
      Index           =   0
      Left            =   0
      TabIndex        =   0
      Top             =   180
      Width           =   615
   End
End
Attribute VB_Name = "frmIP"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'*************湖南仪峰公司新模块化DCS组件*************************
    '作者：      彭逢望,隆朋飞
    '编写日期：  2004-6-15
    '最后修改：  2004-9-25
    '修改人：    彭逢望
'*****************************************************************

Private Sub cmdApplay_MouseUp(Index As Integer, Button As Integer, Shift As Integer, x As Single, y As Single)
    On Error Resume Next
    Stove(Index).ip = Trim(cboIP(Index).Text)
    WritePrivateProfileString "Stove" & Index + 1, "IP", CStr(Trim(cboIP(Index).Text)), iniPaths + "Stove.ini"
    Dim strSend As String
    strSend = ""
    'IP 同步
    If SWstopstove Then SynchroMsg "(" & Index & "(" & Stove(Index).ip
    If Index < StoveNumber Then
        strSend = "(" & Index + StoveStart & "(" & Stove(Index).ip
        RemoteMsg strSend
    End If
End Sub

Private Sub cmdClose_Click()
    Unload Me
End Sub

Private Sub Form_Load()
    Dim RetVal As Long
    RetVal = SetParent(Me.hWnd, frmMain.hWnd)
    Dim i As Long, j As Long
    
    For i = 0 To StoveNumber + StoveNumberR - 1
        If i <> 0 Then Load lblID(i)
        If i <> 0 Then Load cboIP(i)
        If i <> 0 Then Load cmdApplay(i)
        With lblID(i)
            .Top = lblID(0).Top + i * (lblID(0).Height + 80)
            If i < StoveNumber Then
                .Caption = (i + StoveStart) & "#炉"
            Else
                .Caption = (i - StoveNumber + StoveStartR) & "#炉"
            End If
            .Visible = True
        End With
        
        With cboIP(i)
            .Top = cboIP(0).Top + i * (cboIP(0).Height + 20)
            .Visible = True
            .Text = Stove(i).ip
            For j = 0 To StoveNumber - 1
                .AddItem Stove(j).ip
            Next
        End With
        
        With cmdApplay(i)
            If i < StoveNumber Then
                .Caption = "应用&" & (i + StoveStart)
            Else
                .Caption = "应用&" & (i - StoveNumber + StoveStartR)
            End If
            .Top = cboIP(i).Top
            .Visible = True
        End With
    Next
    
    cmdClose.Top = cboIP(StoveNumber + StoveNumberR - 1).Top + cboIP(StoveNumber + StoveNumberR - 1).Height + 200
    Me.Height = cmdClose.Top + cmdClose.Height + 420
End Sub