#Region "VARIABLE DECLARATIONS"
#Region "DB VARIABLES"
#End Region
#Region "CONSTANTS"
#End Region
#End Region
#Region "PROPERTIES"
Public ReadOnly Property Issue() As String
Get
'Parse date into YYYY-MM-DD format for folder issues
Dim TempDate As Date = DateTimePickerIssue.Value
Dim Month As Single = DateTimePickerIssue.Value.Month
Dim Day As Single = DateTimePickerIssue.Value.Day
Dim MonthString As String = Month.ToString
Dim DayString As String = Day.ToString
If Month < 10 Then
MonthString = "0" + Month.ToString
End If
If Day < 10 Then
DayString = "0" + Day.ToString
End If
Return DateTimePickerIssue.Value.Year.ToString + "-" + MonthString + "-" + DayString
End Get
End Property
Public ReadOnly Property IssuePath() As String
Get
Return BaseFolder + "\" + Issue
End Get
End Property
Public ReadOnly Property FormattedIssue() As String
Get
Dim TempDate As Date = DateTimePickerIssue.Value
Return TempDate.ToLongDateString
End Get
End Property
Private ReadOnly Property CurrentFolder() As String
Get
Return TabControlFolders.SelectedTab.Tag.ToString
End Get
End Property
Private ReadOnly Property CurrentStoryFolderPath() As String
Get
Return BaseFolder + "\" + Issue + "\" + CurrentFolder
End Get
End Property
Private ReadOnly Property CurrentImagesFolderPath() As String
Get
Return BaseFolder + "\" + Issue + "\" + CurrentFolder + "\Images"
End Get
End Property
Private ReadOnly Property SelectedFolderTab() As TabPage
Get
Return CType(TabControlFolders.SelectedTab.Controls(0), TabControl).SelectedTab
End Get
End Property
Private ReadOnly Property FileSelected() As Boolean
Get
If VisibleListView.SelectedItems.Count > 0 Then
Return True
Else
Return False
End If
End Get
End Property
Private ReadOnly Property VisibleListView() As ListView
Get
Return CType(SelectedFolderTab.Controls(0), ListView)
End Get
End Property
Private ReadOnly Property Writers() As Collection
Get
Return _Writers
End Get
End Property
Private ReadOnly Property SelectedFile() As ListViewItem
Get
If Not IsNothing(VisibleListView) Then
If VisibleListView.SelectedItems.Count > 0 Then
Return VisibleListView.SelectedItems(0)
Else
Return Nothing
End If
Else
Return Nothing
End If
End Get
End Property
Private ReadOnly Property SelectedFileName() As String
Get
If Not IsNothing(VisibleListView) Then
If VisibleListView.SelectedItems.Count > 0 Then
If Not IsNothing(VisibleListView.SelectedItems(0).Tag) Then
Return CType(VisibleListView.SelectedItems(0).Tag, DJCFileInfo).FileName
End If
End If
End If
Return String.Empty
End Get
End Property
#End Region
#Region "INIT"
#End Region
#Region "UPDATE CONTROLS"
#End Region
#Region "CONTROLS"
#End Region
#Region "DATABASE"
'Runs database query.
'Don't forget to call DBReader.Close() after using the reader returned
#End Region
#Region "MAIN MENU"
#Region "FILE MENU"
#End Region
#Region "EDIT MENU"
#End Region
#Region "RESOURCES MENU"
#End Region
#End Region
#Region "ISSUE PICKER"
#End Region
#Region "EVENT HANDLERS"
'Drag Drop Event Handers
#End Region