| 投稿日 | ： 2003/10/29(Wed) 03:17 |
| 投稿者 | ： TAK |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re^2: 選択範囲をクリップボードにキャプチャ |
とおりすがりさんお早い返事ありがとうございます．
やはりその方法で良いのですか，
で，早速実装しようと思い開発を始めてみたのですが．
まずは，始点と終点のX座標とY座標を取得しようと思ったのですが，
Dim start_flg As Boolean '始点判定のフラッグ
Dim end_flg As Boolean '終点判定のフラッグ
'API関数：マウスカーソルの位置を取得する
Private Declare Function GetCursorPos Lib "user32" _
(lpPoint As POINTAPI) As Long
'構造体：カーソルの位置
Private Type POINTAPI
X As Long 'マウスのX座標（スクリーン座標）を記憶する変数（構造体）
Y As Long 'マウスのY座標（スクリーン座標）を記憶する変数（構造体）
End Type
Private u_Point As POINTAPI 'カーソル位置を記憶する変数
'キャプチャモード開始
Private Sub Command1_Click()
start_flg = True '始点を決定できるようにする
End Sub
Private Sub Form_Click()
If start_flg = True And end_flg = False Then
'始点のX座標，Y座標を取得
GetCursorPos u_Point
Text1.Text = u_Point.X
Text2.Text = u_Point.Y
Else
End If
If start_flg = True And end_flg = True Then
'終点のX座標，Y座標を取得
GetCursorPos u_Point
Text3.Text = u_Point.X
Text4.Text = u_Point.Y
start_flg = False
end_flg = False
Else
End If
If start_flg = True And end_flg = False Then
end_flg = True
Else
End If
End Sub
Private Sub Form_Load()
start_flg = False
end_flg = False
End Sub
これで，始点と終点のX座標とY座標が取得できますが，
Form_Clickを使用しているため，コマンドボタンやラベルがあると
座標値が取得できません．
あと，このフォーム内でのキャプチャしか出来ません．
何か良い方法ってあるのでしょうか？
へたくそなプログラムでごめんなさい．
分かりにくいですね・・・