VB.NET加載圖片問題

'先建立一個(gè)bitmap對象，指向圖像文件

創(chuàng)新互聯(lián)建站主要從事成都做網(wǎng)站、成都網(wǎng)站設(shè)計(jì)、網(wǎng)頁設(shè)計(jì)、企業(yè)做網(wǎng)站、公司建網(wǎng)站等業(yè)務(wù)。立足成都服務(wù)東港,十載網(wǎng)站建設(shè)經(jīng)驗(yàn),價(jià)格優(yōu)惠、服務(wù)專業(yè),歡迎來電咨詢建站服務(wù):18980820575

Dim pic As Bitmap = New Bitmap("e:\1.jpg")

'定義一個(gè)圖片框的graphics對象

Dim g As Graphics = PictureBox1.CreateGraphics()

'在圖片框上繪圖

g.DrawImage(pic, 0, 0, pic.Width, pic.Height)

'釋放bitmap對象

pic.Dispose()

'現(xiàn)在即可對文件進(jìn)行操作

VB如何使用 Inet1 控件下載圖片

我只知道第一個(gè)

利用webrower控件可以。

ctrl+t 在其中找到microsft internet control 控件打上勾點(diǎn)應(yīng)用

然后在部件中就多了一個(gè)控件，拉控件到一個(gè)到窗體上

Private Sub Form_Load()

WebBrowser1.Navigate2 ""

End Sub

Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)

On Error Resume Next

WebBrowser1.Document.body.Style.border = "0px" '隱藏邊框

WebBrowser1.Document.body.Style.overflow = "hidden" '隱藏滾動條

WebBrowser1.Document.body.Style.margin = "0px" '修改網(wǎng)頁邊距為0

End Sub

vb.net如何webbrowser中獲取圖片，并放到picturebox中。

思路應(yīng)該是這樣的 先用webbrowser 或者直接下載網(wǎng)頁 讀出html 正則找到img 然后找出src 用 picturebox 的load 去 載入這張圖片 或者是用 webbrowser的那個(gè)document 方法找 不過之前做項(xiàng)目用這個(gè)出國錯 之后就沒敢再用