VB.NET中如何將圖像轉(zhuǎn)成HTML文件

這篇文章主要為大家展示了“VB.NET中如何將圖像轉(zhuǎn)成HTML文件”，內(nèi)容簡而易懂，條理清晰，希望能夠幫助大家解決疑惑，下面讓小編帶領(lǐng)大家一起研究并學(xué)習(xí)一下“VB.NET中如何將圖像轉(zhuǎn)成HTML文件”這篇文章吧。

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

在vb.net中寫出了相同實(shí)現(xiàn)功能的VB.NET代碼
功能實(shí)現(xiàn)主要是應(yīng)用到system.drawing.bitmap,和其方法getpixel()

主要VB.NET代碼如下：

Private Sub Button1_Click()Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click  Dim bit As System.Drawing.Bitmap  bitbit = bit.FromFile("c:\aowindme.bmp") '讀取一個(gè)圖像文件  Dim w, h As Integer  w = bit.Width - 1 '取得圖像每行的像素量  h = bit.Height - 1 '取得圖像的行數(shù)  Dim pixel As System.Drawing.Color(,) '定義一個(gè)類型為系統(tǒng)色彩型的二維數(shù)組，來存放圖片的所有像系的色彩信息  pixel = New System.Drawing.Color(w, h) {} '根據(jù)圖像的像系每行數(shù)量和行量來重新定義數(shù)組下標(biāo)  Dim i, j  '利用循環(huán)把圖像所有像素的色彩信息對(duì)應(yīng)存入數(shù)組  For i = 0 To h  For j = 0 To w  pixel(j, i) = bit.GetPixel(j, i)  Next  Next  Dim content As String '定義一個(gè)字符串來存放要寫入html的內(nèi)容  content = toweb(w, h, pixel) '生成寫入html的內(nèi)容  Dim y As Boolean '定義一個(gè)邏輯變量來判斷是否寫入成功  y = SaveTextFile("c:\999.htm", content) '寫入html文件  If y Then MsgBox("ok!")  End Sub  '得到一個(gè)RGB信息的相應(yīng)WEB代碼  Private Function GetWEBColorinfo()Function GetWEBColorinfo(ByVal x As Color) As String  Dim r, g, b As String  r = Hex(CInt(x.R)) '取得一個(gè)像素色彩信息中的R信息，轉(zhuǎn)成16進(jìn)制后存成字符串型  g = Hex(CInt(x.G)) '取得一個(gè)像素色彩信息中的R信息，轉(zhuǎn)成16進(jìn)制后存成字符串型  b = Hex(CInt(x.B)) '取得一個(gè)像素色彩信息中的R信息，轉(zhuǎn)成16進(jìn)制后存成字符串型  '如果不足兩位的在前面加0，因?yàn)閃EB色彩表示應(yīng)為#＋R(兩位16進(jìn)制)＋G(兩位16進(jìn)制)+B(兩位16進(jìn)制)  If r.Length = 1 Then r = "0" & r  If g.Length = 1 Then g = "0" & g  If b.Length = 1 Then b = "0" & b  Return "#" & r & g & b  End Function  '生成要寫處html文件的字符串，即html文件的內(nèi)容  Private Function toweb()Function toweb(ByVal w As Integer, ByVal h As Integer, ByVal pixel As Color(,)) As String  Dim html As String  html = "<html><head><title>傲風(fēng)圖像網(wǎng)頁生成</title></head><body bgcolor='#000000'><center>" & vbCrLf  Dim i, j  For i = 0 To h  For j = 0 To w  htmlhtml = html & "<font color='" & GetWEBColorinfo(pixel(j, i)) & "'>" & Int(Rnd(10) * 10) & Int(Rnd(10) * 10) & "</font>"  Next  htmlhtml = html & "<br>" & vbCrLf  Next  htmlhtml = html & "</center></body></html>"  Return html  End Function  '寫入文件函數(shù)  Private Function SaveTextFile()Function SaveTextFile(ByVal FilePath As String, ByVal FileContent As String) As Boolean  Dim sw As System.IO.StreamWriter  Try  sw = New System.IO.StreamWriter(FilePath, False)  sw.Write(FileContent)  Return True  Catch e As Exception  Return False  Finally  If Not sw Is Nothing Then sw.Close()  End Try  End Function

以上是“VB.NET中如何將圖像轉(zhuǎn)成HTML文件”這篇文章的所有內(nèi)容，感謝各位的閱讀！相信大家都有了一定的了解，希望分享的內(nèi)容對(duì)大家有所幫助，如果還想學(xué)習(xí)更多知識(shí)，歡迎關(guān)注創(chuàng)新互聯(lián)行業(yè)資訊頻道！

當(dāng)前文章：VB.NET中如何將圖像轉(zhuǎn)成HTML文件
轉(zhuǎn)載源于：http://www.rwnh.cn/article46/peojeg.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)頁設(shè)計(jì)公司、網(wǎng)站收錄、ChatGPT、建站公司、虛擬主機(jī)、App開發(fā)

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

猜你還喜歡下面的內(nèi)容

中文字幕日韩精品一区二区免费_精品一区二区三区国产精品无卡在_国精品无码专区一区二区三区_国产αv三级中文在线

VB.NET中如何將圖像轉(zhuǎn)成HTML文件