VB6.0用掲示板の過去のログ(No.1)−VBレスキュー(花ちゃん)
[記事リスト]
[新規投稿]
[新着記事]
[ワード検索]
[過去ログ]
[管理用]
| 投稿日 | ： 2003/10/28(Tue) 09:48 |
| 投稿者 | ： とおりすがり |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re: 選択範囲をクリップボードにキャプチャ |
>まずは全体画像をキャプチャして，選択範囲の左上，右下の座標値を
>API関数で取得して最初の画像から切り抜くって事を考えたのですが，
これでいいと思いますよ。
デスクトップの任意の場所をキャプチャ
'API宣言
Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long
Dim DeskDC As Long
DeskDC = GetDC(0)
BitBlt Picture1.hDC, 0, 0, X1-X, Y1-Y, DeskDC, X, Y, vbSrcCopy
Picture1.Refresh
'Xが始点のX座標
'Yが始点のY座標
'X1が終点のX座標
'Y1が終点のY座標
- 関連一覧ツリー
（★ をクリックするとツリー全体を一括表示します）
- 返信フォーム
（この記事に返信する場合は下記フォームから投稿して下さい）