frmgroupstatus.vb

来自「OPC CLIENT开发包」· VB 代码 · 共 42 行

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()
        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
            Text2.Text = CStr(UpdateRate)
            Text3.Text = CStr(DeadBand)
            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
        UpdateRate = CInt(Text2.Text)
        TimeBias = CInt(Text4.Text)
        LCID = 0
		DeadBand = 0
		If Check1.CheckState = 0 Then Active = 0 Else Active = 1
        Me.DialogResult = Windows.Forms.DialogResult.OK
        Me.Close()
	End Sub
End Class