frmmain.vb

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

			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 > 3 Then
                lvListView.FocusedItem.SubItems(3).Text = FileTimeToDate(ftdt).ToString()
			Else
                lvListView.FocusedItem.SubItems.Insert(3, New System.Windows.Forms.ListViewItem.ListViewSubItem(Nothing, FileTimeToDate(ftdt).ToString()))
			End If
		End If
	End Sub
	
	
	Public Sub mnuGroupRefresh_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles mnuGroupRefresh.Click
		'UPGRADE_WARNING: 未能解析对象 ServerHandle 的默认属性。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"”
		OPC_RefreshGroup(ServerHandle, GroupHandle, 1)
	End Sub
	
	
	Public Sub mnuRemoveItem_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles mnuRemoveItem.Click
		Dim lvItem As System.Windows.Forms.ListViewItem
		
		If lvListView.FocusedItem Is Nothing Then Exit Sub
		
		If RemoveItem(lvListView.FocusedItem.Tag) Then
			lvListView.Items.RemoveAt(lvListView.FocusedItem.Index)
		End If
	End Sub
	
	Public Sub AddItem(ByRef ItemName As String)
		Dim Index As Integer
		Dim lvItem As System.Windows.Forms.ListViewItem
		Index = AddItemM(ItemName)
		If Index > 0 Then
			'UPGRADE_WARNING: 集合 lvListView.ListItems 的下限已由 1 更改为 0。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="A3B628A0-A810-4AE2-BFA2-9E7A29EB9AD0"”
            lvItem = lvListView.Items.Insert(0, "K" & Index.ToString(), ItemName, "")
			'        Debug.Print "K" + CStr(Index)
            lvItem.Tag = Index.ToString()
			'UPGRADE_WARNING: 集合 lvItem 的下限已由 1 更改为 0。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="A3B628A0-A810-4AE2-BFA2-9E7A29EB9AD0"”
			If lvItem.SubItems.Count > 1 Then
				lvItem.SubItems(1).Text = "Bad"
			Else
				lvItem.SubItems.Insert(1, New System.Windows.Forms.ListViewItem.ListViewSubItem(Nothing, "Bad"))
			End If
			'UPGRADE_WARNING: 集合 lvItem 的下限已由 1 更改为 0。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="A3B628A0-A810-4AE2-BFA2-9E7A29EB9AD0"”
			If lvItem.SubItems.Count > 2 Then
				lvItem.SubItems(2).Text = ""
			Else
				lvItem.SubItems.Insert(2, New System.Windows.Forms.ListViewItem.ListViewSubItem(Nothing, ""))
			End If
			'UPGRADE_WARNING: 集合 lvItem 的下限已由 1 更改为 0。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="A3B628A0-A810-4AE2-BFA2-9E7A29EB9AD0"”
			If lvItem.SubItems.Count > 3 Then
				lvItem.SubItems(3).Text = ""
			Else
				lvItem.SubItems.Insert(3, New System.Windows.Forms.ListViewItem.ListViewSubItem(Nothing, ""))
			End If
		End If
	End Sub
	
	Public Sub RefreshItem(ByRef Index As Short)
		On Error Resume Next
		Dim lvItem As System.Windows.Forms.ListViewItem
		'    Debug.Print Index
        lvItem = lvListView.Items.Item("K" & Index.ToString()) 'Index
		If lvItem Is Nothing Then Exit Sub
		'UPGRADE_WARNING: 集合 lvItem 的下限已由 1 更改为 0。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="A3B628A0-A810-4AE2-BFA2-9E7A29EB9AD0"”
		'UPGRADE_WARNING: 未能解析对象 ItemArr().Value 的默认属性。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"”
		If lvItem.SubItems.Count > 1 Then
			lvItem.SubItems(1).Text = ItemArr(Index).Value
		Else
			lvItem.SubItems.Insert(1, New System.Windows.Forms.ListViewItem.ListViewSubItem(Nothing, ItemArr(Index).Value))
		End If
		'UPGRADE_WARNING: 集合 lvItem 的下限已由 1 更改为 0。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="A3B628A0-A810-4AE2-BFA2-9E7A29EB9AD0"”
		If lvItem.SubItems.Count > 2 Then
            lvItem.SubItems(2).Text = ItemArr(Index).Quality.ToString()
		Else
            lvItem.SubItems.Insert(2, New System.Windows.Forms.ListViewItem.ListViewSubItem(Nothing, ItemArr(Index).Quality.ToString()))
		End If
		'UPGRADE_WARNING: 集合 lvItem 的下限已由 1 更改为 0。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="A3B628A0-A810-4AE2-BFA2-9E7A29EB9AD0"”
		If lvItem.SubItems.Count > 3 Then
            lvItem.SubItems(3).Text = CStr(FileTimeToDate(ItemArr(Index).Ft))
		Else
            lvItem.SubItems.Insert(3, New System.Windows.Forms.ListViewItem.ListViewSubItem(Nothing, FileTimeToDate(ItemArr(Index).Ft).ToString()))
		End If
		
	End Sub
	
	Public Sub mnuServerStatus_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles mnuServerStatus.Click
		Dim ftStart, ftCurrent As Object
		Dim ftUpdate As Double
		Dim BandWidth As Object
		Dim GroupCount As Integer
		Dim MajorVersion, State, MinorVersion As Object
		Dim BuildNumber As Short
		Dim vendor As String
		vendor = Space(128)
		'UPGRADE_WARNING: 未能解析对象 MinorVersion 的默认属性。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"”
		'UPGRADE_WARNING: 未能解析对象 MajorVersion 的默认属性。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"”
		'UPGRADE_WARNING: 未能解析对象 BandWidth 的默认属性。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"”
		'UPGRADE_WARNING: 未能解析对象 State 的默认属性。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"”
		'UPGRADE_WARNING: 未能解析对象 ftCurrent 的默认属性。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"”
		'UPGRADE_WARNING: 未能解析对象 ftStart 的默认属性。 单击以获得更多信息:“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"”
		If OPC_GetServerStatus(ServerHandle, ftStart, ftCurrent, ftUpdate, State, BandWidth, GroupCount, MajorVersion, MinorVersion, BuildNumber, vendor, 128) Then
			'UPGRADE_WARNING: 未能解析对象 ftStart 的默认属性。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"”
            frmServerStatus.Text1.Text = FileTimeToDate(DoubleToFileTime(ftStart)).ToString()
			'UPGRADE_WARNING: 未能解析对象 ftCurrent 的默认属性。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"”
            frmServerStatus.Text2.Text = FileTimeToDate(DoubleToFileTime(ftCurrent)).ToString()
            frmServerStatus.Text3.Text = FileTimeToDate(DoubleToFileTime(ftUpdate)).ToString()
			'UPGRADE_WARNING: 未能解析对象 BandWidth 的默认属性。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"”
            frmServerStatus.Text4.Text = BandWidth.ToString()
			'UPGRADE_WARNING: 未能解析对象 State 的默认属性。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"”
            frmServerStatus.Text5.Text = State.ToString()
            frmServerStatus.Text6.Text = GroupCount.ToString()
			'UPGRADE_WARNING: 未能解析对象 MajorVersion 的默认属性。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"”
            frmServerStatus.Text7.Text = MajorVersion.ToString()
			'UPGRADE_WARNING: 未能解析对象 MinorVersion 的默认属性。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"”
            frmServerStatus.Text8.Text = MinorVersion.ToString()
            frmServerStatus.Text9.Text = BuildNumber.ToString()
			VB6.ShowForm(frmServerStatus, VB6.FormShowConstants.Modal, Me)
		End If
	End Sub
	
	Public Sub mnuWriteItem_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles mnuWriteItem.Click
		Dim Index As Integer
		Dim Value As Object
		If lvListView.FocusedItem Is Nothing Then Exit Sub
		VB6.ShowForm(frmItemWrite, VB6.FormShowConstants.Modal, Me)
		If frmItemWrite.mbReturn = False Then Exit Sub
		If frmItemWrite.Value = "" Then Exit Sub
		
		'UPGRADE_WARNING: 未能解析对象 lvListView.SelectedItem.Tag 的默认属性。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"”
		Index = lvListView.FocusedItem.Tag
		'UPGRADE_WARNING: 未能解析对象 Value 的默认属性。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"”
		Value = frmItemWrite.Value
		
		'UPGRADE_WARNING: 未能解析对象 ServerHandle 的默认属性。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"”
		If OPC_WriteItem(ServerHandle, GroupHandle, ItemArr(Index).Handle, Value, frmItemWrite.Async) Then
			'UPGRADE_WARNING: 未能解析对象 Value 的默认属性。 单击以获得更多信息:“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(Index).Value = Value
			'UPGRADE_WARNING: 集合 lvListView.SelectedItem 的下限已由 1 更改为 0。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="A3B628A0-A810-4AE2-BFA2-9E7A29EB9AD0"”
			'UPGRADE_WARNING: 未能解析对象 Value 的默认属性。 单击以获得更多信息:“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 = Value
			Else
				lvListView.FocusedItem.SubItems.Insert(1, New System.Windows.Forms.ListViewItem.ListViewSubItem(Nothing, Value))
			End If
		End If
	End Sub
End Class