■ 現在のこのページの役立ち度:
表示されない場合こちらのリンクからもご覧になれます。
■ このページの役立ち度を評価する:
役立ち度を評価してください。
(1(左):あまり役立たない - 5(右):大変役立った):
■ ページの共有:
[ サイト内検索 ]
カスタム検索
#35755-0動画の貼り付けさくす2000-12-21(木) 10:33
     #35810-0RE#35755:動画の貼り付け藤代千尋2000-12-21(木) 20:06
     #35822-0RE#35810:動画の貼り付け匿名358222000-12-22(金) 08:57
     #35823-0RE#35822:動画の貼り付け匿名358232000-12-22(金) 08:58
     #35825-0RE#35822:動画の貼り付け魔界の仮面弁士2000-12-22(金) 09:25
     #35826-0RE#35825:動画の貼り付け魔界の仮面弁士2000-12-22(金) 09:38
#35755-0
動画の貼り付け
こんにちは。
さくすと申します。

動画(gifファイル)を貼り付けたいのですが、VBでは出来ないんでしょうか?
gifファイルをPictureBoxやImageのPictureプロパティにセットしても、
たしかに絵は表示されますが、動いてくれません。
何か方法をご存知の方がいらしたら教えてもらえませんか?
お願いします。
#35810-0
RE#35755:動画の貼り付け
> 動画(gifファイル)を貼り付けたいのですが、VBでは出来ないんでしょうか?
> gifファイルをPictureBoxやImageのPictureプロパティにセットしても、
> たしかに絵は表示されますが、動いてくれません。
> 何か方法をご存知の方がいらしたら教えてもらえませんか?

ちょっと不格好ですが、WebBrowser コントロールを使うと簡単に出来ます。
 WebBrowser1.Navigate = "ファイル名"
とすれば良いはずです。・・・私は、やったことはありませんが。(^_^;)
#35822-0
RE#35810:動画の貼り付け
> > 動画(gifファイル)を貼り付けたいのですが、VBでは出来ないんでしょうか?
> > gifファイルをPictureBoxやImageのPictureプロパティにセットしても、
> > たしかに絵は表示されますが、動いてくれません。
> > 何か方法をご存知の方がいらしたら教えてもらえませんか?

背景に画像を設定するとよりよいです。
  WebBrowser1.Documment.body.innerHTML = HTML <--ここにHTMLを入力してください
#35823-0
RE#35822:動画の貼り付け
> 背景に画像を設定するとよりよいです。
>   WebBrowser1.Documment.body.innerHTML = HTML <--ここにHTMLを入力してください

mが多いかも。。。
#35825-0
RE#35822:動画の貼り付け
> 背景に画像を設定するとよりよいです。
>   WebBrowser1.Documment.body.innerHTML = HTML <--ここにHTMLを入力してください

WebBrowser1に何も表示させてないときは、DocummentプロパティはNothingなので、
あらかじめ、Navigate/Navigate2メソッドで、ダミーのページを表示させておく必要があります。


Private Sub Form_Load()
    '初期化(空白ページの表示)
    WebBrowser1.Navigate2 "about:blank"
    Do
        DoEvents
    Loop While WebBrowser1.Busy
    
    '画像を[背景]として表示 (要IE3.02)
    WebBrowser1.Document.body.background = _
        "C:\Program Files\Plus!\Themes\Jazz\jazzani.gif"
    
    'スクロールバーの消去 (要IE4.0)
    WebBrowser1.Document.body.Scroll = "No"
End Sub
#35826-0
RE#35825:動画の貼り付け
>> 背景に画像を設定するとよりよいです。
>>   WebBrowser1.Document.body.innerHTML = HTML <--ここにHTMLを入力してください
>     '画像を[背景]として表示 (要IE3.02)
>     WebBrowser1.Document.body.background = _
>         "C:\Program Files\Plus!\Themes\Jazz\jazzani.gif"

背景としてタイル表示する必要が無く、
単一の画像として表示するのでもよければ、
Navigate2メソッドの第1引数に指定してもOKです。

Private Sub Form_Load()
    '画像の表示
    WebBrowser1.Navigate2 "C:\Program Files\Plus!\Themes\Jazz\jazzani.gif"
    
    '表示待ち
    Do
        DoEvents
    Loop While WebBrowser1.Busy
    
    With WebBrowser1.Document.body
        'スクロールバーの消去 (要IE4.0)
        .Scroll = "No"
    
        '余白を消去 (要IE4.0)
        .leftMargin = 0     '左余白 = 0 Pixel
        .rightMargin = 0    '右余白 = 0 Pixel
        .topMargin = 0      '上余白 = 0 Pixel
        .bottomMargin = 0   '下余白 = 0 Pixel
    End With
End Sub
このページと関連する記事:
#43844-0GIFアニメーションの貼り付け2001-06-08(金) 11:33
#11141-0たくさんのlineの描き方2000-09-06(水) 08:39
#2350-2HTMLからTIFFへ2002-08-20(火) 07:27
#17523-0pictureの特定色を透明にするには。2000-03-08(水) 08:40
#70-0hdcとPicture1999-07-17(土) 14:07
#38-3横スクロールについて2003-11-05(水) 13:42
#726-3フェードインとフェードアウト2002-06-01(土) 14:02
#3740-0(追加)Image.Picture=Picture.Pictureをしたいのですが。1999-11-08(月) 07:34
#20831-0Formロード時にWebBrowserの背景に色を付けたい2001-05-11(金) 09:08
#15420-0FormいっぱいにImageを表示2001-04-04(水) 21:46
お探しの情報は見つかりましたか?お困りの問題は解決しましたか?
サイト内検索, 似た記事検索で見つからなくてもあきらめずに掲示板で質問してみましょう。
VB初心者友の会があなたのお役に立てれば幸いです。また、本ページの投稿者の方々にこの場を借りて感謝致します。
本ページは過去ログを集めて自動構成しています。よろしければこのページに関するフィードバックをお願いします。
(※ 構成の誤り、広告等の不適切な記事、リンク切れ、読めないページの報告など)