Dario Sassi
21 lines
541 B
VB.net
21 lines
541 B
VB.net
Imports System.Windows.Forms
|
|
|
|
Public Class AnalyzeDlg
|
|
|
|
Private m_sText As String
|
|
|
|
Public Sub SetText(ByRef sOut As String)
|
|
m_sText = sOut
|
|
End Sub
|
|
|
|
Private Sub AnalyzeDlg_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
|
|
TextBox1.Text = m_sText
|
|
End Sub
|
|
|
|
Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click
|
|
Me.DialogResult = System.Windows.Forms.DialogResult.OK
|
|
Me.Close()
|
|
End Sub
|
|
|
|
End Class
|