重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
这篇文章主要讲解了“制作VB.NET封面的方法”,文中的讲解内容简单清晰,易于学习与理解,下面请大家跟着小编的思路慢慢深入,一起来研究和学习“制作VB.NET封面的方法”吧!
宜丰网站制作公司哪家好,找创新互联公司!从网页设计、网站建设、微信开发、APP开发、成都响应式网站建设公司等网站项目制作,到程序开发,运营维护。创新互联公司于2013年创立到现在10年的时间,我们拥有了丰富的建站经验和运维经验,来保证我们的工作的顺利进行。专注于网站建设就选创新互联公司。
在学校就是学软件开发的很自然的对于编程方面的语言都稍微的略之一二,对于VB.NET这门语言这种易学、易懂、界面友好漂亮的语言打上了交道。在编写的过程中当然遇到了许多的问题,这里将一些简单的小程序写下来与喜爱编程的朋友们分享。
VB.NET封面的设计是这样的,先出现一窗体,上面为你喜欢的图案。然后出现一艘从左向右行驶着的船。屏幕上方从两侧分别移动出“欢迎”两个字。具体的制作方法是:把预先选好的背景图案装入封面窗体中,窗体命名为CAI。再分别在三个图像控件(image)中装入预先制作好的位图“欢”、“迎”和船型图案。然后把三个image放置在初始位置(即 图案刚在窗体出现时的位置),并把它们的可视属性都设置为“false”。VB.NET封面程序如下:
Sub Form_load() cai.Show ′显示封面窗体 Dim i ′定义变量 image3.visible=True ′船型图像控件出现 a1: If image3.Left < 6120 Then ′6120为船移动到屏幕右边的坐标,此值可以随需要选取 image3.Move image3.Left+50 ′移动此图像控件如嫌移动慢,可改变移动值 Goto a1 End If image1.visible=True ′“欢”字出现 a2: If image1.Left < 2120 Then ′2120为“欢”字移动到屏幕中间的位置 image1.Move image1.Left+50 ′移动此图像控件 Goto a2 End If image2.visible=True ′“迎”字出现 a3: If image2.Left > 5420 Then ′5420为“迎”字移动到屏幕中间的位置 image2.Move image2.Left-50 ′移动此图像控件 Goto a3 End If For i=1 To 10000 ′使窗体暂停一段时间时间长短可通过改变循环次数实现 Next i menul.Show ′显示程序主窗体 Unload cai ′卸载封面窗体 End Sub
以上就是一个关于VB.NET封面实现的程序,大家可以在机器上跑跑。
感谢各位的阅读,以上就是“制作VB.NET封面的方法”的内容了,经过本文的学习后,相信大家对制作VB.NET封面的方法这一问题有了更深刻的体会,具体使用情况还需要大家实践验证。这里是创新互联,小编将为大家推送更多相关知识点的文章,欢迎关注!