大橙子网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
用位图对象的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则其他
用位图对象的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