OpenNetCf - C＃到VB

Question

我試圖在VB中翻譯這段代碼，但我無法弄清楚如何去做......任何人都可以告訴我翻譯過程如何？

謝謝

private void WatchForDrives() 
{ 
    DeviceStatusMonitor monitor = new DeviceStatusMonitor(DeviceClass.FileSystem, false); 
    monitor.StartStatusMonitoring(); 
    monitor.DeviceNotification += delegate(object sender, DeviceNotificationArgs e) 
    { 
    string message = string.Format("Disk '{0}' has been {1}.", e.DeviceName,  e.DeviceAttached ? "inserted" : "removed"); 
    MessageBox.Show(message, "Disk Status"); 
    }; 
} 

Answer 1

只有VB 10支持多行lambda表達式，所以你必須創建一個單獨的方法來處理事件。這應該工作，無論編譯器：

Private Sub WatchForDrives() 
    Dim monitor As New DeviceStatusMonitor(DeviceClass.FileSystem, False) 
    monitor.StartStatusMonitoring() 
    AddHandler monitor.DeviceNotification, AddressOf MonitorDeviceNotified 
End Sub 

Private Sub MonitorDeviceNotified(ByVal sender As Object, ByVal e As DeviceNotificationArgs) 
    Dim message As String = String.Format("Disk '{0}' has been {1}.", e.DeviceName, If(e.DeviceAttached, "inserted", "removed")) 
    MessageBox.Show(message) 
End Sub 

Answer 2

http://converter.telerik.com/

Private Sub WatchForDrives() 
    Dim monitor As New DeviceStatusMonitor(DeviceClass.FileSystem, False) 
    monitor.StartStatusMonitoring() 
    monitor.DeviceNotification += Function(sender As Object, e As DeviceNotificationArgs) Do 
     Dim message As String = String.Format("Disk '{0}' has been {1}.", e.DeviceName, If(e.DeviceAttached, "inserted", "removed")) 
     MessageBox.Show(message, "Disk Status") 
    End Function 
End Sub