inet控件可以得到当前连接图片的大小吗?

Question

高手在哪里?或者用别的方法也行啊.

Answer 1

在窗口上添加一个picture控件，使该控件的AutoSize属性为True，编写以下代码即可获取该图片的宽和高。
Private Sub Command1_Click()
    Dim b() As Byte
    Me.ScaleMode = vbPixels
    b() = Inet1.OpenURL("http://www.tian_yf.com/abc.gif", icByteArray)
    Open "c:\temp\abc.gif" For Binary As #1
    Put #1, , b()
    Close #1
    Picture1.Picture = LoadPicture("c:\windows\desktop\abc.gif")
    MsgBox Picture1.ScaleWidth / Screen.TwipsPerPixelX & "    " & Picture1.ScaleHeight / Screen.TwipsPerPixelY
End Sub