Shulou(Shulou.com)06/02 Report--

This article mainly shows you "how to convert an image into a HTML file in VB.NET", which is easy to understand and clear. I hope it can help you solve your doubts. Let me lead you to study and learn about "how to convert an image into a HTML file in VB.NET".

The VB.NET code with the same function is written in vb.net.

The function implementation is mainly applied to system.drawing.bitmap, and its method getpixel ()

The main VB.NET code is as follows:

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") 'read an image file Dim w, h As Integer w = bit.Width-1' get the number of pixels per line of the image h = bit.Height-1 'get the number of lines of the image Dim pixel As System.Drawing.Color ( ) 'define a two-dimensional array of type system color To store the color information of all the image systems pixel = New System.Drawing.Color (w, h) {} 'redefine the array subscript Dim I, j' using a loop to store the color information of all the pixels of the image into the array For I = 0 To w pixel (j, I) = bit.GetPixel (j) I) Next Next Dim content As String 'defines a string to store the content to be written to html content = toweb (w, h, pixel)' generate content written to html Dim y As Boolean 'defines a logical variable to determine whether to write successfully y = SaveTextFile ("c:\ 999.htm", content)' write html file If y Then MsgBox ("ok!") End Sub 'get a corresponding WEB code of RGB information Private Function GetWEBColorinfo () Function GetWEBColorinfo (ByVal x As Color) As String Dim r, g, b As String r = Hex (CInt (x.R))' get R information in pixel color information, convert it to hexadecimal and save as string type g = Hex (CInt (x.G))'to get R information in pixel color information. Convert to hexadecimal and save as string type b = Hex (CInt (x.B)) 'get the R information in a pixel color information, convert it to hexadecimal and save it as string type' if it is less than two digits, add 0 in front. Because the WEB color representation should be # + R (two-bit hexadecimal) + G (two-bit hexadecimal) + B (two-bit hexadecimal) 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 'generates a string to be written in the html file That is, the content of the html file Private Function toweb () Function toweb (ByVal w As Integer, ByVal h As Integer, ByVal pixel As Color (,)) As String Dim html As String html = "proud image web page generation" & vbCrLf Dim i, j For i = 0 To h For j = 0 To w htmlhtml = html & "& Int (Rnd (10) * 10) & Int (Rnd (10) * 10) &"Next htmlhtml = html &"

"& vbCrLf Next htmlhtml = html &"Return html End Function 'writes the file function 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 above is all the content of the article" how to convert an image into a HTML file in VB.NET " Thank you for reading! I believe we all have a certain understanding, hope to share the content to help you, if you want to learn more knowledge, welcome to follow the industry information channel!

Welcome to subscribe "Shulou Technology Information " to get latest news, interesting things and hot topics in the IT industry, and controls the hottest and latest Internet news, technology news and IT industry trends.