frmmain.vb

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

		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"”
        'dlgCommonDialog.CancelError = True
		On Error GoTo out1
		dlgCommonDialogSave.ShowDialog()
        'dlgCommonDialogOpen.FileName = dlgCommonDialogSave.FileName
        WritePrivateProfileString("PUBLIC", "HOST", ComputerName, dlgCommonDialogSave.FileName)
        WritePrivateProfileString("PUBLIC", "CLSID", ServerClassID, dlgCommonDialogSave.FileName)
        WritePrivateProfileString("PUBLIC", "GROUP", GroupName, dlgCommonDialogSave.FileName)
        WritePrivateProfileString("PUBLIC", "COUNT", lvListView.Items.Count.ToString(), dlgCommonDialogSave.FileName)
		For I = 0 To lvListView.Items.Count - 1
			'UPGRADE_WARNING: 集合 lvListView.ListItems 的下限已由 1 更改为 0。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="A3B628A0-A810-4AE2-BFA2-9E7A29EB9AD0"”
            WritePrivateProfileString("ITEM", "item" & (I + 1).ToString(), lvListView.Items.Item(I + 1).Text, dlgCommonDialogSave.FileName)
		Next 
		
		Exit Sub
out1: 
		' MsgBox dlgCommonDialog.FileName
	End Sub
	
	Public Sub mnuAddItem_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles mnuAddItem.Click
		VB6.ShowForm(frmItemBrowser, VB6.FormShowConstants.Modal, Me)
	End Sub
	
	Public Sub mnuConnect_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles mnuConnect.Click
		VB6.ShowForm(frmServerBrowser, VB6.FormShowConstants.Modal, Me)
		If frmServerBrowser.mbReturn = False Then Exit Sub
		If Len(frmServerBrowser.ServerClassID) < 1 Then Exit Sub
		'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 = "GROUP" & Rnd()
		lstProcess.Items.Clear()
		'UPGRADE_WARNING: 未能解析对象 ServerHandle 的默认属性。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"”
		ServerHandle = OPC_Connect(frmServerBrowser.ComputerName, frmServerBrowser.ServerClassID, frmServerBrowser.Version)
		'MsgBox ServerHandle
		'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)
			'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)
			' MsgBox GroupHandle
			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
				ComputerName = frmServerBrowser.ComputerName
				ServerClassID = frmServerBrowser.ServerClassID
			End If
		End If
	End Sub
	
	Public Sub mnuDisconnect_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles mnuDisconnect.Click
		'UPGRADE_WARNING: 未能解析对象 ServerHandle 的默认属性。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"”
		If OPC_Disconnect(ServerHandle) Then
			lvListView.Items.Clear()
			GroupHandle = 0
			'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
			mnuReadItem.Enabled = False
			mnuWriteItem.Enabled = False
			mnuRemoveItem.Enabled = False
			mnuItemStatus.Enabled = False
			menuSaveAs.Enabled = False
		End If
	End Sub
	
	Public Sub mnuExit_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles mnuExit.Click
		Me.Close()
	End Sub
	
	Public Sub mnuGroupStatus_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles mnuGroupStatus.Click
		frmGroupStatus.frmGroupName = GroupName
		VB6.ShowForm(frmGroupStatus, VB6.FormShowConstants.Modal, Me)
		If frmGroupStatus.mbReturn Then
			If frmGroupStatus.frmGroupName <> GroupName Then
				'UPGRADE_WARNING: 未能解析对象 ServerHandle 的默认属性。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"”
				If OPC_SetGroupName(ServerHandle, GroupHandle, frmGroupStatus.frmGroupName) Then
					GroupName = frmGroupStatus.frmGroupName
				End If
			End If
			'UPGRADE_WARNING: 未能解析对象 frmGroupStatus.TimeBias 的默认属性。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"”
			'UPGRADE_WARNING: 未能解析对象 frmGroupStatus.UpdateRate 的默认属性。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"”
			'UPGRADE_WARNING: 未能解析对象 ServerHandle 的默认属性。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"”
			OPC_SetGroupStat(ServerHandle, GroupHandle, frmGroupStatus.UpdateRate, frmGroupStatus.Active, frmGroupStatus.TimeBias, frmGroupStatus.DeadBand, 0)
		End If
	End Sub
	
	Public Sub mnuHelpAbout_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles mnuHelpAbout.Click
		VB6.ShowForm(frmAbout, VB6.FormShowConstants.Modal, Me)
	End Sub
	
	Public Sub mnuItemStatus_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles mnuItemStatus.Click
		If lvListView.FocusedItem Is Nothing Then Exit Sub
		frmItemStatus.ItemName = lvListView.FocusedItem.Text
		VB6.ShowForm(frmItemStatus, VB6.FormShowConstants.Modal, Me)
	End Sub
	
	Public Sub mnuReadItem_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles mnuReadItem.Click
		Dim lvItem As System.Windows.Forms.ListViewItem
		
		If lvListView.FocusedItem Is Nothing Then Exit Sub
		Dim Var As Object
		Dim Ft As Double
		Dim ftdt As FILETIME
		Dim Quality As Short
		
		
		'UPGRADE_WARNING: 未能解析对象 ServerHandle 的默认属性。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"”
		If OPC_ReadItem(ServerHandle, GroupHandle, ItemArr(lvListView.FocusedItem.Tag).Handle, Var, Ft, Quality) Then
			'UPGRADE_WARNING: 未能解析对象 ftdt 的默认属性。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"”
            'CopyMemory(ftdt, Ft, Len(Ft))
            ftdt = DoubleToFileTime(Ft)
			'UPGRADE_WARNING: 未能解析对象 Var 的默认属性。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"”
			'UPGRADE_WARNING: 未能解析对象 ItemArr().Value 的默认属性。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"”
			ItemArr(lvListView.FocusedItem.Tag).Value = Var
			ItemArr(lvListView.FocusedItem.Tag).Quality = Quality
			'UPGRADE_WARNING: 未能解析对象 ItemArr().Ft 的默认属性。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"”
			ItemArr(lvListView.FocusedItem.Tag).Ft = ftdt
			'UPGRADE_WARNING: 集合 lvListView.SelectedItem 的下限已由 1 更改为 0。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="A3B628A0-A810-4AE2-BFA2-9E7A29EB9AD0"”
			'UPGRADE_WARNING: 未能解析对象 Var 的默认属性。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"”
			If lvListView.FocusedItem.SubItems.Count > 1 Then
				lvListView.FocusedItem.SubItems(1).Text = Var
			Else
				lvListView.FocusedItem.SubItems.Insert(1, New System.Windows.Forms.ListViewItem.ListViewSubItem(Nothing, Var))
			End If
			'UPGRADE_WARNING: 集合 lvListView.SelectedItem 的下限已由 1 更改为 0。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="A3B628A0-A810-4AE2-BFA2-9E7A29EB9AD0"”
			If lvListView.FocusedItem.SubItems.Count > 2 Then
                lvListView.FocusedItem.SubItems(2).Text = Quality.ToString()
			Else
                lvListView.FocusedItem.SubItems.Insert(2, New System.Windows.Forms.ListViewItem.ListViewSubItem(Nothing, Quality.ToString()))