Dario Sassi
34 lines
1.1 KiB
VB.net
34 lines
1.1 KiB
VB.net
'----------------------------------------------------------------------------
|
|
' 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 |