亚洲香蕉成人av网站在线观看_欧美精品成人91久久久久久久_久久久久久久久久久亚洲_热久久视久久精品18亚洲精品_国产精自产拍久久久久久_亚洲色图国产精品_91精品国产网站_中文字幕欧美日韩精品_国产精品久久久久久亚洲调教_国产精品久久一区_性夜试看影院91社区_97在线观看视频国产_68精品久久久久久欧美_欧美精品在线观看_国产精品一区二区久久精品_欧美老女人bb

首頁 > 學院 > 開發設計 > 正文

趣味撞球--VB5應用程序一例

2019-11-18 17:29:53
字體：大 中 小
來源：轉載
供稿：網友
VisualBasic5.0(VB5)是一個功能強大的工具，它有一大特點就是易學易用，下面我們就通過寫一個“趣味撞球”的程序來初步體會一下。
首先啟動VB5，新建一個標準的EXE工程。此時可以看到，工程包括一個Form1框體。在Form1邊框的右下角按住鼠標左鍵不放，拖動鼠標把Form1的面積改為適當大小，比如6930×4320。再在屬性框中把Form1的ScaleMode屬性改為3－Pixel，表明我們將以像素為我們的坐標計算單位，把Form1的StartUpPosition屬性設為2－CenterScreen，使運行時窗體出現在屏幕正中。
現在，在控件面板上選取CommandButton（命令按鈕）控件，為Form1添加Command1和Command2兩個按鈕控件，把它們的大小設為121×25，再在屬性框中把Command1的Caption填為“＆GO”，把Command2的Caption填為“＆QUIT”，并把Command1放到框體的右上角，把Command2放到框體的右下角。
然后，在控件面板上選取Timer（時鐘）控件，為Form1添加一個Timer1時鐘控件。再在屬性框中把它的Enabled屬性改為False，Interval屬性改為50，前一個值表示該時鐘控件是否激活，后一個值決定該時鐘控件產生Timer事件的間隔時間，我們將用它來控制小球的移動頻率。
到此為止，我們已經完成了全部的界面設計工作。
接下來要做的全部工作就是填入程序代碼了。
DimBallXAsInteger
DimBallYAsInteger
DimAddXAsInteger
DimAddYAsInteger
DimHitXAsInteger
DimWAsInteger
DimHAsInteger
PRivateSubCommand1_Click()
BallX=Int(Rnd(1)＊Form1ScaleWidth/10)＊5＋25
BallY=Int((Form1ScaleHeight)/10)＊5
AddX=－5
AddY=－5
Form_Paint
Timer1Enabled=True
EndSub
PrivateSubCommand2_Click()
End
EndSub
PrivateSubForm_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
X=X－50
IfX<15ThenX=15
IfX>W－105ThenX=W－105
HitX=X
IfTimer1Enabled=TrueThen
Line(16,H－5)－(W－6,H),＆HC0C0C0,BF
Line(HitX,H)－(HitX＋100,H－5),0,BF
EndIf
EndSub
PrivateSubForm_Paint()
Cls
W=Int((ScaleWidth－140)/5)＊5
H=Int((ScaleHeight－10)/5)＊5
BackColor=＆HC0C0C0
Line(10,10)－(15,H),0,BF
Line(W－5,10)－(W,H),0,BF
Line(10,10)－(W,15),0,BF
EndSub
PrivateSubTimer1_Timer()
Form1Circle(BallX,BallY),4,＆HC0C0C0
BallX=BallX＋AddX
BallY=BallY＋AddY
Form1Circle(BallX,BallY),4,0
IfBallX<=20ThenAddX=－AddX
IfBallY<=20ThenAddY=－AddY
IfBallX>=W－10ThenAddX=－AddX
IfBallY>=H－10Then
IfBallX<HitXOrBallX>HitX＋100Then
Timer1Enabled=False
Form_Paint
EndIf
AddY=－AddY
EndIf
EndSub
一旦程序代碼輸入完畢，你就可以按F5開始執行它，或是在File菜單里選取Make來生成EXE執行文件了，瞧，小球已經在你的屏幕上蹦來蹦去了。->

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
亚洲香蕉成人av网站在线观看_欧美精品成人91久久久久久久_久久久久久久久久久亚洲_热久久视久久精品18亚洲精品_国产精自产拍久久久久久_亚洲色图国产精品_91精品国产网站_中文字幕欧美日韩精品_国产精品久久久久久亚洲调教_国产精品久久一区_性夜试看影院91社区_97在线观看视频国产_68精品久久久久久欧美_欧美精品在线观看_国产精品一区二区久久精品_欧美老女人bb
日韩小视频在线观看| 亚洲欧美国产精品va在线观看| 国产精品久久久久久久9999| 亚洲片国产一区一级在线观看| 久久亚洲精品一区| 亚洲成人精品av| 久久久国产视频| 亚洲黄色av网站| 国产精品一二三在线| 久久视频在线播放| 久久视频精品在线| 国内免费久久久久久久久久久| 欧美午夜精品久久久久久人妖| 欧美二区乱c黑人| 亚洲精品国精品久久99热一| 中文字幕在线精品| 91香蕉国产在线观看| 欧美激情a∨在线视频播放| 国产精品美女主播在线观看纯欲| 日韩福利伦理影院免费| 在线视频日本亚洲性| 深夜福利91大全| 伊人久久大香线蕉av一区二区| 国产成人在线视频| 色狠狠av一区二区三区香蕉蜜桃| 欧美亚洲另类视频| 精品久久香蕉国产线看观看亚洲| 国产69精品久久久久99| 日本成人免费在线| 欧美高清无遮挡| 国产成人精品免高潮费视频| 国产精品福利在线观看| 91久久久亚洲精品| 亚洲欧美日韩中文在线| 91精品视频专区| 激情懂色av一区av二区av| 亚洲成在人线av| 在线丨暗呦小u女国产精品| 91牛牛免费视频| 日韩精品在线视频观看| 中文字幕一区日韩电影| 色999日韩欧美国产| 搡老女人一区二区三区视频tv| 亚洲高清免费观看高清完整版| 91在线色戒在线| 综合激情国产一区| 国内免费久久久久久久久久久| 日韩精品免费在线观看| 国产97在线视频| 亚洲一区二区三区四区在线播放| 国产精品劲爆视频| 日韩中文字幕免费看| 亚洲乱码国产乱码精品精天堂| 中文字幕亚洲欧美| 欧美日韩亚洲网| 精品久久香蕉国产线看观看亚洲| 欧美激情视频在线免费观看 欧美视频免费一| 欧洲成人免费视频| 亚洲欧美成人网| 亚洲精品有码在线| 成人av在线天堂| 国产98色在线| 1769国内精品视频在线播放| 日韩精品视频在线| 精品呦交小u女在线| 91美女片黄在线观看游戏| 日本国产一区二区三区| 久久久国产精品视频| 欧美肥臀大乳一区二区免费视频| 亚洲国产精品久久久久秋霞不卡| 欧美午夜xxx| 国产欧美一区二区三区久久人妖| 久久精品国产亚洲精品| 色www亚洲国产张柏芝| 国产精品96久久久久久又黄又硬| 欧美性猛交丰臀xxxxx网站| 日韩精品免费观看| 亚洲伊人成综合成人网| 国产91精品视频在线观看| 青青草原成人在线视频| 欧美日产国产成人免费图片| 日本欧美一级片| 成人黄色短视频在线观看| 成人国产精品一区二区| 亚洲人成网站免费播放| 欧美电影免费在线观看| 日韩在线国产精品| 国产精品美女999| 亚洲美女免费精品视频在线观看| 久久久久国产精品免费网站| 26uuu亚洲国产精品| 国内精久久久久久久久久人| 久久69精品久久久久久久电影好| 国产原创欧美精品| 日韩av电影中文字幕| 国产精品男人爽免费视频1| 国产主播喷水一区二区| 国产亚洲精品久久久久久777| 国产精品久久久久9999| 欧美成人一区在线| 91高清视频免费| 亚洲片在线观看| 色哟哟亚洲精品一区二区| 日韩影视在线观看| 精品高清美女精品国产区| 91最新在线免费观看| 日韩在线视频线视频免费网站| 97在线视频免费| 97在线免费观看视频| 超在线视频97| 91久久久久久久久| 69影院欧美专区视频| 亚洲韩国日本中文字幕| 亚洲欧洲在线看| 日韩av网站大全| 91网站在线看| 77777少妇光屁股久久一区| 成人欧美在线视频| 91在线网站视频| 中文字幕国产精品久久| 成人免费看片视频| 91精品视频在线免费观看| 亚洲精品之草原avav久久| 日韩动漫免费观看电视剧高清| 北条麻妃久久精品| 亚洲大胆人体视频| 亚洲成人激情在线| 久久久久久有精品国产| 日产精品久久久一区二区福利| 亚洲日本成人网| 在线日韩精品视频| 亚洲高清一二三区| 一本一本久久a久久精品综合小说| 大荫蒂欧美视频另类xxxx| 亚洲精品成人久久久| 亚洲另类欧美自拍| 亚洲www在线观看| 国产一区二区视频在线观看| 中文字幕国产精品久久| 欧美性生交大片免费| 91高潮精品免费porn| 国产成人av在线播放| 尤物九九久久国产精品的分类| 亚洲精品永久免费精品| 国产亚洲精品一区二555| 久久久久久久久久久成人| 久久中文字幕国产| 中文字幕在线国产精品| 亚洲午夜未满十八勿入免费观看全集| 欧美午夜精品久久久久久浪潮| 亚洲a级在线观看| 欧美日本啪啪无遮挡网站| 国产精品视频免费在线| 91沈先生作品| 日韩禁在线播放| 国产精品18久久久久久首页狼| 91在线色戒在线| 在线视频日韩精品| 中文字幕日韩在线播放| 国产精品久久久久国产a级| 欧美成人亚洲成人日韩成人| 欧美裸体xxxx| 欧美激情一区二区三区久久久| 欧美日韩国产中文精品字幕自在自线|