在access数据库里将字段的类型设置为ole对象
成都创新互联公司专注于璧山企业网站建设,成都响应式网站建设公司,商城网站建设。璧山网站建设公司,为璧山等地区提供建站服务。全流程按需设计网站，专业设计，全程项目跟踪，成都创新互联公司专业和态度为您提供的服务
Public img As Byte() '图片处理用的字节数组
img=My.Computer.FileSystem.ReadAllBytes(filePath)'filePath是你图片文件的路径
剩下的就是数据库插入操作了
Dim cn As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Data.mdb")
Dim comm As OleDb.OleDbCommand
comm = New OleDb.OleDbCommand( _
"INSERT INTO Photo(BuFan_F,PhotoNo,Photo) Values('" Me.CobBuFan.Text.Trim "','" Me.txtNo.Text.Trim "',@image)", cn)
'向数据库添加存储了图片数据的二进制数组
comm.Parameters.Add("@image", _
OleDb.OleDbType.Binary, img.Length).Value = img
If cn.State = ConnectionState.Closed Then cn.Open() '打开数据库连接
comm.ExecuteNonQuery() '执行数据库命令
If cn.State = ConnectionState.Open Then cn.Close() '关闭数据库连接
MessageBox.Show("图片成功保存到数据库", "完成", MessageBoxButtons.OK, MessageBoxIcon.Information)
点击菜单“视图” ---“工具箱”，或者按 Ctrl + Alt + X
这样就可以看见工具箱了，里面有所有常用控件
这问题有点笼统，软糖来说说把：
图像处理由System.Drawing命名空间负责。
主要是Bitmap类和Graphics类。
Bitmap表示一个位图，可以是BMP,JPG,PNG等文件。
装载位图
Dim 位图 As Bitmap = Bitmap.FromFile("C:\Image1.PNG")
Graphics表示一张画纸，能够进行绘制操作。
它可以被窗体、控件、位图调用CreateGraphics()方法来创建。
然后调用Graphics.Draw开头的一系列函数来绘制图像和图形，Fill开头的填充图形。
创建画纸并绘制位图
Dim 画纸 As Graphics = Me.CreateGraphics()
画纸.DrawImage(位图, 100, 100, 256, 256)
可以将上面三行放到Form1_Load中测试，把路径改一下，
还可以把Me改为能在上面绘图的控件的名称。
更多内容请看MSDN的System.Drawing命名空间。
如满意，请采纳，谢谢。
难道我这VS安装的盗版的？
你的意思就是
button不能设置背景图片？
不可能吧？
你不要误导我，哥。
回答：
不是不能设置背景图片哈，关键是你要设置那个控件的背景图片哈，这才是关键！比如说你要设置网页的，那么就修改网页的。如果要设置button的，就修改button的赛。
就是实现一个动态按钮的效果，当鼠标移动到按钮上，背景变换成另外一张图
难道我这VS安装的盗版的？ 你的意思就是 button不能设置背景图片？ 不可能吧？？ 你不要误导我，哥。 回答： 不是不能设置背景图片哈，关键是你要设置那个控件的背景图片哈，这才是关键！比如说你要设置网页的，那么就修改网页的。如果要设置button的，就修改button的赛。 追问： 我就是要设置 botton 的背景图片啊。。。 就是实现一个动态按钮的效果，当鼠标移动到按钮上，背景变换成另外一张图
在vb2005编写
private sub form_load(......)
picturebox1.image=image.formfile ("....resources\a.wmf")
end sub
private sub radiobutton1_checkedchanged(....)
picturebox1.image=image.formfile ("....resources\a.wmf")
end sub
private sub radiobutton2_checkedchanged(....)
picturebox1.image=image.formfile ("....resources\b.wmf")
end sub
