frmmain.frm

VB opc程序 欢迎大家看下

VERSION 5.00
Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "COMCTL32.OCX"
Begin VB.Form FrmMain 
   AutoRedraw      =   -1  'True
   BackColor       =   &H80000008&
   Caption         =   "TuoLin OPC Server For VB Demo"
   ClientHeight    =   5100
   ClientLeft      =   165
   ClientTop       =   450
   ClientWidth     =   4380
   LinkTopic       =   "Form1"
   ScaleHeight     =   5100
   ScaleWidth      =   4380
   StartUpPosition =   1  '所有者中心
   Begin VB.Timer Timer1 
      Enabled         =   0   'False
      Interval        =   3000
      Left            =   720
      Top             =   600
   End
   Begin ComctlLib.StatusBar StatusBar1 
      Align           =   2  'Align Bottom
      Height          =   375
      Left            =   0
      TabIndex        =   0
      Top             =   4725
      Width           =   4380
      _ExtentX        =   7726
      _ExtentY        =   661
      Style           =   1
      SimpleText      =   "空闲"
      _Version        =   327682
      BeginProperty Panels {0713E89E-850A-101B-AFC0-4210102A8DA7} 
         NumPanels       =   1
         BeginProperty Panel1 {0713E89F-850A-101B-AFC0-4210102A8DA7} 
            Key             =   ""
            Object.Tag             =   ""
         EndProperty
      EndProperty
   End
   Begin VB.TextBox Text1 
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   4095
      Left            =   240
      MultiLine       =   -1  'True
      TabIndex        =   1
      Top             =   240
      Width           =   3975
   End
   Begin VB.Menu IDR_Menu_OPC 
      Caption         =   "OPC"
      Begin VB.Menu IDR_Menu_Register 
         Caption         =   "Register"
      End
      Begin VB.Menu IDR_Menu_UnRegister 
         Caption         =   "UnRegister"
      End
      Begin VB.Menu IDR_Menu_0001 
         Caption         =   "-"
      End
      Begin VB.Menu IDR_Menu_SvrStatus 
         Caption         =   "Server Status"
      End
      Begin VB.Menu IDR_Menu_0003 
         Caption         =   "-"
      End
      Begin VB.Menu IDR_Menu_AddItem 
         Caption         =   "Add Item"
      End
      Begin VB.Menu IDR_Menu_DelItem 
         Caption         =   "Delete Item"
      End
      Begin VB.Menu IDR_Menu_0002 
         Caption         =   "-"
      End
      Begin VB.Menu IDR_Menu_Exit 
         Caption         =   "Exit"
      End
   End
   Begin VB.Menu IDR_Menu_DataTime 
      Caption         =   "Data Time"
      Begin VB.Menu IDR_Menu_Start 
         Caption         =   "Start"
      End
      Begin VB.Menu IDR_Menu_Stop 
         Caption         =   "Stop"
      End
   End
   Begin VB.Menu IDR_Menu_About 
      Caption         =   "About"
   End
End
Attribute VB_Name = "FrmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub Form_Load()
 '初始化
 OnInitOpcServer
 
 
 Timer1.Enabled = False
 IDR_Menu_Start.Enabled = True
 IDR_Menu_Stop.Enabled = False
 
End Sub

Private Sub Form_Resize()
 Text1.Left = 0
 Text1.Top = 0
 If (Me.Width - 10) > 0 Then Text1.Width = Me.Width - 10
 If (Me.Height - StatusBar1.Height - 200 > 0) Then Text1.Height = Me.Height - 600 - StatusBar1.Height
End Sub

Private Sub Form_Unload(Cancel As Integer)
 OnUnInitOpcServer
End Sub

Private Sub IDR_Menu_About_Click()
  frmAbout.Show 1, Me
End Sub

Private Sub IDR_Menu_AddItem_Click()
'Additem
OnAddItem
StatusBar1.SimpleText = "OnAddItem........"
End Sub

Private Sub IDR_Menu_DelItem_Click()
'DeleteItem
OnDeleteItem
End Sub

Private Sub IDR_Menu_Register_Click()
'register
 Call OnRegister
 StatusBar1.SimpleText = "OnRegister..........."
End Sub

Private Sub IDR_Menu_Start_Click()
StatusBar1.SimpleText = "Timer1...start......."
Timer1.Enabled = True
 
IDR_Menu_Start.Enabled = False
IDR_Menu_Stop.Enabled = True
 
 
End Sub

Private Sub IDR_Menu_Stop_Click()
Timer1.Enabled = False
StatusBar1.SimpleText = "Timer1...stop........"

IDR_Menu_Start.Enabled = True
IDR_Menu_Stop.Enabled = False
End Sub

Private Sub IDR_Menu_UnRegister_Click()
'UnRegister
 Call OnUnRegister
 StatusBar1.SimpleText = "OnUnRegister..........."
End Sub

Private Sub IDR_Menu_SvrStatus_Click()
'ServerStatus
 
    TL_AsNTService (lpOPCProgID)
    TL_SetServerState (OPC_STATUS_RUNNING)
    TL_SetMajorVersion (1)
    TL_SetMinorVersion (2)
    TL_SetBuildNumber (3)
    TL_SetVendorInfo ("TuoLin")
    TL_SetBandWidth (50)
End Sub

Private Sub IDR_Menu_Exit_Click()
'Exit
If MsgBox("是否退出程序?", vbYesNo + vbQuestion, "OPC Server Demo") = vbYes Then
   Unload Me
End If
End Sub

Private Sub Timer1_Timer()
    StatusBar1.SimpleText = "Start Update data..........."
    OnRandomData
    OnUpdateData
    StatusBar1.SimpleText = "Update data..........."
    DoEvents
End Sub