vb.net图片变换 VB窗体图片转换

在VB.net中如何将图片转换成二进制保存到Accees中

在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)

vb.net 2008 我想实现4张图片自动切换,怎么做?picture控件和timer控件,我不知道在工具栏哪里。

点击菜单“视图” ---“工具箱”,或者按 Ctrl + Alt + X

这样就可以看见工具箱了,里面有所有常用控件

Vb.net怎么实现图像的处理

这问题有点笼统,软糖来说说把:

图像处理由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命名空间。

如满意,请采纳,谢谢。

vb.net 怎样设置背景图片,也就是一个动态按钮效果!

难道我这VS安装的盗版的?

你的意思就是

button不能设置背景图片?

不可能吧?

你不要误导我,哥。

回答:

不是不能设置背景图片哈,关键是你要设置那个控件的背景图片哈,这才是关键!比如说你要设置网页的,那么就修改网页的。如果要设置button的,就修改button的赛。

就是实现一个动态按钮的效果,当鼠标移动到按钮上,背景变换成另外一张图

谁知道vb.net 怎样设置背景图片,也就是一个动态按钮效果!

难道我这VS安装的盗版的? 你的意思就是 button不能设置背景图片? 不可能吧?? 你不要误导我,哥。 回答: 不是不能设置背景图片哈,关键是你要设置那个控件的背景图片哈,这才是关键!比如说你要设置网页的,那么就修改网页的。如果要设置button的,就修改button的赛。 追问: 我就是要设置 botton 的背景图片啊。。。 就是实现一个动态按钮的效果,当鼠标移动到按钮上,背景变换成另外一张图

[vb.net]如何让PictureBox中的图片随着RadioButton的checked与否而变化

在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


网站标题:vb.net图片变换 VB窗体图片转换
标题链接:http://pwwzsj.com/article/doogosh.html