Telerik版本的system.windows.text代碼

Question

我想要一個部分班級來管理我的焦點，當用戶按下Enter鍵時，我正在尋找telerik對這行代碼的解釋tbs(i).KeyDown += New KeyEventHandler(AddressOf textBoxes_KeyDown)任何想法。請幫忙。

Partial Public Class MstFileTruck Inherits Form 

    Private tbs() As Telerik.WinControls.UI.RadTextBox 

    Public Sub New() 
     InitializeComponent() 
     tbs = New Telerik.WinControls.UI.RadTextBox() {txtTruckNumber, txtRegistrationNumber, txtOwnerName} 
     For i As Integer = 0 To tbs.Length - 1 
      tbs(i).Tag = i 
      tbs(i).KeyDown += New KeyEventHandler(AddressOf textBoxes_KeyDown) 
      ' 'tbs(i).IsHandleCreated += New KeyEventArgs(Keys.Enter) '(AddressOf textBoxes_KeyDown) 
      ' tbs(i).RootElement.KeyDownEvent.EventName(textBoxes_KeyDown) '= New KeyEventArgs(AddressOf Telerik.WinControls.UI.RadTextBoxElement.KeyDownEvent.EventName(textBoxes_KeyDown(tbs, RootRadElement.KeyDownEvent))) '(AddressOf textBoxes_KeyDown) 
     Next 
     tbs(0).Focus() 
    End Sub 

    Private Sub textBoxes_KeyDown(sender As Object, e As KeyEventArgs) 
     Dim tb As Telerik.WinControls.UI.RadTextBox = TryCast(sender, Telerik.WinControls.UI.RadTextBox) 
     If tb IsNot Nothing Then 
      If e.KeyCode = Keys.Enter Then 
       Dim tag As Integer = CInt(tb.Tag) 
       If tag = 2 Then 
        tbs(0).Focus() 
       Else 
        tbs(tag + 1).Focus() 
       End If 
      End If 
     End If 
    End Sub 
End Class 

Answer 1

我不太清楚你的代碼應該做什麼。我甚至不能確定您的活動訂閱將工作，但是，在這裏是如何切換RadTextBox的兩個實例之間的焦點：

Private Sub RadTextBox_KeyDown(sender As System.Object, e As System.Windows.Forms.KeyEventArgs) Handles RadTextBox1.KeyDown, RadTextBox2.KeyDown 
    If e.KeyCode = Keys.Enter Then 
     Dim tb As RadTextBox = DirectCast(sender, RadTextBox) 
     If tb.Name = "RadTextBox1" Then 
      RadTextBox2.TextBoxElement.Focus() 
     Else 
      RadTextBox1.TextBoxElement.Focus() 
     End If 
    End If 
End Sub 

另一種方式來訂閱在VB中的事件是：

 AddHandler RadTextBox1.KeyDown, AddressOf RadTextBox_KeyDown 

     Private Sub RadTextBox_KeyDown(sender As System.Object, e As System.Windows.Forms.KeyEventArgs) 
      'your code here 
     End Sub 

這裏是整個代碼，因爲它看起來應該像在你的.vb文件

Imports Telerik.WinControls.UI 

Public Class Form1 

Public Sub New() 

    ' This call is required by the designer. 
    InitializeComponent() 

    AddHandler RadTextBox1.KeyDown, AddressOf RadTextBox_KeyDown 
End Sub 


Private Sub RadTextBox_KeyDown(sender As System.Object, e As System.Windows.Forms.KeyEventArgs) Handles RadTextBox1.KeyDown, RadTextBox2.KeyDown 
    If e.KeyCode = Keys.Enter Then 
     Dim tb As RadTextBox = DirectCast(sender, RadTextBox) 
     If tb.Name = "RadTextBox1" Then 
      RadTextBox2.TextBoxElement.Focus() 
     Else 
      RadTextBox1.TextBoxElement.Focus() 
     End If 
    End If 
End Sub 

末級