￥10000/套
成交数量：92如何设计一个VB程序有四个窗体的_百度知道
如何设计一个VB程序有四个窗体的
我有更好的答案
一个程序里可以新建多个窗体，但只有一个窗体作为主窗体。
为您推荐：
其他类似问题
您可能关注的内容
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。VB 中使窗体不能任意移动，设置哪一个属性啊？_百度知道
VB 中使窗体不能任意移动，设置哪一个属性啊？
我有更好的答案
窗体的Moveable属性设为False就行了，你还可以通过代码中移动窗体。 例如：Form1.Move 100,100或者Form1.Top=100Form1.Left=100
采纳率：23%
为您推荐：
其他类似问题
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。关于用VB做小游戏的一个问题_百度知道
关于用VB做小游戏的一个问题
我现在要做这样一个游戏下一串水果的生成是随机的那么怎样在函数中使这个BUTTON带有如图的水果样式的图片？各位VB大神帮帮忙！
我有更好的答案
'定义蛇的运动速度枚举值Private Enum tpsSpeedQUICKLY = 0SLOWLY = 1End Enum'定义蛇的运动方向枚举值Private Enum tpsDirectionD_UP = 38D_DOWN = 40D_LEFT = 37D_RIGHT = 39End Enum'定义运动区域4个禁区的枚举值Private Enum tpsForbiddenZoneFZ_TOP = 30FZ_BOTTOM = 5330FZ_LEFT = 30FZ_RIGHT = 5730End Enum'定义蛇头及身体初始化数枚举值Private Enum tpsSnakeSNAKEONE = 1SNAKETWO = 2SNAKETHREE = 3SNAKEFOUR = 4End Enum'定义蛇宽度的常量Private Const SNAKEWIDTH As Integer = 100'该过程用于显示游戏信息Private Sub Form_Load()Me.ShowMe.lblTitle = &BS贪食蛇 — (版本 & & App.Major & &.& & App.Minor & &.& & App.Revision & &)&Me.Caption = Me.lblTitle.CaptionfrmSplash.Show 1End Sub'该过程用于使窗体恢复原始大小Private Sub Form_Resize()If Me.WindowState && 1 ThenMe.Caption = &&Me.Height = 6405 '窗体高度为 6405 缇Me.Width = 8535 '窗体宽度为 8535 缇Me.Left = (Screen.Width - Width) \ 2Me.Top = (Screen.Height - Height) \ 2End IfEnd Sub'该过程用于重新开始开始游戏Private Sub cmdGameStart_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)Beepmsg = MsgBox(&您确认要重新开始游戏吗？&, 4 + 32, &BS贪食蛇&)If msg = 6 Then Call m_subGameInitializeEnd Sub'该过程用于暂停/运行游戏Private Sub chkPause_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)If Me.chkPause.Caption = &暂停游戏(&P)& ThenMe.tmrSnakeMove.Enabled = FalseMe.tmrGameTime.Enabled = FalseMe.picMoveArea.Enabled = FalseMe.lblPauseLab.Visible = TrueMe.chkPause.Caption = &继续游戏(&R)&ElseMe.tmrSnakeMove.Enabled = TrueMe.tmrGameTime.Enabled = TrueMe.picMoveArea.Enabled = TrueMe.lblPauseLab.Visible = FalseMe.chkPause.Caption = &暂停游戏(&P)&End IfEnd Sub'该过程用于显示游戏规则Private Sub cmdGameRules_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)BeepMsgBox & BS贪食蛇：一个规则最简单的趣味游戏，您将用键盘& & Chr(13) & _&上的4个方向键来控制蛇的运动方向。在运动过程中蛇& & Chr(13) & _&不能后退，蛇的头部也不能接触到运动区域的边线以外& & Chr(13) & _&和蛇自己的身体，否则就游戏失败。在吃掉随机出现的& & Chr(13) & _&果子后，蛇的身体会变长，越长难度越大。祝您好运！！&, 0 + 64, &游戏规则&End Sub'该过程用于显示游戏开发信息Private Sub cmdAbout_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)BeepMsgBox &BS贪食蛇& & &(V-& & App.Major & &.& & App.Minor & &版本)& & Chr(13) & Chr(13) & _&& & Chr(13) & Chr(13) & _&由PigheadPrince设计制作& & Chr(13) & _&CopyRight(C)2002,BestSoft.TCG&, 0, &关于本游戏&End Sub'该过程用于退出游戏Private Sub cmdExit_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)Beepmsg = MsgBox(&您要退出本游戏吗？&, 4 + 32, &BS贪食蛇&)Select Case msgCase 6EndCase 7Me.chkWindowButton(2).Value = 0Exit SubEnd SelectEnd Sub'该过程用于拖动窗体_(点击图标)Private Sub imgWindowTop_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)ReleaseCaptureSendMessage Me.hwnd, WM_SYSCOMMAND, SC_MOVE, 0End Sub'该共用过程用于处理窗体控制按钮组的相关操作_(锁定、最小化、退出)Private Sub chkWindowButton_MouseUp(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)If Button && 1 Then Exit SubSelect Case IndexCase 0 '锁定窗体If Me.chkWindowButton(0).Value = 1 ThenMe.imgWindowTop.BorderStyle = 0Me.imgWindowTop.Enabled = FalseElseMe.imgWindowTop.BorderStyle = 1Me.imgWindowTop.Enabled = TrueEnd IfCase 1 '最小化Me.WindowState = 1Me.chkWindowButton(1).Value = 0Me.Caption = &BS贪食蛇 — (V-& & App.Major & &.& & App.Minor & &版本)&Case 2 '退出Beepmsg = MsgBox(&您要退出本游戏吗？&, 4 + 32, &BS贪食蛇&)Select Case msgCase 6EndCase 7Me.chkWindowButton(2).Value = 0Exit SubEnd SelectEnd SelectEnd Sub'该过程用于设置蛇运动速度的快慢Private Sub hsbGameSpeed_Change()Me.tmrSnakeMove.Interval = Me.hsbGameSpeed.ValueEnd Sub'该过程用于通过键盘的方向键改变蛇的运动方向Private Sub picMoveArea_KeyDown(KeyCode As Integer, Shift As Integer)Select Case g_intDirectionCase D_UPIf KeyCode = D_DOWN Then Exit SubCase D_DOWNIf KeyCode = D_UP Then Exit SubCase D_LEFTIf KeyCode = D_RIGHT Then Exit SubCase D_RIGHTIf KeyCode = D_LEFT Then Exit SubEnd Selectg_intDirection = KeyCodeEnd Sub'该计时循环过程用于计算游戏耗费的秒数并显示Private Sub tmrGameTime_Timer()g_lngGameTime = g_lngGameTime + 1Me.lblGameTime.Caption = g_lngGameTime & &秒&End Sub'该计时循环过程用于控制蛇的行动轨迹Private Sub tmrSnakeMove_Timer()Dim lngSnakeX As Long, lngSnakeY As Long, lngSnakeColor As LongDim lngPointX As Long, lngPointY As Long, lngPointColor As LongRandomizeMe.picMoveArea.SetFocusMe.picMoveArea.Cls'确认蛇头的运动方向并获取新的位置Select Case g_intDirectionCase D_UP '向上运动g_udtSnake(SNAKEONE).Snake_CurX = g_udtSnake(SNAKEONE).Snake_OldXg_udtSnake(SNAKEONE).Snake_CurY = g_udtSnake(SNAKEONE).Snake_OldYg_udtSnake(SNAKEONE).Snake_CurY = g_udtSnake(SNAKEONE).Snake_CurY - SNAKEWIDTHCase D_DOWN '向下运动g_udtSnake(SNAKEONE).Snake_CurX = g_udtSnake(SNAKEONE).Snake_OldXg_udtSnake(SNAKEONE).Snake_CurY = g_udtSnake(SNAKEONE).Snake_OldYg_udtSnake(SNAKEONE).Snake_CurY = g_udtSnake(SNAKEONE).Snake_CurY + SNAKEWIDTHCase D_LEFT '向左运动g_udtSnake(SNAKEONE).Snake_CurX = g_udtSnake(SNAKEONE).Snake_OldXg_udtSnake(SNAKEONE).Snake_CurX = g_udtSnake(SNAKEONE).Snake_CurX - SNAKEWIDTHg_udtSnake(SNAKEONE).Snake_CurY = g_udtSnake(SNAKEONE).Snake_OldYCase D_RIGHT '向右运动g_udtSnake(SNAKEONE).Snake_CurX = g_udtSnake(SNAKEONE).Snake_OldXg_udtSnake(SNAKEONE).Snake_CurX = g_udtSnake(SNAKEONE).Snake_CurX + SNAKEWIDTHg_udtSnake(SNAKEONE).Snake_CurY = g_udtSnake(SNAKEONE).Snake_OldYEnd Select'根据新的位置绘制蛇头lngSnakeX = g_udtSnake(SNAKEONE).Snake_CurXlngSnakeY = g_udtSnake(SNAKEONE).Snake_CurYlngSnakeColor = g_udtSnake(SNAKEONE).Snake_ColorMe.picMoveArea.PSet (lngSnakeX, lngSnakeY), lngSnakeColor'移动蛇身体其他部分的位置For i = 2 To g_intSnakeLengthg_udtSnake(i).Snake_CurX = g_udtSnake(i - 1).Snake_OldXg_udtSnake(i).Snake_CurY = g_udtSnake(i - 1).Snake_OldYlngSnakeX = g_udtSnake(i).Snake_CurXlngSnakeY = g_udtSnake(i).Snake_CurYlngSnakeColor = g_udtSnake(i).Snake_ColorMe.picMoveArea.PSet (lngSnakeX, lngSnakeY), lngSnakeColorNext i'更新蛇旧的坐标位置For j = 1 To g_intSnakeLengthg_udtSnake(j).Snake_OldX = g_udtSnake(j).Snake_CurXg_udtSnake(j).Snake_OldY = g_udtSnake(j).Snake_CurYNext j'判断蛇在移动中是否到了禁区而导致游戏失败If m_funMoveForbiddenZone(g_udtSnake(SNAKEONE).Snake_CurX, g_udtSnake(SNAKEONE).Snake_CurY) ThenBeepMsgBox &您的蛇移动到了禁区，游戏失败！&, 0 + 16, &BS贪食蛇&Me.tmrSnakeMove.Enabled = FalseMe.tmrGameTime.Enabled = FalseMe.picMoveArea.Visible = FalseExit SubEnd If'判断蛇在移动中是否碰到了自己的身体而导致游戏失败If m_funTouchSnakeBody(g_udtSnake(SNAKEONE).Snake_CurX, g_udtSnake(SNAKEONE).Snake_CurY) ThenBeepMsgBox &您的蛇在移动中碰到了自己的身体，游戏失败！&, 0 + 16, &BS贪食蛇&Me.tmrSnakeMove.Enabled = FalseMe.tmrGameTime.Enabled = FalseMe.picMoveArea.Visible = FalseExit SubEnd If'判断蛇是否吃到了果子If m_funEatPoint(g_udtSnake(SNAKEONE).Snake_CurX, g_udtSnake(SNAKEONE).Snake_CurY) Then'累加玩家的得分并刷新得分显示g_intPlayerScore = g_intPlayerScore + 1Me.lblYourScore.Caption = g_intPlayerScore & &分&Call m_subAddSnake '加长蛇的身体Call m_subGetPoint '获取下一个果子的位置和颜色Else'绘制果子lngPointX = g_udtPoint.Point_XlngPointY = g_udtPoint.Point_YlngPointColor = g_udtPoint.Point_ColorMe.picMoveArea.PSet (lngPointX, lngPointY), lngPointColorEnd IfEnd Sub'该私有子过程用于初始化游戏Private Sub m_subGameInitialize()Erase g_udtSnake '清空蛇的结构数组g_intPlayerScore = 0 '清空玩家的得分g_lngGameTime = 0 '清空游戏耗费的秒数g_intDirection = D_DOWN '设定蛇的初始运动方向为下g_intSnakeLength = 4 '设定蛇的初始长度ReDim g_udtSnake(1 To g_intSnakeLength) '重新定义蛇的长度'定义蛇头部的数据With g_udtSnake(SNAKEONE).Snake_OldX = 530.Snake_OldY = 530.Snake_Color = vbBlackEnd With'定义蛇身第2节的数据With g_udtSnake(SNAKETWO).Snake_OldX = 530.Snake_OldY = 430.Snake_Color = vbGreenEnd With'定义蛇身第3节的数据With g_udtSnake(SNAKETHREE).Snake_OldX = 530.Snake_OldY = 330.Snake_Color = vbYellowEnd With'定义蛇身第4节的数据With g_udtSnake(SNAKEFOUR).Snake_OldX = 530.Snake_OldY = 230.Snake_Color = vbRedEnd WithMe.picMoveArea.Visible = TrueMe.lblYourScore.Caption = g_intPlayerScore & &分&Me.lblGameTime.Caption = g_lngGameTime & &秒&Me.tmrSnakeMove.Interval = Me.hsbGameSpeed.ValueMe.tmrSnakeMove.Enabled = TrueMe.tmrGameTime.Enabled = TrueCall m_subGetPoint '获取第一个果子的位置和颜色End Sub'该私有子过程用于返回获取的果子的位置和颜色信息Private Sub m_subGetPoint()Dim lngRedValue As Long, lngGreenValue As Long, lngBlueValue As LongDim lngPointX As Long, lngPointY As Long, lngPointColor As Long'随机获取果子的颜色lngRedValue = Int((255 - 0 + 1) * Rnd + 0)lngGreenValue = Int((255 - 0 + 1) * Rnd + 0)lngBlueValue = Int((255 - 0 + 1) * Rnd + 0)lngPointColor = RGB(lngRedValue, lngGreenValue, lngBlueValue)'随机获取果子的位置lngPointX = Int((FZ_LEFT - FZ_RIGHT + 1) * Rnd + FZ_RIGHT)lngPointY = Int((FZ_TOP - FZ_BOTTOM + 1) * Rnd + FZ_BOTTOM)Me.PSet (lngPointX, lngPointY), lngPointColor'设置函数返回值With g_udtPoint.Point_X = lngPointX.Point_Y = lngPointY.Point_Color = lngPointColorEnd WithEnd Sub'该私有子过程用于加长蛇的身体Private Sub m_subAddSnake()Dim udtSnakeTemp() As SnakeDim lngSnakeX As Long, lngSnakeY As Long, lngSnakeColor As Long'备份蛇原先身体的数据并使蛇的身体加长ReDim udtSnakeTemp(1 To g_intSnakeLength)For k = 1 To g_intSnakeLengthWith udtSnakeTemp(k).Snake_CurX = g_udtSnake(k).Snake_CurX.Snake_CurY = g_udtSnake(k).Snake_CurY.Snake_OldX = g_udtSnake(k).Snake_OldX.Snake_OldY = g_udtSnake(k).Snake_OldY.Snake_Color = g_udtSnake(k).Snake_ColorEnd WithNext kg_intSnakeLength = g_intSnakeLength + 1ReDim g_udtSnake(g_intSnakeLength)'将备份蛇身体的数据返回到加长的蛇身数组中For l = 1 To g_intSnakeLength - 1With g_udtSnake(l).Snake_CurX = udtSnakeTemp(l).Snake_CurX.Snake_CurY = udtSnakeTemp(l).Snake_CurY.Snake_OldX = udtSnakeTemp(l).Snake_OldX.Snake_OldY = udtSnakeTemp(l).Snake_OldY.Snake_Color = udtSnakeTemp(l).Snake_ColorEnd WithNext l'写入新加入的身体数据Select Case g_intDirectionCase D_UPWith g_udtSnake(g_intSnakeLength).Snake_OldX = g_udtSnake(g_intSnakeLength - 1).Snake_CurX + SNAKEWIDTH.Snake_OldY = g_udtSnake(g_intSnakeLength - 1).Snake_CurY.Snake_Color = g_udtPoint.Point_ColorEnd WithCase D_DOWNWith g_udtSnake(g_intSnakeLength).Snake_OldX = g_udtSnake(g_intSnakeLength - 1).Snake_CurX - SNAKEWIDTH.Snake_OldY = g_udtSnake(g_intSnakeLength - 1).Snake_CurY.Snake_Color = g_udtPoint.Point_ColorEnd WithCase D_LEFTWith g_udtSnake(g_intSnakeLength).Snake_OldX = g_udtSnake(g_intSnakeLength - 1).Snake_CurX.Snake_OldY = g_udtSnake(g_intSnakeLength - 1).Snake_CurY + SNAKEWIDTH.Snake_Color = g_udtPoint.Point_ColorEnd With
兄弟 是水果大餐 不是贪吃蛇
你有这个游戏的代码吗？谢谢了！
为您推荐：
其他类似问题
您可能关注的内容
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。VB怎么实现一个窗体点不同按钮切换到不同的页面
[问题点数：20分，结帖人raybvb09]
本版专家分：15
结帖率 99.1%
CSDN今日推荐
本版专家分：6251
本版专家分：16218
2007年1月 VB大版内专家分月排行榜第一
2007年7月 VB大版内专家分月排行榜第二
2007年3月 VB大版内专家分月排行榜第三
本版专家分：6785
本版专家分：4279
本版专家分：15
结帖率 99.1%
本版专家分：16218
2007年1月 VB大版内专家分月排行榜第一
2007年7月 VB大版内专家分月排行榜第二
2007年3月 VB大版内专家分月排行榜第三
本版专家分：15
结帖率 99.1%
本版专家分：447
本版专家分：16218
2007年1月 VB大版内专家分月排行榜第一
2007年7月 VB大版内专家分月排行榜第二
2007年3月 VB大版内专家分月排行榜第三
本版专家分：21853
2007年8月 VB大版内专家分月排行榜第一
2008年5月 VB大版内专家分月排行榜第二
2008年1月 VB大版内专家分月排行榜第三2007年11月 VB大版内专家分月排行榜第三
本版专家分：1659
本版专家分：3873
本版专家分：12233
2007年3月 VB大版内专家分月排行榜第二2007年2月 VB大版内专家分月排行榜第二2006年12月 VB大版内专家分月排行榜第二
本版专家分：349
本版专家分：81
匿名用户不能发表回复！|
CSDN今日推荐}