教你如何制作VB.NET封面

开发 后端
封面是很重要的,这里就利用VB.NET封面制作出你喜爱的图案,文章有详细的代码设计,希望对大家有帮助。

在学校就是学软件开发的很自然的对于编程方面的语言都稍微的略之一二,对于VB.NET这门语言这种易学、易懂、界面友好漂亮的语言打上了交道。在编写的过程中当然遇到了许多的问题,这里将一些简单的小程序写下来与喜爱编程的朋友们分享。

#T#VB.NET封面的设计是这样的,先出现一窗体,上面为你喜欢的图案。然后出现一艘从左向右行驶着的船。屏幕上方从两侧分别移动出“欢迎”两个字。具体的制作方法是:把预先选好的背景图案装入封面窗体中,窗体命名为CAI。再分别在三个图像控件(image)中装入预先制作好的位图“欢”、“迎”和船型图案。然后把三个image放置在初始位置(即 图案刚在窗体出现时的位置),并把它们的可视属性都设置为“false”。VB.NET封面程序如下:

  1. Sub Form_load()  
  2. cai.Show ′显示封面窗体  
  3. Dim i ′定义变量  
  4. image3.visible=True ′船型图像控件出现  
  5. a1: If image3.Left < 6120 Then  
  6. ′6120为船移动到屏幕右边的坐标,此值可以随需要选取  
  7. image3.Move image3.Left+50  
  8. ′移动此图像控件如嫌移动慢,可改变移动值  
  9. Goto a1  
  10. End If  
  11. image1.visible=True ′“欢”字出现  
  12. a2: If image1.Left < 2120 Then  
  13. ′2120为“欢”字移动到屏幕中间的位置  
  14. image1.Move image1.Left+50 ′移动此图像控件  
  15. Goto a2  
  16. End If  
  17. image2.visible=True ′“迎”字出现  
  18. a3: If image2.Left > 5420 Then  
  19. ′5420为“迎”字移动到屏幕中间的位置  
  20. image2.Move image2.Left-50 ′移动此图像控件  
  21. Goto a3  
  22. End If  
  23. For i=1 To 10000  
  24. ′使窗体暂停一段时间时间长短可通过改变循环次数实现  
  25. Next i  
  26. menul.Show ′显示程序主窗体  
  27. Unload cai ′卸载封面窗体  
  28. End Sub 


以上就是一个关于VB.NET封面实现的程序,大家可以在机器上跑跑。

责任编辑:田树 来源: 博客
相关推荐

2009-11-10 14:43:34

VB.NET隐藏控件

2009-10-16 09:35:24

VB.NET制作透明窗

2009-11-03 11:40:37

VB.NET共享变量

2010-01-11 14:28:14

VB.NET操作Exc

2009-11-10 14:30:33

VB.NET多窗体

2009-11-02 11:02:58

VB.NET XML文

2009-11-10 11:30:12

VB.NET循环语句

2011-05-20 16:49:21

VB.NET

2010-01-22 17:55:23

VB.NET语法糖

2010-01-22 16:27:19

VB.NET关于对话框

2009-10-28 16:10:16

VB.NET程序

2009-11-02 15:33:53

VB.NET Data

2009-10-26 09:11:52

VB.NET基础教程

2011-06-17 11:05:22

VB.NET

2009-06-24 15:45:32

VB.NET

2010-01-08 15:33:57

VB.NET文字宽度计

2009-10-29 14:02:24

VB和VB.NET比较

2009-10-28 14:51:33

VB.NET设计制作窗

2010-01-12 09:51:07

VB.NET操作dbf

2009-10-14 12:51:41

VB.NET Data
点赞
收藏

51CTO技术栈公众号