このメソッドをC＃からVB.NETに変換する方法

Question

私はインターネット上で見つけたカメラ関連のチュートリアルをいくつか取り上げようとしています。問題は、チュートリアルのほとんどがC＃で行われているのに対し、VB.NETにする必要があることです。私はオンラインコンバータを使用して変換しようとしましたが、すべての構文を認識するとは限らないため、エラーが発生します。これをVisual Basicに変換するにはどうすればよいですか？

Loaded += (_, __) => 
    { 
     Microsoft.Phone.Shell.PhoneApplicationService.Current.ApplicationIdleDetectionMode = 
      Microsoft.Phone.Shell.IdleDetectionMode.Disabled; 

     cam = new VideoCamera(); 
     cam.Initialized += (___, ____) => 
      { 
       cam.LampEnabled = true; 
       cam.StartRecording(); 
      }; 
     vCam.SetSource(cam); 

     new Thread(() => 
      { 
       try 
       { 
        var isf = IsolatedStorageFile.GetUserStoreForApplication(); 

        var files = isf.GetFileNames(); 
        foreach (var file in files) 
        { 
         Debug.WriteLine("Deleting... " + file); 
         isf.DeleteFile(file); 
        } 
       } 
       catch (Exception ex) 
       { 
        Debug.WriteLine("Error cleaning up isolated storage: " + ex); 
       } 
      }).Start(); 
    }; 

これは、私は、コンバータからもらったコードです：

Loaded += Function(_, __) 
Microsoft.Phone.Shell.PhoneApplicationService.Current.ApplicationIdleDetectionMode = _ 
    Microsoft.Phone.Shell.IdleDetectionMode.Disabled 

cam = New VideoCamera() 
cam.Initialized += Function(___, ____) 
cam.LampEnabled = True 
cam.StartRecording() 

End Function 

vCam.SetSource(cam) 

New Thread(Function() 
Try 
    Dim isf = IsolatedStorageFile.GetUserStoreForApplication() 
    Dim files = isf.GetFileNames() 
    For Each file As var In files 
     Debug.WriteLine("Deleting... " & Convert.ToString(file)) 
     isf.DeleteFile(file) 
    Next 
Catch ex As Exception 
    Debug.WriteLine("Error cleaning up isolated storage: " & ex) 
End Try 

End Function).Start() 

End Function 

Answer 1

使用Roslny。コンバータは00分55秒で表示されます。

PS：変数名にはアンダースコアが悪い考えです。

Answer 2

（私はTelerik Converterを使用）、次を使用します。

Loaded += Function(_, __) Do 
    Microsoft.Phone.Shell.PhoneApplicationService.Current.ApplicationIdleDetectionMode = Microsoft.Phone.Shell.IdleDetectionMode.Disabled 

    cam = New VideoCamera() 
    cam.Initialized += Function(___, ____) Do 
     cam.LampEnabled = True 
     cam.StartRecording() 
    End Function 
    vCam.SetSource(cam) 


    New Thread(Function() Do 
     Try 
      Dim isf = IsolatedStorageFile.GetUserStoreForApplication() 
      Dim files = isf.GetFileNames() 
      For Each file As var In files 
       Debug.WriteLine("Deleting... " + file) 
       isf.DeleteFile(file) 
      Next 
     Catch ex As Exception 
      Debug.WriteLine("Error cleaning up isolated storage: " + ex) 
     End Try 
    End Function).Start() 
End Function 

私はこれが役に立てば幸い:)

Answer 3

をあなたのコンバータは+ =演算子またはアンダースコアでで何をすべきかを知っていないようですVB。彼らはコンパイラを混乱させている。

AddHandler Loaded , Function(x as Object, y as Object) 
    Microsoft.Phone.Shell.PhoneApplicationService.Current.ApplicationIdleDetectionMode = _ 
     Microsoft.Phone.Shell.IdleDetectionMode.Disabled 

と

AddHandler cam.Initialized, Function(xx as Object, yy as Object) 

に

cam.Initialized += Function(___, ____) 

を変更する

変更

Loaded += Function(_, __) 
    Microsoft.Phone.Shell.PhoneApplicationService.Current.ApplicationIdleDetectionMode = Microsoft.Phone.Shell.IdleDetectionMode.Disabled 

実際のイベントシグネチャと一致するようにイベントハンドラ内のObjectシグネチャを変更する必要があるかもしれませんが、他のものはすばやく見えます。