Demetrio Cassarino
88 lines
2.1 KiB
VB.net
88 lines
2.1 KiB
VB.net
Imports EgtUILib
|
|
|
|
Public Class SelectTableWindowVM
|
|
Inherits VMBase
|
|
|
|
#Region "FIELDS & PROPERTIES"
|
|
|
|
Friend Event m_CloseWindow(DialogResult As Integer)
|
|
|
|
Private m_nSelectedTable As Integer = 0
|
|
Public ReadOnly Property nSelectedTable As Integer
|
|
Get
|
|
Return m_nSelectedTable
|
|
End Get
|
|
End Property
|
|
|
|
Private m_CurrTableList As New List(Of TableToChange)
|
|
Public ReadOnly Property CurrTableList As List(Of TableToChange)
|
|
Get
|
|
Return m_CurrTableList
|
|
End Get
|
|
End Property
|
|
|
|
#Region "Messages"
|
|
|
|
Public ReadOnly Property Title As String
|
|
Get
|
|
Return EgtMsg(91123) 'Tavola
|
|
End Get
|
|
End Property
|
|
|
|
Public ReadOnly Property WndMsg As String
|
|
Get
|
|
Return EgtMsg(91111) 'Tavola da usare ?
|
|
End Get
|
|
End Property
|
|
|
|
#End Region
|
|
|
|
' Definizione comandi
|
|
Private m_cmdOk As ICommand
|
|
|
|
#End Region ' FIELDS & PROPERTIES
|
|
|
|
#Region "CONSTRUCTOR"
|
|
|
|
Sub New()
|
|
' recuepero l'inidce della tavola corrente
|
|
Dim nIndeXCurrTab As Integer = GetCurrentTable()
|
|
' creo la lista delle tavole disponibili (attivo il bottone della tavola attualmente in uso)
|
|
For nInd As Integer = 0 To GetTableCount() - 1
|
|
m_CurrTableList.Add(New TableToChange("Tab", (nInd + 1), ((nInd + 1) = nIndeXCurrTab)))
|
|
Next
|
|
End Sub
|
|
|
|
#End Region ' CONSTRUCTOR
|
|
|
|
#Region "COMMANDS"
|
|
|
|
#Region "OkCommand"
|
|
|
|
Public ReadOnly Property OkCommand() As ICommand
|
|
Get
|
|
If m_cmdOk Is Nothing Then
|
|
m_cmdOk = New Command(AddressOf Ok)
|
|
End If
|
|
Return m_cmdOk
|
|
End Get
|
|
End Property
|
|
|
|
Private Sub Ok(ByVal param As Object)
|
|
' recupero l'indice della tavola impostata
|
|
For Each ItemTab As TableToChange In CurrTableList
|
|
If ItemTab.IsActive Then
|
|
m_nSelectedTable = ItemTab.nIndex
|
|
Exit For
|
|
End If
|
|
Next
|
|
' procedo alla chiusura della finetra
|
|
RaiseEvent m_CloseWindow(CInt(param))
|
|
End Sub
|
|
|
|
#End Region ' OkCommand
|
|
|
|
#End Region ' COMMANDS
|
|
|
|
End Class
|