VB 高手请进.请问如何在程序窗体一个小方框内显示互联网上http://xxx.xxx.com/1.jpg图片并超级链接?

Question

请问如何在程序窗体左下角的一个小方框内显示互联网上http://xxx.xxx.com/1.jpg图片并超级链接?
也就是无论谁在哪里打开这个软件,只要电脑能上网就在程序的左下角显示我存在网上的一张小图片,不能上网就显示"欢迎使用"的文字.
盼请高手能详细指教原码.

Answer 1

从网上下载到程序目录, 
然后loadPicture 
至于链接么,点击图片的事件就行了 貌视你的是B/S程序,没做过, 
那样应该更简单,直接HTML就可以完成你的功能不经意看见身份变成乞丐了,吗的,
平时懒得发言,哎,活不下去了

Answer 2

根据你的要求，比较方便的办法是使用WebBrowse控件。另外，可以做一个自定义控件，UserControl 的 AsyncRead 可以实现异步下载，以实现显示图片的要求。这个在MSDN中有非常详细的介绍。如果没有MSDN我可以发给你。不过你可能要先简要地学一下如何制作UserControl.

Answer 3

用 XmlHttp 可以实现，不过 VB 支持的图片格式太少，如果拿到的图片 VB 不支持的还得转换格式。
' 从指定的 Url 加载图片
Private Function LoadUrlPicture(Url As String) As StdPicture
    
    Dim hFile       As Long
    Dim bData()     As Byte
    Dim sTmp        As String
    Dim xmlHttp     As xmlHttp
    
    Set xmlHttp = New xmlHttp
    
    xmlHttp.open "GET", Url, False
    xmlHttp.send
    
    ' 判断返回的是否图片
    sTmp = xmlHttp.getResponseHeader("Content-Type")
    
    If InStr(1, sTmp, "image/", vbTextCompare) > 0 Then
        
        bData() = xmlHttp.responseBody
        
        sTmp = App.Path & "\tmpfile.tmp"
        
        hFile = FreeFile()
        
        ' 将数据写入临时文件
        Open sTmp For Binary As hFile
            Put hFile, , bData()
        Close hFile
        
        ' 加载临时文件
        Set LoadUrlPicture = LoadPicture(sTmp)
        
        ' 删除临时文件
        Kill sTmp
        
    End If
    
End Function' 测试
Private Sub Command1_Click()
    
    Set Image1.Picture = LoadUrlPicture("http://www.csdn.net/Images/logo_csdn.gif")
    
End Sub

Answer 4

不好意思，忘了说明，请引用 Microsoft XML。

Answer 5

haha,红星的贫农来跟乞丐抢分

Answer 6

http://topic.csdn.net/u/20081208/23/2e2a7121-9b6c-4dc9-987d-1859d0404b88.html