frmmain.vb

OPC-Client sdk for vb/vb.net/c#

Option Strict Off
Option Explicit On
Friend Class frmMain
	Inherits System.Windows.Forms.Form
    Dim ComputerName, ServerClassID As String
    Dim temp1 As New ServerDataChangeProcProxy(AddressOf ServerDataChangeProc)
    Dim temp2 As New ServerShutdownProcProxy(AddressOf ServerShutdownProc)
    Dim tmp As New AddProcessProxy(AddressOf AddProcess)

	Public Sub Disconnect()
		ItemIndex = 0
		'UPGRADE_WARNING: 未能解析对象 ServerHandle 的默认属性。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"”
		If ServerHandle = 0 Then Exit Sub
		If GroupHandle > 0 Then
			lvListView.Items.Clear()
			'UPGRADE_WARNING: 未能解析对象 ServerHandle 的默认属性。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"”
            Dim ret As Boolean
            ret = OPC_RemoveGroup(ServerHandle, GroupHandle)
            GroupHandle = 0
		End If
		
		'UPGRADE_WARNING: 未能解析对象 ServerHandle 的默认属性。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"”
		If OPC_Disconnect(ServerHandle) Then
			'UPGRADE_WARNING: 未能解析对象 ServerHandle 的默认属性。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"”
			ServerHandle = 0
            mnuConnect.Enabled = True
			mnuDisconnect.Enabled = False
			mnuServerStatus.Enabled = False
			mnuGroupStatus.Enabled = False
			mnuGroupRefresh.Enabled = False
			mnuAddItem.Enabled = False
			mnuAddItem.Enabled = False
			mnuRemoveItem.Enabled = False
			mnuReadItem.Enabled = False
			mnuWriteItem.Enabled = False
			mnuItemStatus.Enabled = False
		End If
		
	End Sub
	
	Private Sub frmMain_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load
		'UPGRADE_WARNING: 未能解析对象 ServerHandle 的默认属性。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"”
		ServerHandle = 0
		GroupHandle = 0
		ItemIndex = 0
		GroupName = "GROUP1"
		'序列号用户使用
		'AS_ActiveCode "", ""
        Call OPC_Init()

        OPC_SetProcessTiggerProcA(tmp)
		'UPGRADE_ISSUE: 未能分析上一行。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="82EBB1AE-1FCB-4FEF-9E6C-8736A316F8A7"”
	End Sub
	
	Private Sub frmMain_FormClosed(ByVal eventSender As System.Object, ByVal eventArgs As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
		'UPGRADE_WARNING: 未能解析对象 ServerHandle 的默认属性。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"”
		If ServerHandle > -1 Then
			'UPGRADE_WARNING: 未能解析对象 ServerHandle 的默认属性。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"”
			OPC_Disconnect(ServerHandle)
		End If
		OPC_Uninit()
	End Sub
	
	
	'UPGRADE_WARNING: 初始化窗体时可能激发事件 frmMain.Resize。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="88B12AE1-6DE0-48A0-86F1-60C0686C026A"”
	Private Sub frmMain_Resize(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Resize
		On Error Resume Next
		If VB6.PixelsToTwipsX(Me.Width) < 3000 Then Me.Width = VB6.TwipsToPixelsX(3000)
		lvListView.Top = 0
		lvListView.Left = VB6.TwipsToPixelsX(10)
		lvListView.Width = VB6.TwipsToPixelsX(VB6.PixelsToTwipsX(Me.Width) - 120)
		lvListView.Height = VB6.TwipsToPixelsY(VB6.PixelsToTwipsY(Me.ClientRectangle.Height) - VB6.PixelsToTwipsY(sbStatusBar.Height) - VB6.PixelsToTwipsY(lstProcess.Height))
		lstProcess.Top = VB6.TwipsToPixelsY(VB6.PixelsToTwipsY(lvListView.Height) + 20)
		lstProcess.Width = lvListView.Width
	End Sub
	
	'UPGRADE_ISSUE: MSComctlLib.ListView 事件 lvListView.ItemClick 未升级。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="ABD9AF39-7E24-4AFF-AD8D-3675C1AA3054"”
	Private Sub lvListView_ItemClick(ByVal Item As System.Windows.Forms.ListViewItem)
		If lvListView.FocusedItem Is Nothing Then Exit Sub
		mnuReadItem.Enabled = True
		mnuWriteItem.Enabled = True
		mnuItemStatus.Enabled = True
		mnuRemoveItem.Enabled = True
	End Sub
	
	Public Sub menuOpen_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles menuOpen.Click
		Dim fn As String
        Dim I, Count As Integer ' "txt files (*.txt)|*.txt|All files (*.*)|*.*"

		'UPGRADE_WARNING: Filter 有新行为。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="9B7D5ADD-D8FE-4819-A36C-6DEDAF088CC7"”
        dlgCommonDialogOpen.Filter = "OPC client Files(*.opc)|*.opc|All Files(*.*)|*.*"
        'dlgCommonDialogSave.Filter = "OPC client Files(*.opc)|*.opc|All Files(*.*)|*.*|"
		dlgCommonDialogOpen.FileName = "opcclient.opc"
        'dlgCommonDialogSave.FileName = "opcclient.opc"
		'UPGRADE_WARNING: 在 Visual Basic .NET 中不支持 CommonDialog CancelError 属性。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="8B377936-3DF7-4745-AA26-DD00FA5B9BE1"”
        ' dlgCommonDialogOpen.can.CancelError = True
		On Error GoTo out1
		dlgCommonDialogOpen.ShowDialog()
        'dlgCommonDialogSave.FileName = dlgCommonDialogOpen.FileName
        Call Disconnect()
		ComputerName = ReadInIFiles("PUBLIC", "HOST", "", (dlgCommonDialogOpen.FileName))
		ServerClassID = ReadInIFiles("PUBLIC", "CLSID", "", (dlgCommonDialogOpen.FileName))
		GroupName = ReadInIFiles("PUBLIC", "GROUP", "GROUP1", (dlgCommonDialogOpen.FileName))
		Count = Val(ReadInIFiles("PUBLIC", "COUNT", "0", (dlgCommonDialogOpen.FileName)))
		'UPGRADE_WARNING: 未能解析对象 ServerHandle 的默认属性。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"”
		ServerHandle = OPC_Connect(ComputerName, ServerClassID, 1)
		'UPGRADE_WARNING: 未能解析对象 ServerHandle 的默认属性。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"”
		If ServerHandle > 0 Then
			'UPGRADE_WARNING: 为 AddressOf ServerDataChangeProc 添加委托 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="E9E157F7-EF0C-4016-87B7-7D7FBBC6EE08"”
			'UPGRADE_WARNING: 未能解析对象 ServerHandle 的默认属性。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"”
            OPC_SetDataChangeProc(ServerHandle, temp1)
            'UPGRADE_WARNING: 为 AddressOf ServerShutdownProc 添加委托 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="E9E157F7-EF0C-4016-87B7-7D7FBBC6EE08"”
            'UPGRADE_WARNING: 未能解析对象 ServerHandle 的默认属性。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"”
            OPC_SetShutdownProc(ServerHandle, temp2)


            '         OPC_SetDataChangeProc(ServerHandle, AddressOf ServerDataChangeProc)
            ''UPGRADE_WARNING: 为 AddressOf ServerShutdownProc 添加委托 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="E9E157F7-EF0C-4016-87B7-7D7FBBC6EE08"”
            ''UPGRADE_WARNING: 未能解析对象 ServerHandle 的默认属性。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"”
            'OPC_SetShutdownProc(ServerHandle, AddressOf ServerShutdownProc)
			'UPGRADE_WARNING: 未能解析对象 ServerHandle 的默认属性。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"”
			GroupHandle = OPC_AddGroup(ServerHandle, GroupName, True, 500, 0, 0, 0)
			If GroupHandle > 0 Then
				mnuConnect.Enabled = False
				mnuDisconnect.Enabled = True
				mnuServerStatus.Enabled = True
				mnuGroupStatus.Enabled = True
				mnuGroupRefresh.Enabled = True
				mnuAddItem.Enabled = True
				menuSaveAs.Enabled = True
			End If
			For I = 0 To Count - 1
                AddItem(ReadInIFiles("ITEM", "item" & (Count - I).ToString(), "", (dlgCommonDialogOpen.FileName)))
			Next 
		End If
		
		
		Exit Sub
out1:
        MessageBox.Show(Err.Description)
		' MsgBox dlgCommonDialog.FileName
	End Sub
	
	Public Sub menuSaveAs_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles menuSaveAs.Click
		Dim fn As String
		Dim I As Integer
		'UPGRADE_WARNING: Filter 有新行为。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="9B7D5ADD-D8FE-4819-A36C-6DEDAF088CC7"”
        'dlgCommonDialogOpen.Filter = "OPC client Files(*.opc)|*.opc|All Files(*.*)|*.*|"
        dlgCommonDialogSave.Filter = "OPC client Files(*.opc)|*.opc|All Files(*.*)|*.*"
        'dlgCommonDialogOpen.FileName = "opcclient.opc"