重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
嗯,这个我看见xin3721视频教程网上有,是李天生老师主讲的,建议你自己去看看。
成都创新互联公司专注于企业营销型网站建设、网站重做改版、墨竹工卡网站定制设计、自适应品牌网站建设、H5技术、商城网站建设、集团公司官网建设、成都外贸网站建设公司、高端网站制作、响应式网页设计等建站业务,价格优惠性价比高,为墨竹工卡等各大城市提供网站开发制作服务。
isual Basic.net2010从入门到精通视频教程 —本套教程由李天生老师亲自授课录制,继VB6.0后,发布的VB.net可以说是具有划时代意义的产品,其在保留原有易用性的基础上,高速增强其功能。现如今用VB.net来开发的软件产品完全可以与C++、Java相抗衡。最新版本的Visual Basic 2010,其功能的强大,可以说是有史以来最强悍版本,也是一套可以与任何一套编程语言相媲美的产品。在国外,更是受前所未有欢迎。
我买了,低价转让给你。QQ:270678911
VB.net与VB不同。
VB.net已经有专门绘图的类。
可以定义笔刷然后用Drawing类中的方法绘制。
Private Sub DrawEllipse()
Dim myPen As New System.Drawing.Pen(System.Drawing.Color.Red)
Dim formGraphics as System.Drawing.Graphics
formGraphics = Me.CreateGraphics()
formGraphics.DrawEllipse(myPen, New Rectangle(0,0,200,300))
myPen.Dispose()
formGraphics.Dispose()
End Sub
Private Sub DrawRectangle()
Dim myPen As New System.Drawing.Pen(System.Drawing.Color.Red)
Dim formGraphics as System.Drawing.Graphics
formGraphics = Me.CreateGraphics()
formGraphics.DrawRectangle(myPen, New Rectangle(0,0,200,300))
myPen.Dispose()
formGraphics.Dispose()
End Sub
可以啊
me_paint 事件中添加画图语句
me.creategraphic.drawellipse(pen,center,r,r)
center 是圆心位置point 类型数据
添加一个timer控件 控制动画
在控件的tick事件中添加语句
center.x+=1
center.y=center.x * 10+50
me.invalidate '(以一次函数y=10x+50运动,可以换成你需要的运动轨迹)
谷歌搜索"VB2008视频教程(枕善居#6/9)“,这是vb2008,是光盘镜像格式,用虚拟光驱加载就行了。
我也是初级学者 有兴趣的话加我QQ吧 178831114 大家可以交流交流 互相学习