如何用vb.net獲得網(wǎng)頁的源代碼

Dim url As String=" 網(wǎng)址"

創(chuàng)新互聯(lián)公司是專業(yè)的丘北網(wǎng)站建設公司，丘北接單;提供成都做網(wǎng)站、成都網(wǎng)站建設,網(wǎng)頁設計,網(wǎng)站設計,建網(wǎng)站,PHP網(wǎng)站建設等專業(yè)做網(wǎng)站服務;采用PHP框架,可快速的進行丘北網(wǎng)站開發(fā)網(wǎng)頁制作和功能擴展;專業(yè)做搜索引擎喜愛的網(wǎng)站,專業(yè)的做網(wǎng)站團隊,希望更多企業(yè)前來合作!

Dim httpReq As System.Net.HttpWebRequest

Dim httpResp As System.Net.HttpWebResponse

Dim httpURL As New System.Uri(url)

httpReq = CType(WebRequest.Create(httpURL), HttpWebRequest)

httpReq.Method = "GET"

httpResp = CType(httpReq.GetResponse(), HttpWebResponse)

httpReq.KeepAlive = False ' 獲取或設置一個值，該值指示是否與

Internet資源建立持久連接。

Dim reader As StreamReader = _

New StreamReader(httpResp.GetResponseStream,

System.Text.Encoding.GetEncoding(-0))

Dim respHTML As String = reader.ReadToEnd() 'respHTML就是網(wǎng)頁源代碼

怎樣用VB編程弄一個相冊？

首先把那些人的相片都放到一個文件夾里 (比如D:\PHTO 文件夾里,并且名字命名為 相片主人的名字;名字+1;名字+2......)

新建一個工程, 添加 TEXT1.TEXT , 按鈕 , IMAGE 控件.

按鈕的單擊代碼,我只說大概:

IF TEXT1.TEXT = "自己的照片" THEN

image.picture=loadpicture("d:\photo\" + TEXT1.TEXT + ".JPG")

然后在添加個按鈕, 名字為: 下一張

單擊代碼: image.picture=loadpicture("d:\photo\自己的照片" + "1" + ".JPG")

BitBlt

StretchBlt

用VB.NET制作相冊

假設有三張圖片在資源里，VB.NET不允許資源的名字是純數(shù)字，假設取名Image1,Image2......

Dim Images() As System.Drawing.Bitmap = {My.Resources.Image1, My.Resources.Image2, My.Resources.Image3}

Dim CurrentImage As Integer

Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click

If CurrentImage 2 Then CurrentImage += 1 Else CurrentImage = 0

PictureBox1.Image = Images(CurrentImage)

End Sub

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

If CurrentImage 0 Then CurrentImage -= 1 Else CurrentImage = 2

PictureBox1.Image = Images(CurrentImage)

End Sub

當前名稱：vb.net相冊源代碼 代碼相冊源代碼
當前鏈接：http://jinyejixie.com/article44/docpihe.html

成都網(wǎng)站建設公司_創(chuàng)新互聯(lián)，為您提供域名注冊、微信小程序、做網(wǎng)站、建站公司、面包屑導航、品牌網(wǎng)站制作

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉載內(nèi)容為主，如果涉及侵權請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉載，或轉載時需注明來源： 創(chuàng)新互聯(lián)