Question

我正在使用 VB 2010 。我的表单中有20个TextBox控件。我把它们变成了TextBox数组。

以下是代码：

Dim TbArray(19) As TextBox
Private Sub Form7_Load(ByVal sender As System.Object, 
      ByVal e As System.EventArgs) Handles MyBase.Load

    TbArray(0) = TextBox1
    TbArray(1) = TextBox2
    ...
    TbArray(19) = TextBox20

它运作正常。我希望我的程序选择TextBox控件上所有关注的文本。

我怎么知道选择了哪个TextBox控件？我的意思是vb designer的下拉菜单中没有Private Sub TbArray(i)_GotFocus。

Answer 1

使用一个事件处理程序方法处理所有TextBox控件的TextBox.GotFocus事件。使用以下内容：

Dim focusedTextBox as TextBox = CType(sender, TextBox)

Answer 2

阐述阿克拉姆所说的，

For x = 0 to 19
   AddHandler tbarray(x).GotFocus, AddressOf TextBox_GotFocus
Next x

Private Sub TextBox_GotFocus(sender As Object, e As System.EventArgs)
    Dim tb As TextBox = CType(sender, TextBox)
    tb.SelectAll()
End Sub

Answer 3

因此，您希望TextBox中的文本在获得焦点时突出显示？听起来像JavaScript的工作对我来说。使用jQuery或类似的东西应该相当简单

如何控制文本框数组的单击事件？

3 个答案: