如何正確掌握VB.NET操作縮放圖像

在VB.NET操作縮放圖像中的顯示和保存縮放圖像，用到Image和Graphics類(lèi)，在VSDotNet2K3下面Reference里自動(dòng)添加了引用System.Drawing，直接用就行。

成都創(chuàng)新互聯(lián)公司-專(zhuān)業(yè)網(wǎng)站定制、快速模板網(wǎng)站建設(shè)、高性?xún)r(jià)比新源網(wǎng)站開(kāi)發(fā)、企業(yè)建站全套包干低至880元,成熟完善的模板庫(kù),直接使用。一站式新源網(wǎng)站制作公司更省心,省錢(qián),快速模板網(wǎng)站建設(shè)找我們，業(yè)務(wù)覆蓋新源地區(qū)。費(fèi)用合理售后完善，十余年實(shí)體公司更值得信賴(lài)。

實(shí)現(xiàn)VB.NET操作縮放圖像代碼如下：DimimgAsImageImage=Image.FromFile

(D:\Image\tstImage.jpg)

''tstImage是原先的圖片DimgrfxAsGraphics=Me

.CreateGraphics

grfx.DrawImage(img,0,0,img.Width*

3,img.Height*3)''在Form里顯示

DimimgnewAsNewSystem.Drawing.Bitmap

(img,img.Height*3,img.Width*3)

''新建一個(gè)放大的圖片

imgnew.Save(D:\Image\tstNewImage.jpg,

System.Drawing.Imaging.ImageFormat.Jpeg)

''保存放大后圖片

你可以建一個(gè)Form，然后在Form里拖進(jìn)一個(gè)Button，把上面的代碼放在Button_Click事件里面源碼天空

，執(zhí)行就行了。

對(duì)上面VB.NET操作縮放圖像代碼的解釋?zhuān)?/p>

1.要獲取Graphics對(duì)象只能從某一事件的參數(shù)中獲取或者使用窗體和控件對(duì)象的CreateGraphics方法來(lái)獲取-----上面代碼使用Me.CreateGraphics來(lái)引用這個(gè)對(duì)象。

2.加載一個(gè)圖片用Image類(lèi)的FromFile或者FromStream方法

3.用DrawImage來(lái)顯示一個(gè)圖片,該方法有30多個(gè)重載方法，可以查MSDN了解細(xì)節(jié)。

4.保存時(shí)的一個(gè)問(wèn)題：我們必須先建一個(gè)對(duì)象，用于存縮放圖像。

求vb.net的源代碼，最好說(shuō)明其解決問(wèn)題，越多越好，滿(mǎn)意加50分。

下面這段代碼，是我用來(lái)計(jì)算每個(gè)月存500元進(jìn)銀行，連續(xù)30年，最后連本帶利能有多少錢(qián)。這里面涉及復(fù)利計(jì)算。界面中右邊的文本框用來(lái)輸出每一次計(jì)算的結(jié)果。

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

? Dim nianxian As Integer '年限變量

? Dim dingcun As Integer '定存變量

? Dim fuli_big As Long '大復(fù)利

? Dim fuli_small As Long '小復(fù)利

? Dim i As Integer '循環(huán)變量

? Dim DATAstring As String '數(shù)據(jù)字符串

? nianxian = Val(年限_TextBox.Text)

? dingcun = Val(定存_TextBox.Text)

? DATAstring = ""

? For i = 1 To nianxian

? ? ? fuli_small = dingcun * (1 + 0.1875)

? ? ? dingcun = fuli_small

? ? ? fuli_big = fuli_big + fuli_small

? ? ? DATAstring = DATAstring + "[" + Trim(Str(i)) + "]" + Str(fuli_big) + Chr(13) + Chr(10)

? ? ? 'DATAstring = DATAstring + "[" + Trim(Str(i)) + "]" + Str(fuli_small) + Chr(13) + Chr(10)

? Next

? 'fuli_big = fuli_small

? TextBox1.Text = DATAstring

? 結(jié)果_TextBox.Text = Str(fuli_big) + "元"

End Sub

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

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

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.net獲取網(wǎng)頁(yè)源代碼

使用webbrowser控件來(lái)加載網(wǎng)頁(yè)，然后再

Private

Sub

WebBrowser

1_DocumentCompleted下通過(guò)使用WebBrowser1.Document.Body.

InnerHtml

來(lái)獲取網(wǎng)頁(yè)的源代碼，或使用

WebBrowser1.Document.Body.InnerText來(lái)獲取網(wǎng)頁(yè)中的文本。之后可以通過(guò)字符串控制指令或者

正則表達(dá)式

來(lái)精確獲取到你所需的數(shù)據(jù)。

各位好友，有誰(shuí)能告訴我哪里有免費(fèi)下載asp.net vb版的網(wǎng)站源代碼呢？記得我只要vb源代碼的網(wǎng)站哦？

源碼天空,百度直接搜就行了,網(wǎng)址好像是上面有各種源代碼,lz可以去看看

網(wǎng)頁(yè)標(biāo)題：vb.net源碼天空,vbnet web開(kāi)發(fā)框架
分享鏈接：http://aaarwkj.com/article44/dsieeee.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供面包屑導(dǎo)航、、網(wǎng)頁(yè)設(shè)計(jì)公司、自適應(yīng)網(wǎng)站、品牌網(wǎng)站建設(shè)、響應(yīng)式網(wǎng)站

廣告

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