开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 游戏 > 其他游戏 > 查看源码
Form1.frm
资源名称：七八个vb游戏.rar　[点击查看]
上传用户：tashmp
上传日期：2010-04-03
资源大小：882k
文件大小：12k
源码类别：

其他游戏

开发平台：

Visual Basic

Form1.frm：源码内容
  1. VERSION 5.00
  2. Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
  3. Begin VB.Form Form1 
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   "贪吃蛇"
  6.    ClientHeight    =   6255
  7.    ClientLeft      =   150
  8.    ClientTop       =   720
  9.    ClientWidth     =   5190
  10.    FillColor       =   &H00FFFFFF&
  11.    Icon            =   "Form1.frx":0000
  12.    KeyPreview      =   -1  'True
  13.    LinkTopic       =   "Form1"
  14.    MaxButton       =   0   'False
  15.    MinButton       =   0   'False
  16.    Picture         =   "Form1.frx":030A
  17.    ScaleHeight     =   6255
  18.    ScaleWidth      =   5190
  19.    StartUpPosition =   3  'Windows Default
  20.    Begin MSComctlLib.Toolbar Toolbar1 
  21.       Align           =   1  'Align Top
  22.       Height          =   870
  23.       Left            =   0
  24.       TabIndex        =   1
  25.       Top             =   0
  26.       Width           =   5190
  27.       _ExtentX        =   9155
  28.       _ExtentY        =   1535
  29.       ButtonWidth     =   1349
  30.       ButtonHeight    =   1376
  31.       Appearance      =   1
  32.       ImageList       =   "ImageList1"
  33.       DisabledImageList=   "ImageList1"
  34.       _Version        =   393216
  35.       BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
  36.          NumButtons      =   6
  37.          BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  38.             Key             =   "start"
  39.             Object.ToolTipText     =   "开始游戏"
  40.             ImageIndex      =   1
  41.          EndProperty
  42.          BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  43.             Key             =   "stop"
  44.             Object.ToolTipText     =   "暂停游戏"
  45.             ImageIndex      =   2
  46.          EndProperty
  47.          BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  48.             Key             =   "gogo"
  49.             Object.ToolTipText     =   "解除暂停"
  50.             ImageIndex      =   4
  51.          EndProperty
  52.          BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  53.             Key             =   "mm"
  54.             Object.ToolTipText     =   "背景选择"
  55.             ImageIndex      =   3
  56.          EndProperty
  57.          BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  58.             Key             =   "nd"
  59.             Object.ToolTipText     =   "难度选择"
  60.             ImageIndex      =   5
  61.             Style           =   5
  62.             BeginProperty ButtonMenus {66833FEC-8583-11D1-B16A-00C0F0283628} 
  63.                NumButtonMenus  =   3
  64.                BeginProperty ButtonMenu1 {66833FEE-8583-11D1-B16A-00C0F0283628} 
  65.                   Key             =   "man"
  66.                   Text            =   "较慢"
  67.                EndProperty
  68.                BeginProperty ButtonMenu2 {66833FEE-8583-11D1-B16A-00C0F0283628} 
  69.                   Key             =   "common"
  70.                   Text            =   "中等"
  71.                EndProperty
  72.                BeginProperty ButtonMenu3 {66833FEE-8583-11D1-B16A-00C0F0283628} 
  73.                   Key             =   "kuai"
  74.                   Text            =   "较快"
  75.                EndProperty
  76.             EndProperty
  77.          EndProperty
  78.          BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  79.             Key             =   "overgame"
  80.             Object.ToolTipText     =   "退出游戏"
  81.             ImageIndex      =   6
  82.          EndProperty
  83.       EndProperty
  84.    End
  85.    Begin MSComctlLib.ImageList ImageList1 
  86.       Left            =   4560
  87.       Top             =   2880
  88.       _ExtentX        =   1005
  89.       _ExtentY        =   1005
  90.       BackColor       =   12632256
  91.       ImageWidth      =   44
  92.       ImageHeight     =   46
  93.       MaskColor       =   12632256
  94.       _Version        =   393216
  95.       BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  96.          NumListImages   =   6
  97.          BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  98.             Picture         =   "Form1.frx":A2F5
  99.             Key             =   ""
  100.          EndProperty
  101.          BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  102.             Picture         =   "Form1.frx":BC77
  103.             Key             =   ""
  104.          EndProperty
  105.          BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  106.             Picture         =   "Form1.frx":C569
  107.             Key             =   ""
  108.          EndProperty
  109.          BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  110.             Picture         =   "Form1.frx":DEEB
  111.             Key             =   ""
  112.          EndProperty
  113.          BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  114.             Picture         =   "Form1.frx":E792
  115.             Key             =   ""
  116.          EndProperty
  117.          BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  118.             Picture         =   "Form1.frx":F073
  119.             Key             =   ""
  120.          EndProperty
  121.       EndProperty
  122.    End
  123.    Begin VB.Timer Timer3 
  124.       Interval        =   700
  125.       Left            =   4680
  126.       Top             =   2280
  127.    End
  128.    Begin VB.Timer Timer2 
  129.       Interval        =   5000
  130.       Left            =   4680
  131.       Top             =   1320
  132.    End
  133.    Begin VB.Timer Timer1 
  134.       Interval        =   200
  135.       Left            =   4680
  136.       Top             =   1800
  137.    End
  138.    Begin VB.Label Labelscore 
  139.       BackColor       =   &H80000008&
  140.       Caption         =   "0"
  141.       BeginProperty Font 
  142.          Name            =   "MS Sans Serif"
  143.          Size            =   9.75
  144.          Charset         =   0
  145.          Weight          =   700
  146.          Underline       =   0   'False
  147.          Italic          =   0   'False
  148.          Strikethrough   =   0   'False
  149.       EndProperty
  150.       ForeColor       =   &H80000009&
  151.       Height          =   375
  152.       Left            =   4680
  153.       TabIndex        =   0
  154.       Top             =   960
  155.       Width           =   495
  156.    End
  157.    Begin VB.Shape Shape2 
  158.       BorderColor     =   &H80000003&
  159.       FillColor       =   &H0080FF80&
  160.       FillStyle       =   0  'Solid
  161.       Height          =   135
  162.       Left            =   480
  163.       Shape           =   3  'Circle
  164.       Top             =   2520
  165.       Width           =   135
  166.    End
  167.    Begin VB.Shape Shape1 
  168.       BorderColor     =   &H80000001&
  169.       FillColor       =   &H00FF80FF&
  170.       FillStyle       =   0  'Solid
  171.       Height          =   255
  172.       Index           =   3
  173.       Left            =   4080
  174.       Top             =   4200
  175.       Width           =   255
  176.    End
  177.    Begin VB.Shape Shape1 
  178.       BorderColor     =   &H80000001&
  179.       FillColor       =   &H00C0C0FF&
  180.       FillStyle       =   0  'Solid
  181.       Height          =   255
  182.       Index           =   2
  183.       Left            =   3840
  184.       Top             =   4200
  185.       Width           =   255
  186.    End
  187.    Begin VB.Shape Shape1 
  188.       BorderColor     =   &H80000004&
  189.       FillColor       =   &H0080FF80&
  190.       FillStyle       =   0  'Solid
  191.       Height          =   255
  192.       Index           =   1
  193.       Left            =   3600
  194.       Top             =   4200
  195.       Width           =   255
  196.    End
  197.    Begin VB.Shape Shape1 
  198.       BorderColor     =   &H80000001&
  199.       FillColor       =   &H00FF8080&
  200.       FillStyle       =   0  'Solid
  201.       Height          =   255
  202.       Index           =   0
  203.       Left            =   3360
  204.       Shape           =   2  'Oval
  205.       Top             =   4200
  206.       Width           =   255
  207.    End
  208.    Begin VB.Line Line4 
  209.       BorderColor     =   &H80000001&
  210.       X1              =   0
  211.       X2              =   0
  212.       Y1              =   960
  213.       Y2              =   6240
  214.    End
  215.    Begin VB.Line Line3 
  216.       BorderColor     =   &H80000001&
  217.       X1              =   5160
  218.       X2              =   0
  219.       Y1              =   6240
  220.       Y2              =   6240
  221.    End
  222.    Begin VB.Line Line2 
  223.       BorderColor     =   &H80000001&
  224.       X1              =   5160
  225.       X2              =   5160
  226.       Y1              =   960
  227.       Y2              =   6240
  228.    End
  229.    Begin VB.Line Line1 
  230.       BorderColor     =   &H80000001&
  231.       X1              =   0
  232.       X2              =   5160
  233.       Y1              =   960
  234.       Y2              =   960
  235.    End
  236.    Begin VB.Menu game 
  237.       Caption         =   "游戏"
  238.       Begin VB.Menu start 
  239.          Caption         =   "开始"
  240.       End
  241.    End
  242. End
  243. Attribute VB_Name = "Form1"
  244. Attribute VB_GlobalNameSpace = False
  245. Attribute VB_Creatable = False
  246. Attribute VB_PredeclaredId = True
  247. Attribute VB_Exposed = False
  249. Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
  250.   'Runawy =0 左移
  251.   '       =1 上移
  252.   '       =2 右
  253.   '       =3 下
  254.   
  255.   Select Case KeyCode
  256.    Case 37 '点击左键
  257.      If Runway <> 2 Then '蛇没有向右移动
  258.      Runway = 0 '左
  259.      End If
  260.      Case 38 '点击上键
  261.       If Runway <> 3 Then
  262.       Runway = 1
  263.      End If
  264.      Case 39 '点击右键
  265.      If Runway <> 0 Then
  266.      Runway = 2
  267.      End If
  268.      Case 40 '点击下键
  269.      If Runway <> 1 Then
  270.      Runway = 3
  271.      End If
  272.      Case 83 '点击s键为暂停
  273.        'MsgBox "s键"
  274.        Call stop_game
  275.        Case 84 '再次开始游戏
  276.        Call start_game
  277.        
  278.    End Select
  281. End Sub
  283. Private Sub Form_Load()
  284. Timer1.Enabled = False
  285. Timer2.Enabled = False
  286. 'Shape2.Visible = False
  287. Timer3.Enabled = False
  288. Form1.picture = LoadPicture("")
  290. p = 0
  291. p1 = 0
  292. Runway = 0
  293. Runstep = Shape1(0).Width
  294. maxlong = 3 '记录蛇身的长度
  295. m_game = 1 '第一关
  296. score = 0 '记录分数
  297. 'Line5.Visible = False
  298. Labelscore.ForeColor = RGB(0, 255, 0)
  299. time1 = Timer1.Interval
  301. Dim i As Integer
  302. For i = 0 To 3 Step 1 '游戏开始前 记录蛇的位置
  303. snake_init(i).x = Shape1(i).Left
  304. snake_init(i).y = Shape1(i).Top
  305. '
  306. 'snake_stop(i).x = Shape1(i).Left
  307. 'snake_stop(i).y = Shape1(i).Top
  309. Next i
  311. End Sub
  315. '开始游戏
  316. Private Sub start_Click()
  317. Timer1.Enabled = True
  318. Timer2.Enabled = True
  319. Call init_game
  320. End Sub
  322. Private Sub stop_Click()
  325. End Sub
  327. '
  328. Private Sub Timer1_Timer()
  329. '在蛇移动前 记录蛇头的位置
  331. snake_point.x = Shape1(0).Left
  332. snake_point.y = Shape1(0).Top
  333. 'snake_stopX(0) = Shape1(0).Left
  334. 'snake_stopY(0) = Shape1(0).Top
  336. Select Case Runway
  337.  Case 0 '左移动
  338.  Shape1(0).Left = Shape1(0).Left - Runstep
  339.   Call move_snake '移动蛇
  340.   Call vore_game '判断游戏是否结束
  341.   Call group_snake '记录蛇的增长
  342.  Case 1 '上移动
  343.  Shape1(0).Top = Shape1(0).Top - Runstep
  344.   Call move_snake '移动蛇
  345.   Call vore_game '判断游戏是否结束
  346.   Call group_snake '记录蛇的增长
  347. Case 2 ' 右移动
  348.   Shape1(0).Left = Shape1(0).Left + Runstep
  349.   Call move_snake '移动蛇
  350.   Call vore_game '判断游戏是否结束
  351.   Call group_snake '记录蛇的增长
  352.  Case 3
  353.   Shape1(0).Top = Shape1(0).Top + Runstep
  354.   Call move_snake '移动蛇
  355.   Call vore_game '判断游戏是否结束
  356.   Call group_snake '记录蛇的增长
  358. End Select
  359. End Sub
  361. '生成食物
  362. Private Sub Timer2_Timer()
  363. Dim pointx As Integer
  364. Dim pointy As Integer
  365. Randomize
  366. pointx = Rnd * (Line1.X2 - Line1.X1 + 5) + Line1.X1
  367. pointy = Rnd * (Line2.Y2 - Line2.Y1 + 5) + Line2.Y1
  368. Shape2.Left = pointx
  369. Shape2.Top = pointy
  370. Shape2.FillColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
  372. Shape2.Visible = True
  374. Timer2.Interval = 5000
  376. End Sub
  381. Private Sub Timer3_Timer()
  382. p1 = p1 + 1
  383.  p = p + 1
  384. Dim i As Integer
  385.  If p Mod 2 = 1 Then
  386.   
  388. For i = 0 To maxlong Step 1
  389.  Shape1(i).Visible = False
  390. Next i
  391. Else
  394. For i = 0 To maxlong Step 1
  395. Shape1(i).Visible = True
  396. Next i
  398. End If
  399. If p1 = 6 Then
  400. Timer3.Enabled = False
  402. 'MsgBox "结束游戏!!"
  403. End If
  404. Screen.MousePointer = vbArrow
  405. End Sub
  411. Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
  412.      Select Case Button.Key
  413. Case "start"
  414.    Call start_Click
  415. Case "stop"
  416.    Call stop_game
  417.    Case "gogo"
  418.    Call start_game
  419.    
  420. Case "mm"
  421. Static picture As Integer
  422. picture = (picture + 1) Mod 4
  423.   If picture = 0 Then
  424.  Form1.picture = LoadPicture("")
  425.  Exit Sub
  426.  End If
  427. Dim s1 As String
  428. s1 = "bj" & picture & ".jpg"
  429.  
  430. Form1.picture = LoadPicture(App.Path + s1)
  432.      End Select
  433. End Sub