| 投稿日 | ： 2003/10/29(Wed) 09:41 |
| 投稿者 | ： 花ちゃん |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re^3: 選択範囲をクリップボードにキャプチャ |
下記のような方法ではだめですか？
これですと、再取得時に微調整等ができますので結構便利かと思いますが。
Private Sub Command2_Click()
MsgBox "取得位置の左上にマウスを移動して下さい" & vbCrLf & _
"３秒後に位置を取得します"
Me.Visible = False
DoEvents
Dim lngSt As Long
lngSt = Timer
Do While Timer - lngSt < 3
DoEvents
Loop
GetCursorPos MoP
Text1.Text = MoP.x
Text2.Text = MoP.y
Me.Visible = True
DoEvents
MsgBox "取得位置の右下にマウスを移動して下さい" & vbCrLf & _
"３秒後に位置を取得します"
Me.Visible = False
lngSt = Timer
Do While Timer - lngSt < 3
DoEvents
Loop
GetCursorPos MoP
Text3.Text = MoP.x
Text4.Text = MoP.y
Me.Visible = True
'画像のコピー処理へ
Command1.Value = True
End Sub