'****************************************************************************
'* <placeholder for header> *
'****************************************************************************
Public Class frmFilesRelocation
Private mResultFile As String
Private mRawFile As String
Private mOKed As Boolean
Private mOnlyOneRawFile As Boolean
'****************************************************************************
'* <placeholder for header> *
'****************************************************************************
Public Sub New(ByRef anInResultFile As String, ByRef anInrawFile As String)
' This call is required by the Windows Form Designer.
InitializeComponent()
' Add any initialization after the InitializeComponent() call.
mResultFile = anInResultFile
mRawFile = anInrawFile
mOKed = False
mOnlyOneRawFile = False
End Sub 'Constructor.
'****************************************************************************
'* <placeholder for header> *
'****************************************************************************
Public Function wasOKed() _
As Boolean
Return mOKed
End Function 'wasOKed
'****************************************************************************
'* <placeholder for header> *
'****************************************************************************
Public Function getResultFile() _
As String
Return mResultFile
End Function 'getResultFile
'****************************************************************************
'* <placeholder for header> *
'****************************************************************************
Public Function getRawFile() _
As String
Return mRawFile
End Function 'getRawFile
'****************************************************************************
'* <placeholder for header> *
'****************************************************************************
Public Function getOnlyOneRawFile() _
As Boolean
Return mOnlyOneRawFile
End Function 'getOnlyOneRawFile
'****************************************************************************
'* <placeholder for header> *
'****************************************************************************
Private Sub frmFilesRelocation_Load( _
ByVal aSender As System.Object, ByVal anEvent As System.EventArgs) _
Handles MyBase.Load
txtMascotResultFile.Text = mResultFile
txtSomeRawFile.Text = mRawFile
chkOnlyOneRawFile.Checked = mOnlyOneRawFile
End Sub 'frmFilesRelocation_Load
'****************************************************************************
'* <placeholder for header> *
'****************************************************************************
Private Sub btnOK_Click( _
ByVal aSender As System.Object, ByVal anEvent As System.EventArgs) _
Handles btnOK.Click
mResultFile = txtMascotResultFile.Text
mRawFile = txtSomeRawFile.Text
mOnlyOneRawFile = chkOnlyOneRawFile.Checked
mOKed = True
Me.Close()
End Sub 'btnOK_Click
'****************************************************************************
'* <placeholder for header> *
'****************************************************************************
Private Sub btnCancel_Click( _
ByVal aSender As System.Object, ByVal anEvent As System.EventArgs) _
Handles btnCancel.Click
Me.Close()
End Sub 'btnCancel_Click
End Class 'frmFilesRelocation
Generated by script codePublish.pl at 2008-09-23T11:59:18.