frmitemwrite.vb

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

Option Strict Off
Option Explicit On
Friend Class frmItemWrite
	Inherits System.Windows.Forms.Form
	
	Public mbReturn As Boolean
	Public Value As String
	Public Async As Integer
	
	Private Sub CancelButton_Renamed_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles CancelButton_Renamed.Click
		mbReturn = False
		Me.Close()
	End Sub
	
	Private Sub OKButton_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles OKButton.Click
		mbReturn = True
		Value = txtValue.Text
		Async = ckAsync.CheckState
		Me.Close()
	End Sub
End Class