Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

5118 / 9994

←次へ　｜　前へ→


	【8107】Re:Access フォームでのGIFアニメ表示

sim - 06/6/30(金) 15:44 -


	引用なし

	パスワード

お二人ともありがとうございます。とても参考になりました。
いろいろ情報を探しているつもりだったのですが、探し方を
知らなかったようでお恥ずかしい限りです。おかげさまでアニメを
表示することができるようになりました。

たんさま
砂時計も考えたのですが、目立たないということ、私の環境では
砂時計に動きがない（ひっくり返ったりせず、立ったまま）ので考慮から
外した次第です。

YU-TANGさま
サンプルのご提供ありがとうございました。早速コードをいただいたのですが、
スクロールの解除、枠線の解除がうまくいきません。以下のようなコードを
フォームの活性時イベントに追加しました。GIFアニメは表示されるのですが、
枠線、スクロールバーの設定が無視されてしまいます。

悪い部分をご指摘いただければ幸いです。

Private Sub Form_Activate()
　　' 枠線を設定します。
　　Me.WebBrowser2.Object.Document.body.Style.border = "none"
　　' スクロールバーの表示/非表示を設定します。
　　Me.WebBrowser2.Object.Document.body.Scroll = "no"

　　Me!WebBrowser2.Navigate "http://localhost/xxx/xxx.gif"

End Sub

1,791 hits

▼

【8087】Access フォームでのGIFアニメ表示 sim 06/6/29(木) 16:26