教你如何制作VB.NET封面

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

#T#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封面实现的程序，大家可以在机器上跑跑。