精华内容
下载资源
问答
  • VB小游戏

    2008-04-23 21:03:53
    一个新手刚学会VB,自己编的小游戏
  • vb小游戏

    2008-06-16 18:21:34
    vb做的游戏 很好很强大!~
  • vb小游戏代码

    2011-10-20 21:03:34
    vb小游戏代码vb小游戏代码vb小游戏代码vbvb小游戏代码小vb小游戏代码游戏代码vb小游戏代码
  • vb小游戏两个

    2015-06-10 15:51:55
    简单的vb小游戏两个 石头剪刀布和小球的碰撞
  • VB小游戏贪吃蛇等

    2013-11-17 16:22:21
    VB小游戏贪吃蛇等
  • VB小游戏快看

    2012-05-27 12:52:23
    vbVB小游戏快看刚刚自己编的 vbVB小游戏快看刚刚自己编的
  • VB小游戏开发,可直接使用。文档包含源程序,本游戏为小球动态在界面跳动。
  • VB小游戏源码:吃豆子游戏,嘿嘿,这个游戏本身就很好玩,别只顾着玩,忘记学习哦。  提示:  这个游戏比较大,我们打开VB工程组文件PACMAN PROJECT GROUP VB5.vbg  就能加载工程,然后看看怎么把几个VB工程...
  • vb小游戏

    2013-06-23 10:31:31
    好好玩的vb小游戏大家快来下载啊 !!!!!!!!!!!!!!!
  • 【VB源码】VB小游戏--打地鼠 对VB初学者有学习参考意义。
  • VB小游戏程序

    2015-08-06 20:52:29
    VB简单游戏小程序 适用于初学者入门学习,不足之处尽请谅解
  • VB小游戏设计:扫雷

    2020-08-31 19:37:43
    VB编写的小游戏:扫雷,含游戏成品,图标,工程文件,源代码等文件。关于该小游戏的更多信息可以参考我的博客。
  • VB小游戏源码

    2013-11-29 15:36:45
    扫雷游戏VB源代码
  • 简单vb小游戏

    2015-12-29 23:45:38
    这是我刚接触程序用vb6.0写的,程序比较简单,可以根据自己的需要自己修改,希望对你有帮助。
  • 摘要:VB源码,游戏编程,小猪快跑  VB小游戏:小猪快跑源代码,自制的游戏小程序,还有许多功能暂时无法实现,本人水平有限,欢迎VB高手们批评指导。界面中的小猪可以用键盘的方向键来控制移动。
  • 不是我编的,代码没有经过优化,但思路值得借鉴。是一个很好的VB小游戏
  • vb 小游戏连连看(vb )

    2009-06-17 12:37:26
    vb语言做的小游戏连连看!Welcome! Download
  • VB小游戏集合,有几个比较经典的。大家分享
  • VB小游戏 图像合成

    2011-04-11 19:07:57
    VB开发的游戏,图像合成软件.可以添加前景图和背景图,选择三种合成方式。保存为位图。
  • 一款VB掷骰子游戏,押大校  程序从这里开始(加载窗体)  Private Sub Form_Load()  ‘ 各变量赋初值  Betting = False ‘ 骰子还没滚动  Money = 1000 ‘ 现金等,各变量的意义见上  Bet = 0  Label2....
  • vb小游戏集合代码

    2008-04-04 19:25:12
    里面有多个经典的vb编写的小游戏集合代码,推荐学习下
  • VB小游戏-测试你是什么味道源代码,压缩包内一共有两个这样的程序,一个是原版带声音,不过界面稍显精糙,别一个是网友美化的,去掉了声音,仅供学习参考。游戏还是挺有意思的,在一些杂志上刊登过这种游戏的娱乐性...
  • VB6.0开发的《咬格子》游戏源代码,根据特殊字符编写而成,游戏由7×5方格组成,游戏者和电脑轮流"咬掉"方格,"咬掉"最后一个方格者为失败方。程序设计:王学军。游戏操作方法:鼠标单击可选中相应的格子,在格子上...
  • vb小游戏 打地鼠

    万次阅读 热门讨论 2019-05-29 20:59:23
    Timer1 interval 设为1000 程序里随级别设置为不同的值,值越事件发生的越快。老鼠移动显示计时 Timer2 interval 设为30000 总计时 Timer3 interval 设为1000 显示刷新计时,每次事件发生时更新 击中次数和剩余...

    运行效果(动画)

    在这里插入图片描述

    窗体结构

    注意下面有两个隐藏的锤子,临时存储锤子图片,作为image.picture被调用。这两个图片本来应该是左边抬起来,右边按下去,但是按下去的图片找不到了,临时用两个一样的锤子。

    左上角两个textbox用来显示当前老鼠坐标,用于调试。
    在这里插入图片描述

    实验程序说明

    Image 1 的picture 设为老鼠
    Image 2 的picture 设为锤子0
    Image 2 的picture 设为锤子1
    
    Image 2 ,3 的visible 为false
    
    做全局变量Dim n, s As Integer '定义全局变量
    '变量n用来存储击中砖块的次数,变量s用来存储所用的时间,赋值0
    
    三个时钟设为false
    Timer1 interval 设为1000 程序里随级别设置为不同的值,值越小事件发生的越快。老鼠移动显示计时
    Timer2 interval 设为30000  总计时
    Timer3 interval 设为1000 显示刷新计时,每次事件发生时更新 击中次数和剩余时间。
    

    在实际操作时,time2和timer3被我合并了。

    代码

    Dim n, s As Integer 'n是次数 s是时间
    '初级
    Private Sub Command1_Click()
        Timer1.Interval = 1000
        Timer1.Enabled = False
        Command4.Enabled = True
    End Sub
    '中级
    Private Sub Command2_Click()
        Timer1.Interval = 800
        Timer1.Enabled = False
        Command4.Enabled = True
    End Sub
    '高级
    Private Sub Command3_Click()
        Timer1.Interval = 100
        Timer1.Enabled = False
        Command4.Enabled = True
    End Sub
    '开始
    Private Sub Command4_Click()
        n = 0: s = 0
        Label1.Caption = "10"   '初始化时间
        Text1.Text = 0          '初始化击中次数
        Image1.Visible = True   '看到老鼠
        Image1.Left = 0
        Image1.Top = 0
        
        Command1.Enabled = False: Command2.Enabled = False
        Command3.Enabled = False
        Command4.Enabled = False
        Timer1.Enabled = True
        Timer3.Enabled = True
    End Sub
    
    Private Sub Command5_Click()
        Unload Me               '关闭
    End Sub
    
    '窗体初始化
    Private Sub Form_Load()
        Label1.Caption = 10
        Label2.Visible = False
    End Sub
    
    '点到老鼠
    Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
        n = n + 1
        Text1.Text = n
        Image1.MousePointer = 99 - custom
        Image1.MouseIcon = Image3.Picture
    End Sub
    '鼠标抬起
    Private Sub Image1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
        Image1.MousePointer = 99 - custom
        Image1.MouseIcon = Image2.Picture
    End Sub
    
    '点到空白
    Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
        Picture1.MousePointer = 99 - custom
        Picture1.MouseIcon = Image3.Picture
    End Sub
    '锤子跟着鼠标移动
    Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
        Picture1.MousePointer = 99 - custom
        Picture1.MouseIcon = Image2.Picture
    End Sub
    '鼠标在空白处抬起
    Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
        Picture1.MousePointer = 99 - custom
        Picture1.MouseIcon = Image2.Picture
    End Sub
    '老鼠随机位置 6960 2520 默认960 1920
    Private Sub Timer1_Timer()
        Randomize
        L = Int(Rnd * 6960 - 0)     '横着移动的范围
        T = Int(Rnd * 2520 - 960)        '竖着移动的范围
        Image1.Left = Picture1.Left + L
        Image1.Top = Picture1.Top + T
        Text2.Text = Image1.Left
        Text3.Text = Image1.Top
    End Sub
    
    '倒计时
    Private Sub Timer3_Timer()
        s = Val(Label1.Caption)
        s = s - 1
        Label1.Caption = s
        
        If s = 0 Then
            Timer1.Enabled = False
            Timer3.Enabled = False
            Image1.Visible = False
            Command1.Enabled = True
            Command2.Enabled = True
            Command3.Enabled = True
        
            If Text1.Text < 10 Then
                MsgBox "成绩不咋地"
            ElseIf Text1.Text < 20 Then
                MsgBox "真厉害!"
            Else
                MsgBox "打鼠英雄"
            End If
        End If
    End Sub
    
    展开全文

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 847
精华内容 338
关键字:

vb小游戏