Access VBA質問箱 IV

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

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


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

5116 / 9994

←次へ　｜　前へ→


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

小僧 - 06/6/30(金) 16:15 -


	引用なし

	パスワード

▼sim さん、みなさま：こんにちは。 >悪い部分をご指摘いただければ幸いです。 > >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 Navigate でGIF画像を取得をしてから枠線等の処理をすると思われるのですがいかがでしょうか。 Private Sub Form_Load() 　　With Me!WebBrowser2 　　　　.Navigate "http://localhost/xxx/xxx.gif" 　　　　　　　　Do 　　　　　　DoEvents 　　　　Loop While Me!WebBrowser2.Busy 　　　　.Object.Document.Body.Style.Border = "None" 　　　　.Object.Document.Body.Scroll = "No" 　　End With End Sub