VB.NET等價於C＃代碼

Question

我在C＃中有一段代碼，但無法轉換爲VB.NET。我試過在線轉換器，但VS2008總是給編譯錯誤。任何幫助是極大的讚賞。

foreach (Binding knownBinding in allKnownBindings) 
{ 
    string errorMessage = ((IDataErrorInfo)this.DataContext)[knownBinding.Path.Path]; 
    if (errorMessage != null && errorMessage.Length > 0) 
    { 
     isValid = false; 

     // Display the error on any elements bound to the property 
     FindBindingsRecursively(
     this.Parent, 
     delegate(FrameworkElement element, Binding binding, DependencyProperty dp) 
     { 
      if (knownBinding.Path.Path == binding.Path.Path) 
      { 

       BindingExpression expression = element.GetBindingExpression(dp); 
       ValidationError error = new ValidationError(
         new ExceptionValidationRule(), expression, errorMessage, null); 
       System.Windows.Controls.Validation.MarkInvalid(expression, error); 

       if (_firstInvalidElement == null) 
       { 
        _firstInvalidElement = element; 
       } 
       return; 
      } 
     }); 
    } 
} 

和VB.Net相當於我得到的是：

For Each knownBinding As Binding In allKnownBindings 
    Dim errorMessage As String = DirectCast(Me.DataContext, IDataErrorInfo)(knownBinding.Path.Path) 
    If errorMessage IsNot Nothing AndAlso errorMessage.Length > 0 Then 
     isValid = False 

     ''# Display the error on any elements bound to the property 
     FindBindingsRecursively(Me.Parent, Function(element As FrameworkElement, binding As Binding, dp As DependencyProperty) Do 
      If knownBinding.Path.Path = Binding.Path.Path Then 

       Dim expression As BindingExpression = element.GetBindingExpression(dp) 
       Dim [error] As New ValidationError(New ExceptionValidationRule(), expression, errorMessage, Nothing) 
       System.Windows.Controls.Validation.MarkInvalid(expression, [error]) 

       If _firstInvalidElement Is Nothing Then 
        _firstInvalidElement = element 
       End If 

       Return 
      End If 
     End Function) 
    End If 
Next 

Answer 1

您需要存儲在類中的可變參數才能使委託方法有權訪問它們。

Public Class BindingWork 
... 
Private binding As Binding 
Private path As String 
Private error_msg As String 

Public Sub Start() 

    Dim errinfo As IDataErrorInfo = CType(Me.DataContext, IDataErrorInfo) 
    For Each knownBinding As Binding In allKnownBindings 
     error_msg = errinfo(knownBinding.Path.Path) 
     If Not String.IsNullOrEmpty(error_msg) Then 
      isValid = False 
      Me.path = knownBinding.Path.Path 
      FindBindingsRecusively(Me.Parent, AddressOf WorkWithBindings) 
     End If 
    Next 

End Sub 

Sub WorkWithBindings(ByVal element As FrameworkElement, ByVal binding As Binding, ByVal dp As DependencyProperty) 
    If path = binding.Path.Path Then 
     Dim expression As BindingExpression = element.GetBindingExpression(dp) 
     Dim [error] As New ValidationError(New ExceptionValidationRule(), expression, error_msg, Nothing) 
     System.Windows.Controls.Validation.MarkInvalid(expression, [error]) 
     If _firstInvalidElement Is Nothing Then 
      _firstInvalidElement = element 
     End If 
    End If 
End Sub 
... 
End Class 

通知您的代理處理程序使用path，error_msg，_firstInvalidElement和 '綁定'。

Answer 2

試試這個free service但一定要爲它提供有效的C＃代碼。

---

UPDATE：

我猜VB.NET編譯器窒息的原因是因爲傳遞給FindBindingsRecursively匿名函數的。嘗試外部化（deanonymize）此爲一個單獨的方法：

Sub FindASuitableName(element As FrameworkElement, binding As Binding, dp As DependencyProperty) 
    If knownBinding.Path.Path = binding.Path.Path Then 
     Dim expression As BindingExpression = element.GetBindingExpression(dp) 
     Dim [error] As New ValidationError(New ExceptionValidationRule(), expression, errorMessage, Nothing) 
     System.Windows.Controls.Validation.MarkInvalid(expression, [error]) 

     If _firstInvalidElement Is Nothing Then 
      _firstInvalidElement = element 
     End If 
    End If 
End Sub 

然後直接使用它：

FindBindingsRecursively(Me.Parent, FindASuitableName) 

Answer 3

考慮嘗試Telerik的C＃/ VB轉換器。

http://converter.telerik.com/

它可以轉換滿檔，或摘要。