Emmanuele Sassi
8d6f740ede
- aggiunti EgwButton ed EgwToggleButton con CornerRadius - aggiunto EgwSplitButton - aggiunta pagina di esempio con nuovi controlli in DemoApplication
69 lines
1.7 KiB
VB.net
69 lines
1.7 KiB
VB.net
Public Class EgwButtonPageVM
|
|
|
|
' Definizione comandi
|
|
Private m_cmdSplitButtonMain As ICommand
|
|
Private m_cmdSplitButton1Popup As ICommand
|
|
Private m_cmdSplitButton2Popup As ICommand
|
|
|
|
Sub New()
|
|
' Creo riferimento a questa classe in Map
|
|
Map.SetRefEgwButtonPageVM(Me)
|
|
End Sub
|
|
|
|
#Region "COMMANDS"
|
|
|
|
#Region "SplitButtonMain"
|
|
|
|
Public ReadOnly Property SplitButtonMain_Command As ICommand
|
|
Get
|
|
If m_cmdSplitButtonMain Is Nothing Then
|
|
m_cmdSplitButtonMain = New Command(AddressOf SplitButtonMain)
|
|
End If
|
|
Return m_cmdSplitButtonMain
|
|
End Get
|
|
End Property
|
|
|
|
Public Sub SplitButtonMain()
|
|
MessageBox.Show("Bottone principale di EgwSplitBox premuto")
|
|
End Sub
|
|
|
|
#End Region ' SplitButtonMain
|
|
|
|
#Region "SplitButton1Popup"
|
|
|
|
Public ReadOnly Property SplitButton1Popup_Command As ICommand
|
|
Get
|
|
If m_cmdSplitButton1Popup Is Nothing Then
|
|
m_cmdSplitButton1Popup = New Command(AddressOf SplitButton1Popup)
|
|
End If
|
|
Return m_cmdSplitButton1Popup
|
|
End Get
|
|
End Property
|
|
|
|
Public Sub SplitButton1Popup()
|
|
MessageBox.Show("Bottone 1 del Popup di EgwSplitBox premuto")
|
|
End Sub
|
|
|
|
#End Region ' SplitButton1Popup
|
|
|
|
#Region "SplitButton2Popup"
|
|
|
|
Public ReadOnly Property SplitButton2Popup_Command As ICommand
|
|
Get
|
|
If m_cmdSplitButton2Popup Is Nothing Then
|
|
m_cmdSplitButton2Popup = New Command(AddressOf SplitButton2Popup)
|
|
End If
|
|
Return m_cmdSplitButton2Popup
|
|
End Get
|
|
End Property
|
|
|
|
Public Sub SplitButton2Popup()
|
|
MessageBox.Show("Bottone 2 del Popup di EgwSplitBox premuto")
|
|
End Sub
|
|
|
|
#End Region ' SplitButton2Popup
|
|
|
|
#End Region ' Commands
|
|
|
|
End Class
|