改写C#为VB.NET

[wubaiyong]

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);
}
}


}
请各位高手将上面的代码C#改写为VB.NET

[babyfast]

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


我不是什么高手,不知道对不对

[babyfast]

http://authors.aspalliance.com/aldotnet/examples/translate.aspx
这里可以翻译

[haoztao]

你到翻译网站大致翻译一下，然后再修改一下。

[wubaiyong]

ctrl.KeyDown += New System.Windows.Forms.KeyEventHandler(Me.EnterKeyDown)
为什么报错呀

[softbugg]

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
Addhandle ctrl.KeyDown, addressof Me.EnterKeyDown
End If
Next ctrl
End Sub 'Mainform_Load