這問(wèn)題有點(diǎn)籠統(tǒng),軟糖來(lái)說(shuō)說(shuō)把:
網(wǎng)站建設(shè)哪家好,找創(chuàng)新互聯(lián)建站!專(zhuān)注于網(wǎng)頁(yè)設(shè)計(jì)、網(wǎng)站建設(shè)、微信開(kāi)發(fā)、重慶小程序開(kāi)發(fā)、集團(tuán)企業(yè)網(wǎng)站建設(shè)等服務(wù)項(xiàng)目。為回饋新老客戶(hù)創(chuàng)新互聯(lián)還提供了路南免費(fèi)建站歡迎大家使用!
圖像處理由System.Drawing命名空間負(fù)責(zé)。
主要是Bitmap類(lèi)和Graphics類(lèi)。
Bitmap表示一個(gè)位圖,可以是BMP,JPG,PNG等文件。
裝載位圖
Dim?位圖?As?Bitmap?=?Bitmap.FromFile("C:\Image1.PNG")
Graphics表示一張畫(huà)紙,能夠進(jìn)行繪制操作。
它可以被窗體、控件、位圖調(diào)用CreateGraphics()方法來(lái)創(chuàng)建。
然后調(diào)用Graphics.Draw開(kāi)頭的一系列函數(shù)來(lái)繪制圖像和圖形,F(xiàn)ill開(kāi)頭的填充圖形。
創(chuàng)建畫(huà)紙并繪制位圖
Dim?畫(huà)紙?As?Graphics?=?Me.CreateGraphics()
畫(huà)紙.DrawImage(位圖,?100,?100,?256,?256)
可以將上面三行放到Form1_Load中測(cè)試,把路徑改一下,
還可以把Me改為能在上面繪圖的控件的名稱(chēng)。
更多內(nèi)容請(qǐng)看MSDN的System.Drawing命名空間。
如滿(mǎn)意,請(qǐng)采納,謝謝。
保存前加一句 myImage2.SetResolution(300, 300) 你設(shè)置的bMape不是保存的主畫(huà)布 所以無(wú)效,設(shè)置分辨率就是 SetResolution(X,Y)
有個(gè)程序叫做ClearType,如果你是win7的,那你一直使用ClearType。使用ClearType可以把字體變得平滑,否則變得渾厚。銳利應(yīng)該是銳化字體,犀利...我也沒(méi)見(jiàn)過(guò)這種樣式的文字,有空再看。 firefox也有這種功能,可以取消或使用ClearType.
我的想法是:
先啟用個(gè)人程序的ClearType(置于怎么使用,你去查下,我也不知道),然后GDI截取文字部分的圖片,然后返回原來(lái)的ClearType狀態(tài),再輸出圖像.
Sub 圖片縮放()
Dim SngPer As Single = 1 '放大或縮小的比例 放大2倍時(shí)SngPer=2,縮小3倍時(shí) SngPer=1/3
Dim PicOld As Image = Image.FromFile("原圖片路徑")
Dim PicNew As New System.Drawing.Bitmap(PicOld, PicOld.Width * SngPer, PicOld.Height * SngPer)
PicNew.Save("新圖片路徑", Drawing.Imaging.ImageFormat.Jpeg)
End Sub
應(yīng)該是邊界溢出了,因?yàn)槟J(rèn)是0開(kāi)始,所以 PictureBox1.Image.Width-1
同理PictureBox1.Image.Height - 1,不然行循環(huán)也會(huì)溢出