那位兄弟有空帮我将段C#转为VB.net

Question

小弟平时习惯用C#,对VB.NET不够熟,先谢了!这段程序是将ENTER键转为Tab键的.
// 用ENTER代替TAB
private void EnterKeyDown(object sender, System.Windows.Forms.KeyEventArgs e) 
{ 
if(e.KeyCode==Keys.Enter)  
{                 
System.Windows.Forms.SendKeys.Send("{TAB}");     
} 
}
    //用ENTER代替TAB
private void Mainform_Load(object sender, System.EventArgs e)
{
foreach(Control ctrl in this.Controls) 
{ 
if ((ctrl is TextBox) || (ctrl is ComboBox))         
{                                     
ctrl.KeyDown += new System.Windows.Forms.KeyEventHandler(this.EnterKeyDown);                     
} 
} 
    } 

Answer 1

有一个C#转VB.net的网站：
http://authors.aspalliance.com/aldotnet/examples/translate.aspx

Answer 2

'用ENTER代替TAB
Private Sub EnterKeyDown(sender As Object, e As System.Windows.Forms.KeyEventArgs)
   If e.KeyCode = Keys.Enter Then
      System.Windows.Forms.SendKeys.Send("{TAB}")
   End If
End Sub 'EnterKeyDown'用ENTER代替TAB
Private Sub Mainform_Load(sender As Object, e As System.EventArgs)
   Dim ctrl As Control
   For Each ctrl In  Me.Controls
      If TypeOf ctrl Is TextBox Or TypeOf ctrl Is ComboBox Then
         ctrl.KeyDown += New System.Windows.Forms.KeyEventHandler(Me.EnterKeyDown)
      End If
   Next ctrl
End Sub 'Mainform_Load 

Answer 3

求求你们了，帮帮忙吧！！！
http://community.csdn.net/Expert/topic/3684/3684758.xml?temp=.9476129

Answer 4

Private Sub EnterKeyDown(sender As Object, e As System.Windows.Forms.KeyEventArgs)
   If e.KeyCode = Keys.Enter Then
      System.Windows.Forms.SendKeys.Send("{TAB}")
   End If
End Sub 'EnterKeyDown'用ENTER代替TAB
Private Sub Mainform_Load(sender As Object, e As System.EventArgs)
   Dim ctrl As Control
   For Each ctrl In  Me.Controls
      If TypeOf ctrl Is TextBox Or TypeOf ctrl Is ComboBox Then
         ctrl.KeyDown += New System.Windows.Forms.KeyEventHandler(Me.EnterKeyDown)
      End If
   Next ctrl
End Sub 'Mainform_Load 

Answer 5

求求你们了，帮帮忙吧！！！
http://community.csdn.net/Expert/topic/3684/3684758.xml?temp=.9476129

Answer 6

老兄,我也只是那句ctrl.KeyDown += new System.Windows.Forms.KeyEventHandler(this.EnterKeyDown);转换不了,那个网站如果可以的话,我也不用发出帖子叫人帮忙了.难道真的没人可以帮到我吗?

Answer 7

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        For Each ctrl As Control In Me.Controls
            If (TypeOf ctrl Is TextBox) OrElse (TypeOf ctrl Is ComboBox) Then
                AddHandler ctrl.KeyDown, AddressOf Me.EnterKeyDown
            End If
        Next    End Sub    Private Sub EnterKeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs)
        If e.KeyCode = Keys.Enter Then
            System.Windows.Forms.SendKeys.Send("{TAB}")
        End If
    End Sub这是最后的结果，我试过可用，希望对以后遇到相同问题的有缘人有一定帮助