SQLの窓

2009年10月22日


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


posted by lightbox at 2009-10-22 21:58 | VB.NET : テクニカル | このブログの読者になる | 更新情報をチェックする
container 終わり



フリーフォントで簡単ロゴ作成
フリーフォントでボタン素材作成
フリーフォントで吹き出し画像作成
フリーフォントではんこ画像作成
ほぼ自由に利用できるフリーフォント
フリーフォントの書体見本とサンプル
画像を大きく見る為のウインドウを開くボタンの作成

CSS ドロップシャドウの参考デモ
イラストAC
ぱくたそ
写真素材 足成
フリーフォント一覧
utf8 文字ツール
右サイド 終わり
base 終わり