重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
这问题有点笼统,软糖来说说把:
创新互联公司是一家朝气蓬勃的网站建设公司。公司专注于为企业提供信息化建设解决方案。从事网站开发,网站制作,网站设计,网站模板,微信公众号开发,软件开发,小程序开发,10年建站对成都格栅板等多个行业,拥有丰富设计经验。
图像处理由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命名空间。
如满意,请采纳,谢谢。
这个是使用了PictrueBox控件。如果处理的图片比较多,您可以不使用控件,直接重写Form类的OnParint()方法,使用GDI+对图片进行绘制
Dim bitmap1 As New Bitmap("D:\image\0183.jpg")‘panel1.backgroundimage
Dim bitmap2 As New Bitmap(294, 294)’保存图,也就是绘制的大小。
Dim rect1 As New Rectangle(New Point, bitmap2.Size)‘昨天的问题,这里似乎写错了,当然也不算错,只是把新图(小图)扩展成原图大小(大图),这里改正为新图的原大小。
Dim rect2 As New Rectangle(New Point(6, 6), bitmap2.Size)
Dim g As Graphics = Graphics.FromImage(bitmap2)
e.Graphics.DrawImage(bitmap1, rect1, rect2, GraphicsUnit.Pixel)
g.DrawImage(bitmap1, rect1, rect2, GraphicsUnit.Pixel)
bitmap2.Save("d:\a.png", Drawing.Imaging.ImageFormat.Png)
基于具有 能处理 256色或 256色以上的视频适配器和显示驱动程序的系统, vb 可支持 256 种颜色。VB 中的颜色设置 界面上的彩色图形能够产生更强的视觉效果,因而越来越受到用户的重视。 在 Visual Basic 中,窗体、控件、图形以及文字信息都可以用不同的颜色显示。 对于所有的颜色属性和图形方法,每种颜色都由一个 Long 整数表示。对于多媒体应用程序, 或对于那些需要显示接近相片质量图 像的应用程序来说,具有同时显示 256 色的功能是特别有价值的。 第一种: 打开画图板,颜色里面调出你要的颜色以后,记下红绿蓝的数值 然后vb中用xxx.forecolor(或者backcolor之类)=rgb(红,绿,蓝) 这种办法好处就是很简单 不好之处就是不能在设计的时候更改 第二种: 打开画图板,调好颜色以后 记下红绿蓝 打开计算器 分别翻译成16进制 然后vb中用xxx.forecolor = H蓝绿红 例如蓝色255 16进制就是FF 红色0 16进制是0 绿色128 16进制是80 然后颜色就是HFF8000 (0要补齐) 第三种: 打开专业的制图软件(photoshop/fireworks) 直接获取16进制颜色 比如说#AABBCC 然后对应的VB种颜色就是HCCBBAA