13518219792
你要确定每个状态的大小是一样的才可以：
创新互联建站专注于肃南裕固族自治网站建设服务及定制，我们拥有丰富的企业做网站经验。 热诚为您提供肃南裕固族自治营销型网站建设，肃南裕固族自治网站制作、肃南裕固族自治网页设计、肃南裕固族自治网站官网定制、小程序定制开发服务，打造肃南裕固族自治网络公司原创品牌,更为您提供肃南裕固族自治网站排名全网营销落地服务。
Public Bitmap CutImage(ByVal start As Point, ByVal end As Point, ByVal b As Bitmap)
Dim f As New Bitmap(end.X - start.X + 1, end.Y - start.Y + 1)
For i As Integer = start.X To end.X + 1
For j As Integer = start.Y To end.Y + 1
Dim c As Color = b.GetPixel(i, j)
f.SetPixel(i - start.X, j - start.Y, c)
Next
Next
Return f
End Sub
这个函数就可以用于裁剪图像，返回裁剪后的图像，start是开始裁剪的位置，end是结束裁剪的位置，b是要裁剪的图像，假如你的这些按钮每个宽30，高20，你就可以用
PictureBox1.Image = CutImage(New Point(第n - 1个按钮 * 30, 0), New Point(第n个按钮 * 30, 20), 按钮存在的位图)
Clipboard.SetText()是方法，必须给它传递参数才能将内容保存在剪切板上。
Clipboard.SetText(TextBox1.Text);
SelectedText是只读属性，只能读取文本框内选定的内容，而不能对其赋值。
Clipboard.GetText()用于获得剪切板内的内容。如：
TextBox2.Text=Clipboard.GetText();
用位图对象的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
通过：
Clipboard.GetText
Clipboard.GetData
可以得到系统剪贴板的内容
如果剪贴板中的内容是文字，Clipboard.GetFormat(1)=True 。
获得文字直接用
Clipboard.GetText
获得图片可以用
Clipboard.GetData
设置文字直接用
Clipboard.SetText
设置图片可以用
Clipboard.SetData
清空
Clipboard.Clear
检测剪贴板中的内容
Clipboard.GetFormat(1)
返回True则文字
返回False则其他
最简单的，利用“print”键抓图，利用“绘图”截图后，保存为图片，在利用图形框装入图片，就行了。
这问题有点笼统，软糖来说说把：
图像处理由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命名空间。
如满意，请采纳，谢谢。
