十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
在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