90 lines
2.4 KiB
VB.net
90 lines
2.4 KiB
VB.net
Imports GBM.My.Resources
|
|
|
|
Public Class frmSessionExport
|
|
|
|
Private bXML As Boolean = True
|
|
Private bUnix As Boolean = False
|
|
Private bCSVHeaders As Boolean = True
|
|
|
|
Public ReadOnly Property XML As Boolean
|
|
Get
|
|
Return bXML
|
|
End Get
|
|
End Property
|
|
|
|
Public ReadOnly Property Unix As Boolean
|
|
Get
|
|
Return bUnix
|
|
End Get
|
|
End Property
|
|
|
|
Public ReadOnly Property Headers As Boolean
|
|
Get
|
|
Return bCSVHeaders
|
|
End Get
|
|
End Property
|
|
|
|
Private Sub SetOptions()
|
|
If optXML.Checked Then
|
|
bXML = True
|
|
Else
|
|
bXML = False
|
|
End If
|
|
|
|
If optUnix.Checked Then
|
|
bUnix = True
|
|
Else
|
|
bUnix = False
|
|
End If
|
|
|
|
If chkCSVHeaders.Checked Then
|
|
bCSVHeaders = True
|
|
Else
|
|
bCSVHeaders = False
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub SetForm()
|
|
Me.Text = frmSessionExport_FormName
|
|
|
|
grpExportType.Text = frmSessionExport_grpExportType
|
|
grpDateType.Text = frmSessionExport_grpDateType
|
|
grpOptions.Text = frmSessionExport_grpOptions
|
|
|
|
optCSV.Text = frmSessionExport_optCSV
|
|
optXML.Text = frmSessionExport_optXML
|
|
optCurrentLocale.Text = frmSessionExport_optCurrentLocale & " - " & Now
|
|
optUnix.Text = frmSessionExport_optUnix & " - " & mgrCommon.DateToUnix(Now)
|
|
|
|
chkCSVHeaders.Text = frmSessionExport_chkCSVHeaders
|
|
|
|
btnExport.Text = frmSessionExport_btnExport
|
|
btnCancel.Text = frmSessionExport_btnCancel
|
|
|
|
optCSV.Checked = True
|
|
optCurrentLocale.Checked = True
|
|
End Sub
|
|
|
|
Private Sub frmSessionExport_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
|
SetForm()
|
|
End Sub
|
|
|
|
Private Sub btnExport_Click(sender As Object, e As EventArgs) Handles btnExport.Click
|
|
SetOptions()
|
|
Me.DialogResult = DialogResult.OK
|
|
End Sub
|
|
|
|
Private Sub btnCancel_Click(sender As Object, e As EventArgs) Handles btnCancel.Click
|
|
Me.DialogResult = DialogResult.Cancel
|
|
End Sub
|
|
|
|
Private Sub optCSV_CheckedChanged(sender As Object, e As EventArgs) Handles optCSV.CheckedChanged
|
|
If Not optCSV.Checked Then
|
|
chkCSVHeaders.Checked = False
|
|
chkCSVHeaders.Enabled = False
|
|
Else
|
|
chkCSVHeaders.Checked = True
|
|
chkCSVHeaders.Enabled = True
|
|
End If
|
|
End Sub
|
|
End Class |