'****************************************************************************
'* Copyright (C) 2006 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 parameters used in retention time correlation *
'* Holds Class frmRetentionCorrSettings, 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: frmRetentionCorrSettings.vb *
'* TYPE: VISUAL_BASIC *
'* *
'* CREATED: PM 2006-10-26 Vrs 1.0. Estimated date... *
'* UPDATED: PM 2006-xx-xx *
'* *
'****************************************************************************
Option Strict On
Option Explicit On
Imports massSpectrometryBase 'For retentionTimeTypeEnum
Public Structure retCorrParametersStructure
Dim retentionTimeType As retentionTimeTypeEnum
End Structure 'proteinAndPeptidesFilterStructure
'****************************************************************************
'd$ <summary>
'd$ Purpose: Let the user select some parameters for retention
'd$ time correlation, e.g. to use MS-MS event
'd$ or LC profile centroid.
'd$
'd$ <see cref="T:VBXMLDoc.CVBXMLDoc" />.
'd$ <applicationname>test_rawDataFileHandling</applicationname>
'd$ <author>Peter Mortensen</author>
'd$ <seealso>http://www.cebi.sdu.dk/</seealso>
'd$ <codetype>GUI</codetype>
'd$ </summary>
Public Class frmRetentionCorrSettings
'Dialog is tied to that particular form....
Private mParentForm As frmProteinList
Private mRetCorrParameters As retCorrParametersStructure
'****************************************************************************
'* <placeholder for header> *
'****************************************************************************
Public Sub New( _
ByVal aInRetCorrParameters As retCorrParametersStructure, _
ByRef aParentForm As frmProteinList, _
ByVal aSelectedProteins As Integer)
MyBase.New()
'This call is required by the Windows Form Designer.
InitializeComponent()
'Add any initialization after the InitializeComponent() call
Me.Init(aInRetCorrParameters, aParentForm, aSelectedProteins)
End Sub 'New
'****************************************************************************
'* <placeholder for header> *
'****************************************************************************
Private Sub Init( _
ByVal aInRetCorrParameters As retCorrParametersStructure, _
ByRef aParentForm As frmProteinList, _
ByVal aSelectedProteins As Integer)
mParentForm = aParentForm
mRetCorrParameters = aInRetCorrParameters
Dim index As Integer = -1
Select Case aInRetCorrParameters.retentionTimeType
Case retentionTimeTypeEnum.enumMSMSevent
index = 0
Case retentionTimeTypeEnum.enumLCprofileCentroid
index = 1
Case retentionTimeTypeEnum.enumLCprofileCentroidWithFallBackToMSMS
index = 2
Case Else
Trace.Assert(False, "PIL ASSERT. Select Case never fall-through")
End Select
cbxRetentionTypeType.SelectedIndex = index
'chkProteinsInfo.Checked = _
' mProteinAndPeptidesFilter.includeProteinInformation
'Changed PM_DISPLAY_NUMBER_SELECTED 2007-01-09
lblProteinSubsetText.Text = _
"Using the " & aSelectedProteins & " selected proteins."
End Sub 'Init
'****************************************************************************
'* <placeholder for header> *
'****************************************************************************
Private Sub btnOK_Click( _
ByVal aSender As System.Object, _
ByVal anEvent As System.EventArgs) _
Handles btnOK.Click
Dim res As retentionTimeTypeEnum
Select Case cbxRetentionTypeType.SelectedIndex
Case 0
res = retentionTimeTypeEnum.enumMSMSevent
Case 1
res = retentionTimeTypeEnum.enumLCprofileCentroid
Case 2
res = retentionTimeTypeEnum.enumLCprofileCentroidWithFallBackToMSMS
Case Else
Trace.Assert(False, "PIL ASSERT. Select Case never fall-through")
End Select
mRetCorrParameters.retentionTimeType = res
mParentForm.setRetCorrParameters(mRetCorrParameters)
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 'frmRetentionCorrSettings
Generated by script codePublish.pl at 2009-01-05T15:20:59.