启用和禁用按钮

Question

我有一个texbox与属性绑定。

<TextBox Name="txtPrice" Grid.Row="0" Grid.Column="2" MaxLength="8" TabIndex="1" 
    Text="{Binding Price, UpdateSourceTrigger=PropertyChanged, ValidatesOnExceptions=True, 
    StringFormat= '\{0:#,###.##\}', ConverterCulture=fr-FR}" TextWrapping="Wrap"/> 


     Private Property _Price As Double 
     Public Property Price As Double 
     Get 
      Return Price 
     End Get 
     Set(value As Double) 
      _Price = Double.Parse(value) 
      OnPropertyChanged("Price") 
     End Set 
    End Property 

当我输入一些字符或文本框为空，Cmd_Insert，绝不能激活按钮，但不起作用。 为什么？ （参见功能CanCmd_Insert（））

Public ReadOnly Property Cmd_Insert As ICommand 
    Get 
     If _Cm_Insert Is Nothing Then 
      _Cm_Insert = New RelayCommand(AddressOf Cmd_InsertExe, AddressOf CanCmd_Insert) 
     End If 
     Return _Cm_Insert 
    End Get 
End Property 
Private Sub Cmd_InsertExe() 
    UPDATE_Price() 
End Sub 
Private Function CanCmd_Insert() As Boolean 
    If IsNumeric(Price) = False Then 
     Return False 
    Else 
     Return True 
    End If 
End Function 

Answer 1

我加入TargetNullValue=''和改变了你的财产空。请参阅下面的代码。

<StackPanel> 
      <TextBox Name="txtPrice" Grid.Row="0" Grid.Column="2" MaxLength="8" TabIndex="1" 
    Text="{Binding Price, UpdateSourceTrigger=PropertyChanged, TargetNullValue='', 
    StringFormat= '\{0:#,###.##\}'}" TextWrapping="Wrap" />    
      <Button Content="Update" Command="{Binding Cmd_Insert }"></Button> 
     </StackPanel> 

    Imports GalaSoft.MvvmLight.CommandWpf 
Imports System.ComponentModel 

Public Class ViewModel 
    Implements INotifyPropertyChanged 
    Private Property _Price As Double? 
    Public Property Price As Double? 
     Get 
      Return _Price 
     End Get 
     Set(value As Double?) 
      _Price = value 
      OnPropertyChanged("Price") 
     End Set 
    End Property 

    Public Event PropertyChanged As PropertyChangedEventHandler Implements INotifyPropertyChanged.PropertyChanged 

    Private Sub OnPropertyChanged(ByVal info As String) 
     RaiseEvent PropertyChanged(Me, New PropertyChangedEventArgs(info)) 
    End Sub 
    Private Property _Cm_Insert As ICommand 
    Public ReadOnly Property Cmd_Insert As ICommand 
     Get 
      If _Cm_Insert Is Nothing Then 
       _Cm_Insert = New RelayCommand(AddressOf Cmd_InsertExe, AddressOf CanCmd_Insert) 
      End If 
      Return _Cm_Insert 
     End Get 
    End Property 
    Private Sub Cmd_InsertExe() 

    End Sub 
    Private Function CanCmd_Insert() As Boolean 
     If IsNumeric(Price) = False Then 
      Return False 
     Else 
      Return True 
     End If 
    End Function 
End Class