新网创想网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
可以啊
创新互联公司致力于互联网网站建设与网站营销,提供成都网站建设、网站制作、网站开发、seo优化、网站排名、互联网营销、小程序设计、公众号商城、等建站开发,创新互联公司网站建设策划专家,为不同类型的客户提供良好的互联网应用定制解决方案,帮助客户在新的全球化互联网环境中保持优势。
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运动,可以换成你需要的运动轨迹)
新建一个Sub : Main
Private Sub Main()
xxx.show 'xxx指启动窗体
'载入图片、数据库之类的
Unload xxx
{from}.show '{from}指主界面
End Sub
然后在工程-属性将"Main"作为启动对象
把启动窗体先显示出来,然后,过一段时间再把这个窗体隐藏起来就行了。在其他窗体中加一句form1.visible=false
然后启动窗体把标题栏什么的设置一下,做个图片背景什么的,就行了。