數據庫里面記錄下圖片的路徑,然后儲存文件名,加載的時候前面加上相對路徑
公司主營業務:成都網站建設、網站制作、移動網站開發等業務。幫助企業客戶真正實現互聯網宣傳,提高企業的競爭能力。成都創新互聯公司是一支青春激揚、勤奮敬業、活力青春激揚、勤奮敬業、活力澎湃、和諧高效的團隊。公司秉承以“開放、自由、嚴謹、自律”為核心的企業文化,感謝他們對我們的高要求,感謝他們從不同領域給我們帶來的挑戰,讓我們激情的團隊有機會用頭腦與智慧不斷的給客戶帶來驚喜。成都創新互聯公司推出隆陽免費做網站回饋大家。
實現代碼如下:
Dim img As Image = Image.FromFile("D:\Image\tstImage.jpg") 'tstImage是原先的圖片
Dim grfx As Graphics = Me.CreateGraphics
grfx.DrawImage(img, 0, 0, img.Width * 3, img.Height * 3) '在Form里顯示
Dim imgnew As New System.Drawing.Bitmap(img, img.Height * 3, img.Width * 3) '新襪笑建一個放大的圖片
imgnew.Save("D:\Image\tstNewImage.jpg", System.Drawing.Imaging.ImageFormat.Jpeg) '保存放大后圖片
你可以建一個Form,然后鬧好燃在Form里拖進一個Button,把上面的代碼放在Button_Click事件里面,執行就行了。
對上面代碼的解釋:
1.要獲取Graphics對液虛象只能從某一事件的參數中獲取或者使用窗體和控件對象的CreateGraphics方法來獲取-----上面代碼使用Me.CreateGraphics來引用這個對象。
2.加載一個圖片用Image類的FromFile或者FromStream方法
3.用DrawImage來顯示一個圖片,該方法有30多個重載方法,可以查MSDN了解細節。
4.保存時的一個問題:我們必須先建一個對象,用于存縮放圖像。
將PictureBox控件里的圖片芹派,保存為文件:嫌枯賀
1,文件格式不變化:
PictureBox1.Image.Save("C:\" Format(Now, "HH-mm-ss") ".bmp")
2,文件格式有變敗卜化:
PictureBox1.Image.Save("C:\" Format(Now, "HH-mm-ss") ".bmp", System.Drawing.Imaging.ImageFormat.Bmp)
一個參考過程,你試試 這里寫下一個過程為: insert into pub_infor values('1234',0x,'this is a sample') 然后讀入圖片: sp_textcopy @srvname = '.', @login = 'sa', @password = 'sa', @dbname = 'pubs', @tbname = 'pub_info', @colname = 'logo', @filename = 'c:\picture.bmp', @whereclause = " WHERE pub_id='1234' ", @direction = 'I' 讀出為: sp_textcopy @srvname = '.', @login = 'sa', @password = 'sa', @dbname = 'pubs', @tbname = 'pub_info', @colname = 'logo', @filename = 'D:\picture.bmp', @whereclause = " WHERE pub_id='1234' ", @direction = 'O' 清空:update 表 set 列=null 最后注意事項:因為filename的字符長度只有30個:即: @filename varchar (30), 所以實際應用的時候最好改為255個,當含有比較長的路徑的時候就會報錯: ERROR: Augment 'xxx' unrecognize 還有參數的長度@exec_str varchar (255)也修改下比較好: 我改成了這樣子:碼行攜 CREATE PROCEDURE sp_textcopy ( @srvname varchar (30), @login varchar (30), @password varchar (30), @dbname varchar (30), @tbname varchar (30), @colname varchar (30), @filename varchar (255), @whereclause varchar (40), @direction char(1)) AS DECLARE @exec_str varchar (400) SELECT @exec_str = 'textcopy /S ' + @srvname + ' /U ' + @login + ' /P ' + @password + ' /D ' + @dbname + ' /T ' + @tbname + ' /C ' + @colname + ' /W "' + @whereclause + '" /F ' + @filename + ' /' + @direction EXEC master..xp_cmdshell @exec_str 就只這樣子了,感覺上T_SQL編程還是挺強大的,有時間帶臘應該好好學習下。 回答: 這里以SQL_server2000中的pubs數據庫中的pub_info表為例來說說其中的過程:pub_info表包含:pub_id,logo,pr_info,其中logo屬于image超長字段,應用存儲過程獎圖像存儲在數據庫的步驟包括: 1:首先:是插入一個列: 比如:insert into pub_infor values('1234',0x,'this is a sample')其中0x只是為了確保image字段不能為空:因為下面的存儲過程:textcopy 用textcopy把圖片或遲伏者文件拷貝到image類型字段之前,image類型的字段不能為空。先插入0x(或者0x0)到這個字段,然后就可以用textcopy了。 否則就會報這樣的錯誤: ERROR: Text or image pointer and timestamp retrieval failed. 2:接下來建立存儲過程: CREATE PROCEDURE sp_textcopy ( @srvname varchar (30), @login varchar (30), @password varchar (30), @dbname varchar (30), @tbname varchar (30), @colname varchar (30), @filename varchar (30), @whereclause varchar (40), @direction char(1)) AS DECLARE @exec_str varchar (255) SELECT @exec_str = 'textcopy /S ' + @srvname + ' /U ' + @login + ' /P ' + @password + ' /D ' + @dbname + ' /T ' + @tbname + ' /C ' + @colname + ' /W "' + @whereclause + '" /F ' + @filename + ' /' + @direction EXEC master..xp_cmdshell @exec_str 說明: 其中xp_cmdshell: 以操作系統命令行解釋器的方式執行給定的命令字符串,并以文本行方式返回任何輸出。授予非管理用戶執行 xp_cmdshell 的權限。我自己的理解是: textcopy就像是一個dos命令:就是說實際的文件copy命令是類似操作系統執行的。
采納哦
本文題目:vb點虐
圖片存儲 vb 保存圖片
文章位置:http://m.newbst.com/article24/ddpioje.html
成都網站建設公司_創新互聯,為您提供App設計、域名注冊、靜態網站、定制網站、網站營銷、商城網站
聲明:本網站發布的內容(圖片、視頻和文字)以用戶投稿、用戶轉載內容為主,如果涉及侵權請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網站立場,如需處理請聯系客服。電話:028-86922220;郵箱:631063699@qq.com。內容未經允許不得轉載,或轉載時需注明來源: 創新互聯