本篇文章给大家谈谈vb源代码，以及怎么运行VB源代码对应的知识点，文章可能有点长，但是希望大家可以阅读完，增长自己的知识，最重要的是希望对各位有所帮助，可以解决了您的问题，不要忘了收藏本站喔。本文目录求用vbs编写的贪吃蛇源代码怎么运行VB源代码求用vbs编写的贪吃蛇源代码’定义蛇的运动速度枚举值PrivateE
本篇文章给大家谈谈vb源代码，以及怎么运行VB源代码对应的知识点，文章可能有点长，但是希望大家可以阅读完，增长自己的知识，最重要的是希望对各位有所帮助，可以解决了您的问题，不要忘了收藏本站喔。
本文目录
求用vbs编写的贪吃蛇源代码
‘定义蛇的运动速度枚举值
PrivateEnumtpsSpeed
QUICKLY=0
SLOWLY=1
EndEnum
‘定义蛇的运动方向枚举值
PrivateEnumtpsDirection
D_UP=38
D_DOWN=40
D_LEFT=37
D_RIGHT=39
EndEnum
‘定义运动区域4个禁区的枚举值
PrivateEnumtpsForbiddenZone
FZ_TOP=30
FZ_BOTTOM=5330
FZ_LEFT=30
FZ_RIGHT=5730
EndEnum
‘定义蛇头及身体初始化数枚举值
PrivateEnumtpsSnake
SNAKEONE=1
SNAKETWO=2
SNAKETHREE=3
SNAKEFOUR=4
EndEnum
‘定义蛇宽度的常量
PrivateConstSNAKEWIDTHAsInteger=100
‘该过程用于显示游戏信息
PrivateSubForm_Load()
Me.Show
Me.lblTitle=”BS贪食蛇—(版本”&App.Major&”.”&App.Minor&”.”&App.Revision&”)”
Me.Caption=Me.lblTitle.Caption
frmSplash.Show1
EndSub
‘该过程用于使窗体恢复原始大小
PrivateSubForm_Resize()
IfMe.WindowState<>1Then
Me.Caption=””
Me.Height=6405’窗体高度为6405缇
Me.Width=8535’窗体宽度为8535缇
Me.Left=(Screen.Width-Width)\2
Me.Top=(Screen.Height-Height)\2
EndIf
EndSub
‘该过程用于重新开始开始游戏
PrivateSubcmdGameStart_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
Beep
msg=MsgBox(“您确认要重新开始游戏吗？”,4+32,”BS贪食蛇”)
Ifmsg=6ThenCallm_subGameInitialize
EndSub
‘该过程用于暂停/运行游戏
PrivateSubchkPause_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
IfMe.chkPause.Caption=”暂停游戏(&P)”Then
Me.tmrSnakeMove.Enabled=False
Me.tmrGameTime.Enabled=False
Me.picMoveArea.Enabled=False
Me.lblPauseLab.Visible=True
Me.chkPause.Caption=”继续游戏(&R)”
Else
Me.tmrSnakeMove.Enabled=True
Me.tmrGameTime.Enabled=True
Me.picMoveArea.Enabled=True
Me.lblPauseLab.Visible=False
Me.chkPause.Caption=”暂停游戏(&P)”
EndIf
EndSub
‘该过程用于显示游戏规则
PrivateSubcmdGameRules_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
Beep
MsgBox”BS贪食蛇：一个规则最简单的趣味游戏，您将用键盘”&Chr(13)&_
“上的4个方向键来控制蛇的运动方向。在运动过程中蛇”&Chr(13)&_
“不能后退，蛇的头部也不能接触到运动区域的边线以外”&Chr(13)&_
“和蛇自己的身体，否则就游戏失败。在吃掉随机出现的”&Chr(13)&_
“果子后，蛇的身体会变长，越长难度越大。祝您好运！！”,0+64,”游戏规则”
EndSub
‘该过程用于显示游戏开发信息
PrivateSubcmdAbout_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
Beep
MsgBox”BS贪食蛇”&”(V-“&App.Major&”.”&App.Minor&”版本)”&Chr(13)&Chr(13)&_
“”&Chr(13)&Chr(13)&_
“由PigheadPrince设计制作”&Chr(13)&_
“CopyRight(C)2002,BestSoft.TCG”,0,”关于本游戏”
EndSub
‘该过程用于退出游戏
PrivateSubcmdExit_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
Beep
msg=MsgBox(“您要退出本游戏吗？”,4+32,”BS贪食蛇”)
SelectCasemsg
Case6
End
Case7
Me.chkWindowButton(2).Value=0
ExitSub
EndSelect
EndSub
‘该过程用于拖动窗体_(点击图标)
PrivateSubimgWindowTop_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
ReleaseCapture
SendMessageMe.hwnd,WM_SYSCOMMAND,SC_MOVE,0
EndSub
怎么运行VB源代码
首先你要有VB这个软件,注意你还的注意版本的问题,是否与你现有的源代码是否一致,一般来讲VB6.0的大多数.然后打开你的VB程序,点击文件–打开工程–选择你保存源程序的代码的文件夹,选择工程文件(VBP\VBG文件),确定.现在可以先按F5来试运行,没问题,点击文件—生成XXXXX.EXE–一路下去就OK啦!
vb源代码的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于怎么运行VB源代码、vb源代码的信息别忘了在本站进行查找哦。
如若转载，请注明出处：https://www.jlnskfag.cn/49456.html
相关推荐
-
冯婉贞原文及翻译文言文网（冯婉贞节选文言文翻译）
咸丰庚申年，也就是公元1860年，英法联军从海上入侵中国。当时，整个北京都疯狂了，许多人逃走，唯恐被英法联军打死，因此天下大乱。在这期间，清政府因为腐败无能，因此无法抵抗。不过，中国向来多壮士，于是，三齐之地，燕赵之地，那些爱国的慷慨悲歌之士，无不站起来联手抵抗英法联军。他们或是组建队伍，或是办了社团，或是到街
-
汽车改气好吗，汽车改天然气到底好不好
大家好，今天来为大家解答汽车改气好吗这个问题的一些问题点，包括汽车改天然气到底好不好也一样很多人还不知道，因此呢，今天就来为大家分析分析，现在让我们一起来看看吧！如果解决了您的问题，还望您关注下本站哦，谢谢~本文目录自动挡汽车改成天然气好不好油改汽车有什么优缺点汽车油改气好不好，有什么影响为什么自动挡不建议改气汽车改天然气到底好不好自动挡汽车改成天然气好不好自动挡的汽车可以油改气，但跟所有
-
孙权的主要事迹？周瑜的英雄事迹
大家好，感谢邀请，今天来为大家分享一下孙权的主要事迹的问题，以及和周瑜的英雄事迹的一些困惑，大家要是还不太明白的话，也没有关系，因为接下来将为大家分享，希望可以帮助到大家，解决大家的问题，下面就开始吧！刘邦是秦人还是汉人吴国孙权属于晋国人吗刘邦出生于公元前256年冬月二十四，也就是秦昭襄王五十一年，当年秦国攻占东周成天为天下共主。当时刘邦在沛
-
阿宁扮演者 云顶天宫的阿宁是谁演的
其实阿宁扮演者的问题并不复杂，但是又很多的朋友都不太了解云顶天宫的阿宁是谁演的，因此呢，今天小编就来为大家分享阿宁扮演者的一些知识，希望可以帮助到大家，下面我们一起来看看这个问题的分析吧！本文目录陈情令阿宁扮演者怒海潜沙潘子的扮演者是谁云顶天
-
什么是矩形，矩形读音是什么
本篇文章给大家谈谈什么是矩形，以及矩形读音是什么对应的知识点，文章可能有点长，但是希望大家可以阅读完，增长自己的知识，最重要的是希望对各位有所帮助，可以解决了您的问题，不要忘了收藏本站喔。本文目录矩形读音是什么什么是矩形柱长方形，正方形的定义是什么什么是矩形截屏长方形的定义是什么矩形读音是什么读音：jǔxíng注音：ㄐㄨˇㄒ一ㄥˊ结构：矩(左右结构)形(左右结构)词语解释矩形jǔxíng(1)方
-
严宽电视剧？严屹宽姜皓天是什么电视剧
很多朋友对于严宽电视剧和严屹宽姜皓天是什么电视剧不太懂，今天就由小编来为大家分享，希望可以帮助到大家，下面一起来看看吧！严宽和聂远拍的电视剧严宽和聂远的电视剧皓镧传，上错花轿嫁对郎，延禧攻略严宽杜若溪一起出演的古装电视剧叫什么名字首播时间：2015剧名：姐妹姐妹扮演角色：宋春雅导演：徐宗政合作演员：严屹宽；斯琴高娃芝麻胡同严宽怎么回事电视剧《芝麻胡同》，严宽是严振声的儿子，之前去当兵说是阵
-
香格里拉月饼，香格里拉月饼什么档次
今天给各位分享香格里拉月饼的知识，其中也会对香格里拉月饼什么档次进行解释，如果能碰巧解决你现在面临的问题，别忘了关注本站，现在开始吧！本文目录香开头的成语有哪些大理哪里外国人多香格里拉月饼保质期香格里拉月饼什么档次南宁哪个品牌的月饼最受市民欢迎香开头的成语有哪些【成语】：香车宝马【拼音】：xiāngchēbǎomǎ【解释】：华丽
-
春蚕到死丝方尽？蜡炬成灰泪始干。谁能理解这句诗的意思
本篇文章给大家谈谈春蚕到死丝方尽，以及春蚕到死丝方尽，蜡炬成灰泪始干。谁能理解这句诗的意思对应的知识点，文章可能有点长，但是希望大家可以阅读完，增长自己的知识，最重要的是希望对各位有所帮助，可以解决了您的问题，不要忘了收藏本站喔。本文目录春蚕到死丝方尽，蜡炬成灰泪始干
-
肇和号巡洋舰（海圻号巡洋舰图片）
928年，当时的民国海军司令陈绍宽向蒋介石提出花2000万元造一艘航空母舰的计划；1943年11月，陈再次提出要造20艘航母，这个庞大的海军建设规划让蒋介石瞠目结舌，陈绍宽说：“这笔钱国家是省不得的。”资料图北洋水师“定远”舰甲午战败，清廷花费
-
莫莉是谁演的 恋了爱了莫莉是谁演的
今天给各位分享莫莉是谁演的的知识，其中也会对恋了爱了莫莉是谁演的进行解释，如果能碰巧解决你现在面临的问题，别忘了关注本站，现在开始吧！本文目录《海派甜心》里的野倩是谁演的纸牌屋杰姬扮演者是谁恋了爱了莫莉是谁演的狭路男主是谁许多年莫莉被偷看后续真相《海派甜心》里的
