教你如何制作VB.NET封面

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

创新互联是一家专注于网站建设、网站设计与策划设计,黑龙江网站建设哪家好?创新互联做网站,专注于网站建设十年,网设计领域的专业建站公司;建站业务涵盖:黑龙江等地区。黑龙江做网站价格咨询:13518219792

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

网页名称：教你如何制作VB.NET封面
文章转载：http://www.mswzjz.cn/qtweb/news11/290211.html

攀枝花网站建设、攀枝花网站运维推广公司-贝锐智能，是专注品牌与效果的网络营销公司；服务项目有等

广告

声明：本网站发布的内容（图片、视频和文字）以用户投稿、用户转载内容为主，如果涉及侵权请尽快告知，我们将会在第一时间删除。文章观点不代表本网站立场，如需处理请联系客服。电话：028-86922220；邮箱：631063699@qq.com。内容未经允许不得转载，或转载时需注明来源： 贝锐智能