NicolaP
37 lines
721 B
VB.net
37 lines
721 B
VB.net
Imports System.IO
|
|
Imports EgtUILib
|
|
Imports EgtWPFLib5
|
|
|
|
Public Class ModifyImagePanelVM
|
|
Inherits VMBase
|
|
|
|
Public ReadOnly Property GetModifyImage As String
|
|
Get
|
|
Return "Modify image"
|
|
End Get
|
|
End Property
|
|
|
|
|
|
Sub New()
|
|
|
|
End Sub
|
|
|
|
' definizione comandi
|
|
Private m_cmdModifyBtn As ICommand
|
|
|
|
Public ReadOnly Property Modify_Command As ICommand
|
|
Get
|
|
If m_cmdModifyBtn Is Nothing Then
|
|
m_cmdModifyBtn = New Command(AddressOf Modify)
|
|
End If
|
|
Return m_cmdModifyBtn
|
|
End Get
|
|
End Property
|
|
|
|
Public Sub Modify(ByVal param As Object)
|
|
Dim refImagePrevieV As New ImagePreviewV()
|
|
refImagePrevieV.ShowDialog()
|
|
End Sub
|
|
|
|
End Class
|