Question

做了个vb程序，显示图片每个像素点的RGB。 求将每个点的输出信息存入数据库中

完全不知道数据库是什么

Answer 1

access数据库？还是sql数据库？

追问

随意

追答

Private Sub Form_Load()
    Picture1.Picture = LoadPicture(App.Path & "\1.jpg")
    Text7.Text = Picture1.Width
    Text8.Text = Picture1.Height
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Text1 = X
    Text2 = Y
    Text3 = Point(X, Y)
    Text4 = (Val(Text3) Mod 65536) Mod 256 'Red
    Text5 = (Val(Text3) Mod 65536) \ 256 'Green
    Text6 = Val(Text3) \ 65536 'Blue
    Shape1.FillColor = RGB(Val(Text4), Val(Text5), Val(Text6))
End Sub

'PictureBox判色代码:

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Text1 = X
    Text2 = Y
    Text3 = Picture1.Point(X, Y)
    Text4 = (Val(Text3) Mod 65536) Mod 256 'Red
    Text5 = (Val(Text3) Mod 65536) \ 256 'Green
    Text6 = Val(Text3) \ 65536 'Blue
    Shape1.FillColor = RGB(Val(Text4), Val(Text5), Val(Text6))
End Sub

这个是取颜色的代码