自拍偷在线精品自拍偷,亚洲欧美中文日韩v在线观看不卡

教你如何制作VB.NET封面

開發(fā) 后端
封面是很重要的,這里就利用VB.NET封面制作出你喜愛的圖案,文章有詳細(xì)的代碼設(shè)計,希望對大家有幫助。

在學(xué)校就是學(xué)軟件開發(fā)的很自然的對于編程方面的語言都稍微的略之一二,對于VB.NET這門語言這種易學(xué)、易懂、界面友好漂亮的語言打上了交道。在編寫的過程中當(dāng)然遇到了許多的問題,這里將一些簡單的小程序?qū)懴聛砼c喜愛編程的朋友們分享。

#T#VB.NET封面的設(shè)計是這樣的,先出現(xiàn)一窗體,上面為你喜歡的圖案。然后出現(xiàn)一艘從左向右行駛著的船。屏幕上方從兩側(cè)分別移動出“歡迎”兩個字。具體的制作方法是:把預(yù)先選好的背景圖案裝入封面窗體中,窗體命名為CAI。再分別在三個圖像控件(image)中裝入預(yù)先制作好的位圖“歡”、“迎”和船型圖案。然后把三個image放置在初始位置(即 圖案剛在窗體出現(xiàn)時的位置),并把它們的可視屬性都設(shè)置為“false”。VB.NET封面程序如下:

  1. Sub Form_load()  
  2. cai.Show ′顯示封面窗體  
  3. Dim i ′定義變量  
  4. image3.visible=True ′船型圖像控件出現(xiàn)  
  5. a1: If image3.Left < 6120 Then  
  6. ′6120為船移動到屏幕右邊的坐標(biāo),此值可以隨需要選取  
  7. image3.Move image3.Left+50  
  8. ′移動此圖像控件如嫌移動慢,可改變移動值  
  9. Goto a1  
  10. End If  
  11. image1.visible=True ′“歡”字出現(xiàn)  
  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 ′“迎”字出現(xiàn)  
  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. ′使窗體暫停一段時間時間長短可通過改變循環(huán)次數(shù)實(shí)現(xiàn)  
  25. Next i  
  26. menul.Show ′顯示程序主窗體  
  27. Unload cai ′卸載封面窗體  
  28. End Sub 


以上就是一個關(guān)于VB.NET封面實(shí)現(xiàn)的程序,大家可以在機(jī)器上跑跑。

責(zé)任編輯:田樹 來源: 博客
相關(guān)推薦

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-10 11:30:12

VB.NET循環(huán)語句

2009-11-02 11:02:58

VB.NET XML文

2011-05-20 16:49:21

VB.NET

2010-01-22 17:55:23

VB.NET語法糖

2009-10-28 16:10:16

VB.NET程序

2009-11-02 15:33:53

VB.NET Data

2010-01-22 16:27:19

VB.NET關(guān)于對話框

2009-10-26 09:11:52

VB.NET基礎(chǔ)教程

2009-10-29 14:02:24

VB和VB.NET比較

2011-06-17 11:05:22

VB.NET

2009-06-24 15:45:32

VB.NET

2009-10-20 14:21:55

VB.NET fnSi

2009-10-14 12:51:41

VB.NET Data

2009-10-27 11:03:16

VB.NET文件夾操作

2009-10-28 09:48:31

VB.NET XmlR
點(diǎn)贊
收藏

51CTO技術(shù)棧公眾號