十年網(wǎng)站開發(fā)經(jīng)驗 + 多家企業(yè)客戶 + 靠譜的建站團隊
量身定制 + 運營維護+專業(yè)推廣+無憂售后,網(wǎng)站問題一站解決
新建一個工程,在Form1雙擊,編寫:
成都創(chuàng)新互聯(lián)公司是專業(yè)的平泉網(wǎng)站建設(shè)公司,平泉接單;提供網(wǎng)站制作、成都網(wǎng)站建設(shè),網(wǎng)頁設(shè)計,網(wǎng)站設(shè)計,建網(wǎng)站,PHP網(wǎng)站建設(shè)等專業(yè)做網(wǎng)站服務(wù);采用PHP框架,可快速的進行平泉網(wǎng)站開發(fā)網(wǎng)頁制作和功能擴展;專業(yè)做搜索引擎喜愛的網(wǎng)站,專業(yè)的做網(wǎng)站團隊,希望更多企業(yè)前來合作!
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim bmp As New Bitmap(1024,768)'這跟你的電腦分辨率有關(guān),要更改
Dim gs As Graphics = Graphics.FromImage(bmp)
gs.CopyFromScreen(0, 0, 0, 0, New Size(1024, 768))'這跟你的電腦分辨率有關(guān),要更改
bmp.Save("C:\myBmp.bmp")
End Sub
把它弄到開始菜單,一打開,桌面就被截了。
將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)
我理解你
我寫過圖片網(wǎng)絡(luò)傳輸?shù)暮湍阋蟮囊粯?/p>
為了不把圖片寫到硬盤 又從硬盤讀取
而直接保存圖片內(nèi)存流 進行網(wǎng)絡(luò)傳輸
從網(wǎng)絡(luò)讀取的圖片byte數(shù)組轉(zhuǎn)成圖片代碼如下
Dim mStream As New IO.MemoryStream
mStream.Write(b, 0, b.length) '這里b就是你的一維數(shù)組了
Dim Img As New Bitmap(mStream)
mStream.Close()
mStream.Dispose()
下面是把圖片保存到一維數(shù)組的方法
Dim Stream As New IO.MemoryStream
im.Save(Stream, System.Drawing.Imaging.ImageFormat.Jpeg)
im = Nothing
Stream.Flush()
Dim b As Byte() = Stream.ToArray
Stream.Dispose()
用二進制方式讀取BMP文件,BMP的前54字節(jié)里面有BMP文件的所有信息,長寬等等都有,得到長寬了,刨掉一半就OK啦