在access數(shù)據(jù)庫里將字段的類型設置為ole對象
成都創(chuàng)新互聯(lián)公司專注于璧山企業(yè)網(wǎng)站建設,成都響應式網(wǎng)站建設公司,商城網(wǎng)站建設。璧山網(wǎng)站建設公司,為璧山等地區(qū)提供建站服務。全流程按需設計網(wǎng)站,專業(yè)設計,全程項目跟蹤,成都創(chuàng)新互聯(lián)公司專業(yè)和態(tài)度為您提供的服務
Public img As Byte() '圖片處理用的字節(jié)數(shù)組
img=My.Computer.FileSystem.ReadAllBytes(filePath)'filePath是你圖片文件的路徑
剩下的就是數(shù)據(jù)庫插入操作了
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)
'向數(shù)據(jù)庫添加存儲了圖片數(shù)據(jù)的二進制數(shù)組
comm.Parameters.Add("@image",?_
OleDb.OleDbType.Binary,?img.Length).Value?=?img
If?cn.State?=?ConnectionState.Closed?Then?cn.Open()?'打開數(shù)據(jù)庫連接
comm.ExecuteNonQuery()?'執(zhí)行數(shù)據(jù)庫命令
If?cn.State?=?ConnectionState.Open?Then?cn.Close()?'關(guān)閉數(shù)據(jù)庫連接
MessageBox.Show("圖片成功保存到數(shù)據(jù)庫",?"完成",?MessageBoxButtons.OK,?MessageBoxIcon.Information)
點擊菜單“視圖” ---“工具箱”,或者按 Ctrl + Alt + X
這樣就可以看見工具箱了,里面有所有常用控件
這問題有點籠統(tǒng),軟糖來說說把:
圖像處理由System.Drawing命名空間負責。
主要是Bitmap類和Graphics類。
Bitmap表示一個位圖,可以是BMP,JPG,PNG等文件。
裝載位圖
Dim?位圖?As?Bitmap?=?Bitmap.FromFile("C:\Image1.PNG")
Graphics表示一張畫紙,能夠進行繪制操作。
它可以被窗體、控件、位圖調(diào)用CreateGraphics()方法來創(chuàng)建。
然后調(diào)用Graphics.Draw開頭的一系列函數(shù)來繪制圖像和圖形,F(xiàn)ill開頭的填充圖形。
創(chuàng)建畫紙并繪制位圖
Dim?畫紙?As?Graphics?=?Me.CreateGraphics()
畫紙.DrawImage(位圖,?100,?100,?256,?256)
可以將上面三行放到Form1_Load中測試,把路徑改一下,
還可以把Me改為能在上面繪圖的控件的名稱。
更多內(nèi)容請看MSDN的System.Drawing命名空間。
如滿意,請采納,謝謝。
難道我這VS安裝的盜版的?
你的意思就是
button不能設置背景圖片?
不可能吧?
你不要誤導我,哥。
回答:
不是不能設置背景圖片哈,關(guān)鍵是你要設置那個控件的背景圖片哈,這才是關(guān)鍵!比如說你要設置網(wǎng)頁的,那么就修改網(wǎng)頁的。如果要設置button的,就修改button的賽。
就是實現(xiàn)一個動態(tài)按鈕的效果,當鼠標移動到按鈕上,背景變換成另外一張圖
難道我這VS安裝的盜版的? 你的意思就是 button不能設置背景圖片? 不可能吧?? 你不要誤導我,哥。 回答: 不是不能設置背景圖片哈,關(guān)鍵是你要設置那個控件的背景圖片哈,這才是關(guān)鍵!比如說你要設置網(wǎng)頁的,那么就修改網(wǎng)頁的。如果要設置button的,就修改button的賽。 追問: 我就是要設置 botton 的背景圖片啊。。。 就是實現(xiàn)一個動態(tài)按鈕的效果,當鼠標移動到按鈕上,背景變換成另外一張圖
在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