frmgroupstatus.vb

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

Option Strict Off
Option Explicit On
Friend Class frmGroupStatus
	Inherits System.Windows.Forms.Form
	
	Public mbReturn As Boolean
	Public TimeBias, UpdateRate, LCID As Object
	Public Active As Integer
	Public DeadBand As Single
	Public frmGroupName As String
	
	Private Sub CancelButton_Renamed_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles CancelButton_Renamed.Click
		Me.Close()
	End Sub
	
	Private Sub frmGroupStatus_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load
		mbReturn = False
		GetStat()
	End Sub
	Private Sub GetStat()
		'UPGRADE_WARNING: 未能解析对象 LCID 的默认属性。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"”
		'UPGRADE_WARNING: 未能解析对象 TimeBias 的默认属性。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"”
		'UPGRADE_WARNING: 未能解析对象 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"”
		If OPC_GetGroupStat(ServerHandle, GroupHandle, UpdateRate, Active, TimeBias, DeadBand, LCID) Then
			Text1.Text = frmGroupName
			If Active = 0 Then Check1.CheckState = System.Windows.Forms.CheckState.Unchecked Else Check1.CheckState = System.Windows.Forms.CheckState.Checked
			'UPGRADE_WARNING: 未能解析对象 UpdateRate 的默认属性。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"”
			Text2.Text = CStr(UpdateRate)
			Text3.Text = CStr(DeadBand)
			'UPGRADE_WARNING: 未能解析对象 TimeBias 的默认属性。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"”
			Text4.Text = CStr(TimeBias)
		End If
	End Sub
	Private Sub OKButton_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles OKButton.Click
		mbReturn = True
		frmGroupName = Text1.Text
		'UPGRADE_WARNING: 未能解析对象 UpdateRate 的默认属性。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"”
		UpdateRate = CInt(Text2.Text)
		'UPGRADE_WARNING: 未能解析对象 TimeBias 的默认属性。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"”
		TimeBias = CInt(Text4.Text)
		'UPGRADE_WARNING: 未能解析对象 LCID 的默认属性。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"”
		LCID = 0
		DeadBand = 0
		If Check1.CheckState = 0 Then Active = 0 Else Active = 1
		Me.Close()
	End Sub
End Class