重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
这问题有点笼统,软糖来说说把:
网站建设哪家好,找创新互联建站!专注于网页设计、网站建设、微信开发、重庆小程序开发、集团企业网站建设等服务项目。为回馈新老客户创新互联还提供了路南免费建站欢迎大家使用!
图像处理由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命名空间。
如满意,请采纳,谢谢。
保存前加一句 myImage2.SetResolution(300, 300) 你设置的bMape不是保存的主画布 所以无效,设置分辨率就是 SetResolution(X,Y)
有个程序叫做ClearType,如果你是win7的,那你一直使用ClearType。使用ClearType可以把字体变得平滑,否则变得浑厚。锐利应该是锐化字体,犀利...我也没见过这种样式的文字,有空再看。 firefox也有这种功能,可以取消或使用ClearType.
我的想法是:
先启用个人程序的ClearType(置于怎么使用,你去查下,我也不知道),然后GDI截取文字部分的图片,然后返回原来的ClearType状态,再输出图像.
Sub 图片缩放()
Dim SngPer As Single = 1 '放大或缩小的比例 放大2倍时SngPer=2,缩小3倍时 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
应该是边界溢出了,因为默认是0开始,所以 PictureBox1.Image.Width-1
同理PictureBox1.Image.Height - 1,不然行循环也会溢出