VB 次のコントロールを取得する

VB.NET 2002, VB.NET 2003, VB2005

次のコントロールを取得する

１．単純な例

この例ではoControlはTextBox1の次のコントロールがセットされる。

Dim oControl As Control
oControl = Me.GetNextControl(TextBox1, True)

　

２．使用例

以下の例では、TextBox1でキーを押したときに押されたキーを次のコントロールに表示する。この例では次のコントロールはLabelやTextBoxであることが望ましい。

Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
    Dim oControl As Control

    oControl = Me.GetNextControl(sender, True)
    oControl.Text = e.KeyChar

End Sub

　VB6では、自分でループを回して全コントロールを検索し、TabIndexを調べることにより実現可能です。