picArea.Image = Image.FromFile(Application.StartupPath "\Images\default.png")
创新互联专注为客户提供全方位的互联网综合服务,包含不限于网站制作、成都网站设计、新会网络推广、成都小程序开发、新会网络营销、新会企业策划、新会品牌公关、搜索引擎seo、人物专访、企业宣传片、企业代运营等,从售前售中售后,我们都将竭诚为您服务,您的肯定,是我们最大的嘉奖;创新互联为所有大学生创业者提供新会建站搭建服务,24小时服务热线:13518219792,官方网址:www.cdcxhl.com
Dim mybitmap As Bitmap
'mybitmap = New Bitmap(picArea.Width, picArea.Height)//你这样是创建了一个空白的底片
mybitmap = New Bitmap(picArea.Image) '这才是利用了图片的背景
picArea.Image = mybitmap
Dim Graph As Graphics = picArea.CreateGraphics
Graph = Graphics.FromImage(picArea.Image)
Graph.DrawLine(Pens.Blue, 0, 0, 111, 111)
Graph.DrawLine(Pens.Red, 111, 111, 200, 0)
绘图是系统内部操作的,不需要懂原理
方法就在那里,只有会用和不会用,你的代码告诉它绘制,它就会绘制。它(方法)究竟如何去绘制的并不是重点,反正它会绘制。
drawline(绘线)方法很简单,第一个参数是pen,它确定线条的颜色、宽度和样式。第二、第三个参数都是point类型,确定两个点的位置,绘制直线。
[{"word":"VB.NET画直线方法\n该方法绘制一条连接由坐标对指定的两个点的线条,所以我们需要指定这两个点的坐标,如下所示、\nDrawL in e(pen,x1.y1,x2,y2)或者DrawL in e(pen,Po in t1,Poin t2)\n下面示例将在PictureBox控件表面绘制一条直线、\nDim g As\nGraphics=Me.PictureBox\n1.CreateGraphics\nDim mpen As New\nPen(Color.Red)g.DrawLin e(mpen,0,80,0,160)\n也可以使用如下代码来实现一样的甲\n__\n"}]