VB.net : フォーカス イベントの発生順序と注意事項

キーボードとマウスでは、GotFocus と LostFocus のイベント順序が全体で変わってしまうので使用できますが、使用しないようにします。( Visual Studio のイベント選択一覧には表示されません )

各ハンドラーの中からフォーカスを設定しないでください。フォーカスを設定すると、アプリケーションやオペレーティングシステムが応答を停止することがあります

Microsoft へのリンク

Control.Enter イベント (System.Windows.Forms)


キーボードで発生

キーボード (Tab、Shift + Tab など) を使用するか、Select メソッドまたはSelectNextControl メソッドを呼び出すか、ActiveControl プロパティを現在のフォームに設定してフォーカスを変更するとき、次の順序でフォーカスイベントが発生します。

1.Enter
2.GotFocus
3.Leave
4.Validating
5.Validated
6.LostFocus


マウスで発生

マウスを使用するか Focus メソッドを呼び出してフォーカスを変更するとき、フォーカス イベントは次の順序で発生します。

1.Enter
2.GotFocus
3.LostFocus
4.Leave
5.Validating
6.Validated

VB.net クリップボードの処理 ( C# は注意 )

VB.net ではデフォルトで問題は出ませんが、
▼ C# では同じではエラーが出ます
ハンドルされていない例外: System.Threading.ThreadStateException: 
OLE が呼び出される前に、現在のスレッドが Single Thread Apartment
 (STA) モードに設定されていなければなりません。Main 関数に
 STAThreadAttribute が設定されていることを確認してく
ださい。
( System.Windows.Forms.Clipboard でも同じです )

Main に [System.STAThreadAttribute()] を指定します

Module MyModule

' ********************************************************
' * 実行
' ********************************************************
Sub Main()

	Dim pc As Microsoft.VisualBasic.Devices.Computer = _
		New Microsoft.VisualBasic.Devices.Computer

	pc.Clipboard.SetText("あいうえお")

	Console.WriteLine(pc.Clipboard.GetText())

End Sub

End Module

class MyModule 
{ 

	// ******************************************************** 
	// * 実行 
	// ******************************************************** 
	[System.STAThreadAttribute()]
	public static void Main() 
	{

		Microsoft.VisualBasic.Devices.Computer pc = 
			new Microsoft.VisualBasic.Devices.Computer();

		pc.Clipboard.SetText("あいうえお");

		System.Console.WriteLine(pc.Clipboard.GetText());

	} 

}
// ビルド例 : csc /r:%windir%\Microsoft.NET\Framework\v2.0.50727\Microsoft.VisualBasic.dll info.cs

関連する記事

VB.net : 自分自身(というか元々プロテクトメソッド)を呼び出す遅延処理用プライベートタイマークラス

Convert VB.NET to C#

概要

Windows APIというか、C++ なら PostMessage するような処理ですが、VB.NET でざっと見当たらないのでてっとり早いタイマーを使いました。

最初フォームにコントロールを貼り付けて作ってテストすると、記述が分散してしまってまとまり悪いのでサブクラスを作成しました。

Start メソッドを呼び出すことは、Enabled を true に設定することと同じです。 同様に、Stop メソッドを呼び出すことは、Enabled を false に設定することと同じです。

Private tm As myTimer = New myTimer()
' **************************************************
' 遅延フォーカス用プライベートクラス
' **************************************************
Private Class myTimer
	Inherits System.Windows.Forms.Timer

	Private _col As Integer
	Private _row As Integer

	' ******************************************
	' タイマーによって呼び出される
	' ※ ここでフォーカス処理を実行
	' ******************************************
	Protected Overrides Sub OnTick(ByVal e As System.EventArgs)
		MyBase.OnTick(e)

		' タイマーを止める
		Me.Enabled = False
		' フォーカス処理
		Form1.LboxGrid1.CurrentCell = Form1.LboxGrid1(_col, _row)
	End Sub

	' ******************************************
	' ここを呼び出して、タイマーを起動させる
	' ※ しかしここではフォーカス処理は実行なし
	' ******************************************
	Public Sub setCellFocus(ByVal row As Integer, ByVal col As Integer)

		_col = col : _row = row
		Me.Interval = 50
		Me.Enabled = True

	End Sub
End Class

元々の記事

伝票入力に最適化した DataGridView