vb點虐 圖像源碼 vbnet圖像處理

vb點虐 的picturebox控件用代碼可以支持調(diào)用png和jpg兩種格式圖片并顯示代碼怎么寫？

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

成都服務器托管，成都創(chuàng)新互聯(lián)公司提供包括服務器租用、德陽電信服務器托管、帶寬租用、云主機、機柜租用、主機租用托管、CDN網(wǎng)站加速、域名注冊等業(yè)務的一體化完整服務。電話咨詢：13518219792

PictureBox1.Image = Image.FromFile("D:\python\001.jpg")

PictureBox2.Image = Image.FromFile("D:\python\001.png")

End Sub

VB點虐 如何將bmp圖片生成字模數(shù)組。好方便單片機生成圖像。最好能給個源碼，謝謝

BMP圖像文件，并在VC + +環(huán)境下的GIF圖像文件轉(zhuǎn)換。首先分析了的BMP和GIF2圖像格式，然后在VC + +環(huán)境下建立自己的庫文件DIB.H和DIB.CPP，初始化的數(shù)據(jù)成員和函數(shù)成員使用，以實現(xiàn)BMP圖像的讀取，顯示和保存操作。理解的原則，基于LZW編碼算法的算法，在VC + +。同時，通過先前建立的在BMP圖像庫中，該相關函數(shù)被調(diào)用時，它可以找到對應的特定的圖像數(shù)據(jù)，從而BMP圖像數(shù)據(jù)被轉(zhuǎn)換成一個GIF圖象數(shù)據(jù)由LZW編碼，圖像格式轉(zhuǎn)換

vb點虐 中,在sql server2000數(shù)據(jù)庫中插入圖片，最好有源碼，有懂的朋友可以家我QQ1971951508

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

ExeDMLSQL()

End Sub

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

Dim strsql As String = "select * from 產(chǎn)品圖片 where 序號=1"

Dim objcommand As New SqlCommand(strsql, New SqlConnection(connection))

objcommand.Connection.Open()

Dim myreader As SqlDataReader = objcommand.ExecuteReader()

If myreader.Read() Then

Dim imgInfo() As Byte = myreader("圖片")

Dim memoryStream As New MemoryStream(imgInfo)

PictureBox1.Image = Image.FromStream(memoryStream)

End If

End Sub

Private Sub ExeDMLSQL()

Dim st As New FileStream("D:\1.png", FileMode.Open, FileAccess.Read)

Dim mbr As New BinaryReader(st)

Dim buffer(st.Length) As Byte

mbr.Read(buffer, 0, CInt(st.Length))

st.Close()

InsertImage(buffer)

End Sub

Private Sub InsertImage(ByVal buffer() As Byte)

Dim cn As New SqlConnection(connection)

cn.Open()

Dim cmd As New SqlCommand("SaveImg", cn)

cmd.CommandType = CommandType.StoredProcedure

cmd.Parameters.Add("@name", SqlDbType.VarChar).Value = 1

cmd.Parameters.Add("@image", SqlDbType.Image).Value = buffer

cmd.ExecuteNonQuery()

MsgBox("Image inserted.")

cn.Close()

End Sub

SaveImg是一個存儲過程:

ALTER PROCEDURE dbo.SaveImg

@name AS int,

@image AS IMAGE

AS

INSERT INTO 產(chǎn)品圖片 (序號, 圖片)

VALUES (@name, @image)

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

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

Internet資源建立持久連接。

Dim reader As StreamReader = _

New StreamReader(httpResp.GetResponseStream,

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

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

分享標題：vb點虐 圖像源碼 vbnet圖像處理
文章位置：http://m.jiaotiyi.com/article/ddsceee.html