'****************************************************************************
'* Copyright (C) 2008 Peter Mortensen and Matthias Mann *
'* This file is part of MSQuant. *
'* *
'* MSQuant is distributed under the terms of *
'* the GNU General Public License. See src/COPYING.TXT or *
'* <http://www.gnu.org/licenses/gpl.txt> for details. *
'* *
'* MSQuant is free software; you can redistribute it *
'* and/or modify it under the terms of the GNU *
'* General Public License as published by the Free *
'* Software Foundation; either version 2 of the *
'* License, or (at your option) any later version. *
'* *
'* MSQuant is distributed in the hope that it will be *
'* useful, but WITHOUT ANY WARRANTY; without even the *
'* implied warranty of MERCHANTABILITY or FITNESS FOR *
'* A PARTICULAR PURPOSE. See the GNU General Public *
'* License for more details. *
'* *
'* You should have received a copy of the GNU General *
'* Public License along with MSQuant; if not, write to *
'* the Free Software Foundation, Inc., 59 Temple *
'* Place, Suite 330, Boston, MA 02111-1307 USA *
'* *
'* Purpose: User set of what protein and peptide information to include *
'* in an export/save. *
'* Holds Class frmExportFilters, see below for *
'* documentation. *
'* *
'****************************************************************************
'****************************************************************************
'* CEBI *
'* Software Development Group *
'* Peter Mortensen *
'* E-mail: NUKESPAMMERSdrmortensen@get2netZZZZZZ.dk *
'* WWW: http://www.cebi.sdu.dk/ *
'* *
'* Program for post-processing of result from search in mass *
'* spectrometric data. *
'* *
'* FILENAME: frmEndOfParseAction.vb *
'* TYPE: VISUAL_BASIC *
'* *
'* CREATED: PM 2008-01-06 Vrs 1.0. Estimated date... *
'* UPDATED: PM 2008-xx-xx *
'* *
'****************************************************************************
Option Strict On
Option Explicit On
Public Class frmEndOfParseAction
Public Event endOfParseActionDialogDismissed( _
ByVal aSender As Object, _
ByVal anEvent As endOfParseActionEventArgs)
'****************************************************************************
'* <placeholder for header> *
'****************************************************************************
Public Sub New( _
ByVal aEndOfParseAction As endOfParseActionStructure)
MyBase.New()
'This call is required by the Windows Form Designer.
InitializeComponent()
'Add any initialization after the InitializeComponent() call
Me.Init(aEndOfParseAction)
End Sub 'Constructor.
'****************************************************************************
'* <placeholder for header> *
'****************************************************************************
Private Sub init(ByVal aEndOfParseAction As endOfParseActionStructure)
chkOpenRecalibVisualisation.Checked = _
aEndOfParseAction.openRecalibrationVisualisationWindow
End Sub 'init
'****************************************************************************
'* <placeholder for header> *
'****************************************************************************
Private Sub btnOK_Click( _
ByVal aSender As System.Object, ByVal anEvent As System.EventArgs) _
Handles btnOK.Click
'No validation for now....
Try
Dim newValues As endOfParseActionStructure
newValues.openRecalibrationVisualisationWindow = _
chkOpenRecalibVisualisation.Checked
RaiseEvent endOfParseActionDialogDismissed( _
aSender, New endOfParseActionEventArgs(newValues))
Me.Close()
Catch exceptionObject As Exception
AppCommon2.displayStandardExceptionInfo( _
exceptionObject, _
"Could not read values dialog in dialog. Some numeric fields may hold letters, etc.")
Exit Sub
End Try
End Sub 'btnOK_Click
'****************************************************************************
'* <placeholder for header> *
'****************************************************************************
Private Sub btnCancel_Click( _
ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles btnCancel.Click
Me.Close()
End Sub 'btnCancel_Click
End Class 'frmEndOfParseAction
'Helper class for endOfParseActionDialogDismissed event.
'****************************************************************************
'* <placeholder for header> *
'****************************************************************************
Public Class endOfParseActionEventArgs
Inherits System.EventArgs
Private mEndOfParseActionSettings As endOfParseActionStructure
'****************************************************************************
'* <placeholder for header> *
'****************************************************************************
Public Sub New(ByVal aSomeValue As endOfParseActionStructure)
mEndOfParseActionSettings = aSomeValue
End Sub 'Constructor
'****************************************************************************
'* <placeholder for header> *
'****************************************************************************
Public Function getEndOfParseActionSettings() _
As endOfParseActionStructure
Return mEndOfParseActionSettings
End Function 'getEndOfParseActionSettings
End Class 'pepFilterDismissedEventArgs
Generated by script codePublish.pl at 2009-01-05T15:20:59.