私は約400のテキストボックスがあるプログラムに取り組んでおり、フォーカスがあることを示すようにエフェクトをプログラムする必要があります。 VBでテキストボックスにソフトな青いアウトラインを追加する方法が分かっていない限り、視覚的な部分を表示することはできますが、すべてのテキストボックスを一度に処理するGotFocusイベントとLostFocusイベントの作成には問題があります。私は試しましたフォーカスを視覚的に表示し、クリックイベントを追加するすべてのテキストボックスに
Dim txtBox = Me.Controls.OfType(Of TextBox)
Private Sub TextBox_GotFocus(sender As Object, e As EventArgs) Handles txtBox.GotFocus
しかし、私は "WithEvents変数を持っている必要があります"私はかなり修正する方法を理解していないエラーが表示されます。私は試しました
Public Sub txtBoxGotFocusHandler(ByVal sender As Object,
ByVal e As System.EventArgs)
For Each txtBox As TextBox In Me.Controls 'References all text boxes in form
If txtBox.Focus = True Then
txtBox.BackColor = Color.Black
End If
Next
私はインターネットの周りに見たいくつかの他のいくつかの関連するものを試してみましたが、役に立たない。どんな助けもありがたいです
「約400個のテキストボックスがあります」ユーザーはあなたを愛する必要があります。そのイベントのコントロールをループする必要はありません。送信者の引数は、どれが – Plutonix
@Plutonixかもしれないことを教えてくれるでしょうか? – Misaz
400 TextBoxes =グリッドを使用 – LarsTech