掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
インターネット上の画像をファイルとして保存せずにピクチャーボックスに表示するには？ (ID:118049)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
UserControlを貼り付けて、AsyncReadメソッドを使う方法も。 --- UserControl1 --- Option Explicit Public Sub LoadPicture(ByVal URL As String) Dim Flag As AsyncReadConstants Flag = vbAsyncReadGetFromCacheIfNetFail UserControl.AsyncRead URL, vbAsyncTypePicture, "Picture", Flag End Sub Private Sub UserControl_Initialize() AutoRedraw = True End Sub Private Sub UserControl_AsyncReadComplete(AsyncProp As AsyncProperty) On Error Resume Next Set Picture = AsyncProp.Value If Err.Number <> 0 Then Cls Print Err.Description End If End Sub Private Sub UserControl_AsyncReadProgress(AsyncProp As AsyncProperty) Cls Print "読み込み中: "; AsyncProp.BytesRead; "/"; AsyncProp.BytesMax End Sub --- Form1 (上記のコントロールと、コマンドボタンを貼っておく) --- Option Explicit Private Sub Command1_Click() UserControl11.LoadPicture "http://alucard-k.hp.infoseek.co.jp/lovedog/132nasubi.jpg" End Sub
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2020 Takeshi Okamoto All Rights Reserved.