gp.DrawBezier(newpen, 10, 20, 70, 80, 123, 233, 23, 45)
End Sub
你也可以在一屏之内同时进行多次绘图，如下：
Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)
Dim i As Integer
Dim gp As Graphics = e.Graphics
For i = 1 To 10
Dim newpen As New Pen(color.FromARGB(i * 25, i * 25, i * 25), 5)
gp.DrawRectangle(newpen, 10 + i * 6, 20 + i * 6, 80, 80)
Next
运行一下，这个图片一定让你捧腹一笑，你可以随意改变参数看看有什么效果。
VB.Net中文站网址：http://vbnetcn.126.com
上一页 [1] [2]
Copyright ＠ 2007-2012 敏韬网(敏而好学，文韬武略--MinTao.Net)（学习笔记） Inc All Rights Reserved. 闵涛 E_mail:admin@mintao.net(欢迎提供学习资源)
鄂公网安备 42011102001154号
站长：MinTao ICP备案号：鄂ICP备11006601号-18
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
