'----------------------------------------------------------------------------
'  EgalTech 2015-2015
'----------------------------------------------------------------------------
' File : VarInput.vb       Data : 09.08.15        Versione : 1.6h3
' Contenuto : Classe VarInput (input variabile per componenti).
'
'
'
' Modifiche : 09.08.15 DS Creazione modulo.
'
'
'----------------------------------------------------------------------------


Public Class VarInput

   Public m_sVarVal As String = String.Empty

   Private Sub VarInput_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
      tbVariable.Text = m_sVarVal
   End Sub

   Private Sub btnOk_Click(sender As Object, e As EventArgs) Handles btnOk.Click
      m_sVarVal = tbVariable.Text
      Me.DialogResult = System.Windows.Forms.DialogResult.OK
      Me.Close()
   End Sub

   Private Sub btnCancel_Click(sender As Object, e As EventArgs) Handles btnCancel.Click
      Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
      Me.Close()
   End Sub

End Class