vb点虐 图片编辑 vbs图片代码

请问vb点虐 2015的裁剪图片的程序要怎么写？

用位图对象的Clone 方法就可以获取图片某个区域成一个新的位图对象，下面例子：

成都创新互联公司是一家集网站建设,鄂城企业网站建设,鄂城品牌网站建设,网站定制,鄂城网站建设报价,网络营销,网络优化,鄂城网站推广为一体的创新建站企业，帮助传统企业提升企业形象加强企业竞争力。可充分满足这一群体相比中小企业更为丰富、高端、多元的互联网需求。同时我们时刻保持专业、时尚、前沿，时刻以成就客户成长自我，坚持不断学习、思考、沉淀、净化自己，让我们为更多的企业打造出实用型网站。

Private Sub Form1_Click(sender As Object, e As EventArgs) Handles Me.Click

Dim img As New Bitmap("d:\015.jpg")

Dim rc As Rectangle = New Rectangle(500, 500, 600, 600)   '起点和长宽

Dim newImg As Bitmap = img.Clone(rc, Imaging.PixelFormat.Format32bppArgb)

Me.CreateGraphics.DrawImage(newImg, 0, 0)

End Sub

vb点虐 picturebox 图片编辑问题

这不是参数 picture1 是picturebox控件的名称 ，你从工具箱里拖一个picturebox控件 默认的名称就是picture1 不过看代码应该是vb6的代码 而非vb点虐

Vb点虐 怎么实现图像的处理

这问题有点笼统，软糖来说说把：

图像处理由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命名空间。

如满意，请采纳，谢谢。