情報を収集する Vb.net で簡単なプログラムを書いています。マウスの xy 座標、ピクセルの色、キーストローク数など。カーソルの x 座標と y 座標をフォーム上だけでなく、画面上の任意の場所に表示できるようにしたいと考えています。これを可能な限り簡単な方法で行いたいと考えています。目的の効果を達成した1つの方法は、次の設定を使用することです。
Picturebox2:
- BackColor = 赤
- image = 3 x 2 ピクセルの画像 (ほとんど見えませんが、すべて同じように必要です)
フォーム1:
- 透明キー = 赤
これにより、カーソルがフォーム境界の外にある間、マウス座標が表示されているように見えます。しかし、それはまだフォーム上にあります。この特定の問題に使用しているコードは次のとおりです。
Dim mouseloc As Point
Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
mouseloc = Cursor.Position
lblc.Text = PointToClient(mouseloc).ToString
lbls.Text = PointToScreen(mouseloc).ToString
End Sub
Private Sub PictureBox2_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox2.MouseMove
mouseloc = Cursor.Position
lblc.Text = PointToClient(mouseloc).ToString
lbls.Text = PointToScreen(mouseloc).ToString
End Sub
Windows 7 x64 Sony VAIOでVisual Studio 2010を実行しています