form1.frm

opc client 的开发工具

VERSION 5.00
Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "comctl32.ocx"
Begin VB.Form fMain 
   Caption         =   "开物OPC Toolkit(DA)--VB服务器样例程序"
   ClientHeight    =   5475
   ClientLeft      =   165
   ClientTop       =   450
   ClientWidth     =   9105
   LinkTopic       =   "Form1"
   ScaleHeight     =   5475
   ScaleWidth      =   9105
   StartUpPosition =   1  'CenterOwner
   Begin ComctlLib.Toolbar Toolbar1 
      Align           =   1  'Align Top
      Height          =   420
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   9105
      _ExtentX        =   16060
      _ExtentY        =   741
      Appearance      =   1
      _Version        =   327682
      BeginProperty Buttons {0713E452-850A-101B-AFC0-4210102A8DA7} 
         NumButtons      =   9
         BeginProperty Button1 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Object.Tag             =   ""
         EndProperty
         BeginProperty Button2 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Object.Tag             =   ""
         EndProperty
         BeginProperty Button3 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Object.Tag             =   ""
         EndProperty
         BeginProperty Button4 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Object.Tag             =   ""
            Style           =   3
         EndProperty
         BeginProperty Button5 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Object.Tag             =   ""
         EndProperty
         BeginProperty Button6 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Object.Tag             =   ""
         EndProperty
         BeginProperty Button7 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Object.Tag             =   ""
         EndProperty
         BeginProperty Button8 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Object.Tag             =   ""
            Style           =   3
         EndProperty
         BeginProperty Button9 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Object.Tag             =   ""
         EndProperty
      EndProperty
      BorderStyle     =   1
   End
   Begin ComctlLib.ListView lvMain 
      Height          =   1095
      Left            =   840
      TabIndex        =   3
      Top             =   960
      Width           =   2895
      _ExtentX        =   5106
      _ExtentY        =   1931
      LabelWrap       =   -1  'True
      HideSelection   =   -1  'True
      _Version        =   327682
      ForeColor       =   -2147483640
      BackColor       =   -2147483643
      BorderStyle     =   1
      Appearance      =   1
      NumItems        =   0
   End
   Begin VB.Timer Timer1 
      Interval        =   1000
      Left            =   5760
      Top             =   1080
   End
   Begin ComctlLib.StatusBar StatusBar1 
      Align           =   2  'Align Bottom
      Height          =   375
      Left            =   0
      TabIndex        =   2
      Top             =   5100
      Width           =   9105
      _ExtentX        =   16060
      _ExtentY        =   661
      SimpleText      =   ""
      _Version        =   327682
      BeginProperty Panels {0713E89E-850A-101B-AFC0-4210102A8DA7} 
         NumPanels       =   3
         BeginProperty Panel1 {0713E89F-850A-101B-AFC0-4210102A8DA7} 
            TextSave        =   ""
            Object.Tag             =   ""
         EndProperty
         BeginProperty Panel2 {0713E89F-850A-101B-AFC0-4210102A8DA7} 
            TextSave        =   ""
            Object.Tag             =   ""
         EndProperty
         BeginProperty Panel3 {0713E89F-850A-101B-AFC0-4210102A8DA7} 
            Object.Width           =   3528
            MinWidth        =   3528
            TextSave        =   ""
            Object.Tag             =   ""
         EndProperty
      EndProperty
   End
   Begin ComctlLib.ListView lvMsg 
      Height          =   1815
      Left            =   1080
      TabIndex        =   1
      Top             =   2640
      Width           =   3855
      _ExtentX        =   6800
      _ExtentY        =   3201
      LabelWrap       =   -1  'True
      HideSelection   =   -1  'True
      _Version        =   327682
      ForeColor       =   -2147483640
      BackColor       =   -2147483643
      BorderStyle     =   1
      Appearance      =   1
      NumItems        =   0
   End
   Begin VB.Menu mnFile 
      Caption         =   "文件(&F)"
      Begin VB.Menu mnFileNew 
         Caption         =   "新建配置文件(&N)"
         Shortcut        =   ^N
      End
      Begin VB.Menu mnFileSave 
         Caption         =   "保存配置文件(&S)"
         Shortcut        =   ^S
      End
      Begin VB.Menu mnFileSaveAs 
         Caption         =   "另存配置文件(&A)"
         Shortcut        =   ^A
      End
      Begin VB.Menu mn0 
         Caption         =   "-"
      End
      Begin VB.Menu mnFileExit 
         Caption         =   "退出(&X)"
      End
   End
   Begin VB.Menu mnEdit 
      Caption         =   "编辑(&E)"
      Begin VB.Menu mnEditInterval 
         Caption         =   "设置刷新频率(&I)"
      End
      Begin VB.Menu mn1 
         Caption         =   "-"
      End
      Begin VB.Menu mnEditCopy 
         Caption         =   "拷贝(&C)"
         Shortcut        =   ^C
      End
      Begin VB.Menu mnEditCut 
         Caption         =   "剪切(&P)"
         Shortcut        =   ^X
      End
      Begin VB.Menu mnEditPaste 
         Caption         =   "粘贴(&P)"
         Shortcut        =   ^V
      End
      Begin VB.Menu mn2 
         Caption         =   "-"
      End
      Begin VB.Menu mnEditRefresh 
         Caption         =   "记录标签刷新消息(&R)"
      End
      Begin VB.Menu mnEditMessage 
         Caption         =   "清除操作消息(&M)"
      End
   End
   Begin VB.Menu mnTool 
      Caption         =   "工具(&T)"
      Begin VB.Menu mnToolAdd 
         Caption         =   "增加标签(&A)"
      End
      Begin VB.Menu mnToolActivate 
         Caption         =   "激活标签(&C)"
      End
      Begin VB.Menu mn3 
         Caption         =   "-"
      End
      Begin VB.Menu mnToolStart 
         Caption         =   "启动数据刷新(&S)"
      End
      Begin VB.Menu mnToolStop 
         Caption         =   "停止数据刷新(&T)"
      End
   End
   Begin VB.Menu mnHelp 
      Caption         =   "帮助(&H)"
      Begin VB.Menu mnHelpContent 
         Caption         =   "使用指南(&C)"
         Shortcut        =   {F1}
      End
      Begin VB.Menu mn4 
         Caption         =   "-"
      End
      Begin VB.Menu mnHelpAbot 
         Caption         =   "关于(&A)"
      End
   End
End
Attribute VB_Name = "fMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private mx, my As Integer
Private IsMove As Boolean
Private Sub Command1_Click()

End Sub

Private Sub Form_Resize()
    lvMain.Left = 0
    lvMain.Top = Toolbar1.Height
    lvMain.Width = fMain.ScaleWidth
    lvMain.Height = (fMain.Height - Toolbar1.Height) / 2
    lvMsg.Left = 0
    lvMsg.Top = lvMain.Height + 40 + Toolbar1.Height
    lvMsg.Width = fMain.ScaleWidth
    lvMsg.Height = fMain.ScaleHeight - lvMain.Height - 40 - StatusBar1.Height - Toolbar1.Height
    'StatusBar1.Panels(3).Left = StatusBar1.Left + StatusBar1.Width - 2000
End Sub


Private Sub Timer1_Timer()
    StatusBar1.Panels(3).Text = Now
End Sub