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

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

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

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 ' 獲取或設(shè)置一個(gè)值，該值指示是否與

Internet資源建立持久連接。

Dim reader As StreamReader = _

New StreamReader(httpResp.GetResponseStream,

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

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

怎樣用VB編程弄一個(gè)相冊(cè)？

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

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

按鈕的單擊代碼,我只說(shuō)大概:

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

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

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

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

BitBlt

StretchBlt

用VB.NET制作相冊(cè)

假設(shè)有三張圖片在資源里，VB.NET不允許資源的名字是純數(shù)字，假設(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

當(dāng)前名稱：vb.net相冊(cè)源代碼 代碼相冊(cè)源代碼
當(dāng)前鏈接：http://www.aaarwkj.com/article44/docpihe.html

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

廣告

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