[リストへもどる]
一括表示
投稿時間：2003/09/19(Fri) 20:14
投稿者名：ライト
Ｅメール：
ＵＲＬ　：
タイトル：クリップボードの内容を非アクティブに
クリップボードで取得したテキストを、非アクティブになっているエディタ（ノートパッドなど）に貼
り付け、その後そのエディタを非アクティブに戻すにはどのようにしたらいいのでしょうか？

投稿時間：2003/09/19(Fri) 21:19
投稿者名：花ちゃん
Ｅメール：
ＵＲＬ　：
タイトル：Re: クリップボードの内容を非アクティブに
簡単な方法なら下記でできます。APIを使用するならここの逆引きヘルプに色々あります。
Private Sub Command1_Click()
    Dim St As Single
    AppActivate "無題 - メモ帳"  'Win95 はメモがカタカナ半角
    St = Timer
    Do While Timer - St < 0.1
        DoEvents
    Loop
    SendKeys "^V"
    Command1.SetFocus
End Sub

APIを使うなら
Window を操作（終了・アクティブ・元のサイズに戻す・最前面に表示・最小化）
アクティブウインドウにキーストロークを送る（SendKeysステートメントもどき関数）
等を組み合わせばできるかと。

投稿時間：2003/09/19(Fri) 21:51
投稿者名：ライト
Ｅメール：
ＵＲＬ　：
タイトル：Re^2: クリップボードの内容を非アクティブに
> 簡単な方法なら下記でできます。APIを使用するならここの逆引きヘルプに色々あります。
> Private Sub Command1_Click()
>     Dim St As Single
>     AppActivate "無題 - メモ帳"  'Win95 はメモがカタカナ半角

この場合、カーソルのあるところに貼り付けるにはどうするのでしょうか？

投稿時間：2003/09/19(Fri) 21:54
投稿者名：花ちゃん
Ｅメール：
ＵＲＬ　：
タイトル：Re^3: クリップボードの内容を非アクティブに
> この場合、カーソルのあるところに貼り付けるにはどうするのでしょうか？

試して見ればすぐ結果がでます。

投稿時間：2003/09/19(Fri) 22:05
投稿者名：花ちゃん
Ｅメール：
ＵＲＬ　：
タイトル：Re^4: クリップボードの内容を非アクティブに
>     SendKeys "~V"　　　

"~V" が間違ってますし、クリップボードにコピーしてから実行しないと意味がないのでは

投稿時間：2003/09/20(Sat) 00:11
投稿者名：ライト
Ｅメール：
ＵＲＬ　：
タイトル：Re^5: クリップボードの内容を非アクティブに
解決しました！ありがとうございます！
もうひとつなのですが、コマンドボタン、オプションボタンにアニメーションGIFを表示することは可能
でしょうか？

投稿時間：2003/09/20(Sat) 00:25
投稿者名：花ちゃん
Ｅメール：
ＵＲＬ　：
タイトル：Re:CommandButtonにGIFアニメを表示
>コマンドボタン、オプションボタンにアニメーションGIFを表示することは可能でしょうか？

できないかと思います。
他のコントロール等を使ってそれらしくする事はできるでしょうが。
VBでGIFアニメーションを表示するだけでも結構大変です。（ここの逆引きヘルプ参照）

GIFアニメの画像をBMPにしてコマンドボタンの表面に順次表示すればそれらしく見えます。

投稿時間：2003/09/21(Sun) 16:21
投稿者名：ライト
Ｅメール：
ＵＲＬ　：
タイトル：Re^2:CommandButtonにGIFアニメを表示
いろいろありがとうございます！