各位，打搅了，问大家一个不知道算不算难的问题

[inocentboy]

在vb中如何从一幅bmp图片中一次读取所有像素的颜色矩阵，而不是用point方式逐点读取，如果可以这样，又有什么方法可以将处理好的颜色矩阵存为bmp图片，还有如何将颜色矩阵一次调出显示到picturebox控件上，而不是用pset方法一个点一个点的写上去。谢谢！

[rainstormmaster]

参考：
http://expert.csdn.net/Expert/topic/1538/1538596.xml?temp=.9201166

[coolboy0000love]

Private Sub Image1_Click()
Dim rs As New ADODB.Recordset
Dim Rss As New ADODB.Stream
Dim cnn As ADODB.Connection
Dim cnstr As String
cnstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + "g:/vb/student.mdb;Mode=ReadWrite;Persist Security Info=False"
Set cnn = New ADODB.Connection
cnn.Open cnstr
rs.Open "select * from [user]", cnn, adOpenStatic, adLockOptimistic
Rss.Type = adTypeBinary
Rss.Open
Rss.LoadFromFile "g:/vb/4.jpg"
rs.AddNew
rs.Fields("xingming") = "PICTURE"
rs.Fields("zhaopian") = Rss.Read
rs.Update
rs.Close
cnn.Close
End Sub

[NotReady]

Private Sub Image1_Click()
Dim rs As New ADODB.Recordset
Dim Rss As New ADODB.Stream
Dim cnn As ADODB.Connection
Dim cnstr As String
cnstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + "g:/vb/student.mdb;Mode=ReadWrite;Persist Security Info=False"
Set cnn = New ADODB.Connection
cnn.Open cnstr
rs.Open "select * from [user]", cnn, adOpenStatic, adLockOptimistic
Rss.Type = adTypeBinary
Rss.Open
Rss.LoadFromFile "g:/vb/4.jpg"
rs.AddNew
rs.Fields("xingming") = "PICTURE"
rs.Fields("zhaopian") = Rss.Read
rs.Update
rs.Close
cnn.Close
End Sub

[iget]

俺不会 帮你喊一下 看看有没有人！

来人哪~~~~~~~~~~~