给你写一个例子: Private Sub Form_Load() Dim a() As Byte a() = Inet1.OpenURL("http://www.hao123.com/images/guangg/xiangmu3.jpg", icByteArray)Open App.Path & "\11.jpg" For Binary Access Write As #1 Put #1, , a()Close #1 Set MSHFlexGrid1.CellPicture = LoadPicture(App.Path & "\11.jpg") End Sub
Private Sub Form_Load()
Dim a() As Byte
a() = Inet1.OpenURL("http://www.hao123.com/images/guangg/xiangmu3.jpg", icByteArray)Open App.Path & "\11.jpg" For Binary Access Write As #1
Put #1, , a()Close #1
Set MSHFlexGrid1.CellPicture = LoadPicture(App.Path & "\11.jpg")
End Sub