使用组件 Microsoft Internet Controls,在合适位置上放置一个 WebBrowser 控件。 Private Sub Form_Load() WebBrowser1.Navigate2 "http://xxx.xxx.com/1.html" '这个网页只包含图片和链接 End SubPrivate Sub WebBrowser1_NavigateError(ByVal pDisp As Object, URL As Variant, Frame As Variant, _ StatusCode As Variant, Cancel As Boolean) WebBrowser1.Navigate2 "about:欢迎使用" End Sub
然后loadPicture
至于链接么,点击图片的事件就行了貌视你的是B/S程序,没做过,
那样应该更简单,直接HTML就可以完成你的功能
Private Sub Form_Load()
WebBrowser1.Navigate2 "http://xxx.xxx.com/1.html" '这个网页只包含图片和链接
End SubPrivate Sub WebBrowser1_NavigateError(ByVal pDisp As Object, URL As Variant, Frame As Variant, _
StatusCode As Variant, Cancel As Boolean)
WebBrowser1.Navigate2 "about:欢迎使用"
End Sub