Access VBA質問箱 IV

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

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


1235 / 2272 ツリー ←次へ | 前へ→

【8087】Access フォームでのGIFアニメ表示 sim 06/6/29(木) 16:26 質問[未読]
【8089】Re:Access フォームでのGIFアニメ表示 たん 06/6/29(木) 16:51 回答[未読]
【8092】Re:Access フォームでのGIFアニメ表示 YU-TANG 06/6/29(木) 21:30 回答[未読]
【8107】Re:Access フォームでのGIFアニメ表示 sim 06/6/30(金) 15:44 質問[未読]
【8109】Re:Access フォームでのGIFアニメ表示 小僧 06/6/30(金) 16:15 回答[未読]
【8110】Re:Access フォームでのGIFアニメ表示 sim 06/6/30(金) 17:03 お礼[未読]

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

引用なし
パスワード
   初めまして。simと申します。

フォーム上でGIFアニメーションを表示させたく情報を集めているのですが
参考にできるものが見つからず、投稿させていただきました。

1.DBからデータをダウンロード
2.一旦CSVファイルに落とす
3.CSVファイルをインポートする
4.帳票作成
5.帳票印刷

この一連の処理を自動化しています。そんなに複雑なものではないのですが、
処理件数が少し多いため(レコード1〜2万件、出力帳票3000ページほど)処理に
時間がかかります。このため、処理中ということをユーザにアピールし、不用意な操作を防止したいと考えております。

始めはインジケータの使用を考慮したのですが、1.〜5.の処理について具体的な
進捗率を得る手段が得られない(2.3.5.)ため断念しました。
次案として、1.〜5.の各処理の終了時にテキストボックスの値を変え(ダウンロード中です⇒インポート中です⇒帳票作成中です⇒帳票印刷中です、という具合に。)、なんらかのGIFアニメを動かしておけばユーザにアピールできると考えました。

ですが、フォーム上でGIFアニメを表示させても、最初のコマしか表示されず
困っております。VBのフォームでは実現できる(Picture Box?)らしいのでaccess
でもできるだろうと考え、情報を探しております。

環境はAccess 2003, WinXPです。

方法をご存知の方ご教示ください。

【8089】Re:Access フォームでのGIFアニメ表示
回答  たん  - 06/6/29(木) 16:51 -

引用なし
パスワード
   余所の検索結果ですが。

「フォーム 動画」
http://www.accessclub.jp/search1/namazu.cgi?query=%83t%83H%81%5B%83%80%81@%93%AE%89%E6

ただ、素直に、砂時計表示だけさせておくのが、シンプルで一番負担が
少なくて済みますが。

# 動画に余計な労力取られて、余計時間がかかる気がします。

【8092】Re:Access フォームでのGIFアニメ表示
回答  YU-TANG WEB  - 06/6/29(木) 21:30 -

引用なし
パスワード
   こんばんは。

▼sim さん:
>フォーム上でGIFアニメーションを表示させたく情報を集めているのですが
>参考にできるものが見つからず、投稿させていただきました。

何も考えずに答えるなら、Access では Web ブラウザコントロールを使う
方法があります(他にもありますが)。

たまたまウチのサンプルに、そのままの例があります。

http://x7net.com/~access/AcTipsMovableImage.html

これは別件用のサンプルなので、本題で他のことをゴチャゴチャやって
ますが、GIF アニメの表示も、結果的にやってます。


で、そもそもの目的、

>処理中ということをユーザにアピールし、不用意な操作を防止したい

に照らし合わせて考えるなら、実行環境へのセットアップさえ問題
なければ、こういうのを使うのが一番手っ取り早いかもしれません。

http://www.tomtittot.co.jp/3TCancel.htm

【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

【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

【8110】Re:Access フォームでのGIFアニメ表示
お礼  sim  - 06/6/30(金) 17:03 -

引用なし
パスワード
   小僧さま

解決いたしました!サンプルのご提供ありがとうございます。
いただいたコードを活性時イベントに入れても動かなかったので
そもそも活性時に入れていたのが間違いだったようです。

ご教示くださった皆様、非常に勉強になりました。どうも
ありがとうございました。

▼小僧 さん:
>
>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

1235 / 2272 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
1078222
(SS)C-BOARD v3.8 is Free