|
2012/11/30(Fri) 17:46:43 編集(投稿者)
2012/11/30(Fri) 17:44:18 編集(投稿者)
2012/11/30(Fri) 17:43:25 編集(投稿者)
2012/11/30(Fri) 17:42:53 編集(投稿者)
2人方ありがとうございます。
コントロールの使用方法については理解しているつもりなので
その辺りに関しては大丈夫です。
自分でいろいろと調べてみた結果、
なぜか実行時にテキストボックスが消滅してしまっているようで、
その為に参照先が消え､ReferenceErrorが出ているようです・・・
Private Sub ProcessInputKey(ByRef m As Message)
Const RidInput As Integer = &H10000003
Dim headerSize As Integer _
= Marshal.SizeOf(GetType(RawInputHeader))
Dim size As Integer _
= Marshal.SizeOf(GetType(RawInput))
Dim input As RawInput
GetRawInputData(m.LParam, RidInput, _
input, size, headerSize)
Dim mouse As RawMouse = input.Mouse
'デバイスの番号と直前からの移動量を表示
Me.m_textBox.AppendText( _
String.Format("{0}({1},{2})" & Environment.NewLine, _
input.Header.Device, _
mouse.LastX, mouse.LastY))
'変更箇所はこの部分のみ
TextBox1.Text = mouse.LastX
End Sub
|