亚洲激情专区-91九色丨porny丨老师-久久久久久久女国产乱让韩-国产精品午夜小视频观看

溫馨提示×

溫馨提示×

您好,登錄后才能下訂單哦!

密碼登錄×
登錄注冊×
其他方式登錄
點擊 登錄注冊 即表示同意《億速云用戶服務條款》

怎么制作VB.NET封面

發布時間:2021-06-16 17:44:22 來源:億速云 閱讀:185 作者:chen 欄目:編程語言

這篇文章主要講解了“制作VB.NET封面的方法”,文中的講解內容簡單清晰,易于學習與理解,下面請大家跟著小編的思路慢慢深入,一起來研究和學習“制作VB.NET封面的方法”吧!

在學校就是學軟件開發的很自然的對于編程方面的語言都稍微的略之一二,對于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封面的方法這一問題有了更深刻的體會,具體使用情況還需要大家實踐驗證。這里是億速云,小編將為大家推送更多相關知識點的文章,歡迎關注!

向AI問一下細節

免責聲明:本站發布的內容(圖片、視頻和文字)以原創、轉載和分享為主,文章觀點不代表本網站立場,如果涉及侵權請聯系站長郵箱:is@yisu.com進行舉報,并提供相關證據,一經查實,將立刻刪除涉嫌侵權內容。

AI

麻城市| 舞钢市| 河源市| 浑源县| 六安市| 禹州市| 舒兰市| 阿瓦提县| 丹棱县| 拜泉县| 汉沽区| 珠海市| 桦甸市| 龙门县| 曲沃县| 德庆县| 宣威市| 内丘县| 金坛市| 宁明县| 措美县| 澎湖县| 太仆寺旗| 宁阳县| 蕲春县| 理塘县| 横山县| 延川县| 油尖旺区| 金平| 米林县| 娄底市| 安吉县| 西丰县| 格尔木市| 松潘县| 德安县| 呼图壁县| 临沭县| 和静县| 三明市|