Private Sub OpenUserInput() Dim userInputDialogViewModel As New DlgViewModel() Dim result As Object = DlgService.Instance.ShowDialog(userInputDialogViewModel) If result.HasValue AndAlso result.Value Then Dim res As Object = userInputDialogViewModel.Mitarbeitername End If End Sub
RelayCommand
ICommand
Public Property OpenUserInputCommand() As ICommand Dim cmdI As New Command(AddressOf OpenUserInput) OpenUserInputCommand = cmdI
OpenUserInputCommand = New RelayCommand(Function(o) OpenUserInput() End Function, Function(o) True)
BC36532: Nested function does not have a signature that is compatible with delegate '<delegatename>' (delegatename = action)
OpenUserInputCommand
Dim cmdI As New RelayCommand(AddressOf OpenUserInput)
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)