> こんにちは〜
> ちょっと教えてくださいm(_ _)m
はいよ。
> ラベルに書かれたURLへのジャンプとかはできるようになったのですが
> URLで指定された画像ファイルをイメージに表示することはできるのでしょうか？
>
> どうかお願いします
フォームにインターネット トランスファー コントロールと
ピクチャーコントロールを貼り付けて
以下のソースをテストしてみてください。
Private Sub Form_DblClick()
Inet1.AccessType = icUseDefault
Dim b() As Byte
Dim strURL As String
' この URL は有効な URL であると仮定します。
strURL = "http://www1.plala.or.jp/uz/images/UzGalaxy2.jpg"
' ファイルをバイト配列として取得します。
b() = Inet1.OpenURL(strURL, icByteArray)
Open "C:\Temp\a.jpg" For Binary Access Write As #1
Put #1, , b()
Close #1
Picture1.Picture = LoadPicture("C:\Temp\a.jpg")
End Sub
ばっちりでしょ(^^)v
これならきっといろいろできそうですね。
|