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

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

其他游戏

开发平台：

Visual Basic

Form1.frm：源码内容
  1. VERSION 5.00
  2. Begin VB.Form mainForm 
  3.    Caption         =   "键上飞打字王"
  4.    ClientHeight    =   5490
  5.    ClientLeft      =   45
  6.    ClientTop       =   330
  7.    ClientWidth     =   5430
  8.    ForeColor       =   &H0000C000&
  9.    Icon            =   "Form1.frx":0000
  10.    LinkTopic       =   "Form1"
  11.    MaxButton       =   0   'False
  12.    ScaleHeight     =   5490
  13.    ScaleWidth      =   5430
  14.    StartUpPosition =   3  'Windows Default
  15.    Begin VB.PictureBox Picture1 
  16.       AutoSize        =   -1  'True
  17.       Height          =   3480
  18.       Left            =   480
  19.       Picture         =   "Form1.frx":030A
  20.       ScaleHeight     =   3420
  21.       ScaleWidth      =   4500
  22.       TabIndex        =   4
  23.       Top             =   1080
  24.       Width           =   4560
  25.    End
  26.    Begin VB.CommandButton Command3 
  27.       Caption         =   " 退出"
  28.       Height          =   492
  29.       Left            =   3840
  30.       TabIndex        =   3
  31.       Top             =   4800
  32.       Width           =   1092
  33.    End
  34.    Begin VB.CommandButton Command2 
  35.       Caption         =   "打字练习"
  36.       Height          =   492
  37.       Left            =   2160
  38.       TabIndex        =   2
  39.       Top             =   4800
  40.       Width           =   1092
  41.    End
  42.    Begin VB.CommandButton entCommandtype 
  43.       Caption         =   "打字测试"
  44.       Height          =   492
  45.       Left            =   360
  46.       TabIndex        =   1
  47.       Top             =   4800
  48.       Width           =   1092
  49.    End
  50.    Begin VB.Label Label1 
  51.       Caption         =   "键上飞打字王"
  52.       BeginProperty Font 
  53.          Name            =   "黑体"
  54.          Size            =   36
  55.          Charset         =   134
  56.          Weight          =   700
  57.          Underline       =   0   'False
  58.          Italic          =   0   'False
  59.          Strikethrough   =   0   'False
  60.       EndProperty
  61.       ForeColor       =   &H00FF8080&
  62.       Height          =   735
  63.       Left            =   480
  64.       TabIndex        =   0
  65.       Top             =   240
  66.       Width           =   4575
  67.    End
  68. End
  69. Attribute VB_Name = "mainForm"
  70. Attribute VB_GlobalNameSpace = False
  71. Attribute VB_Creatable = False
  72. Attribute VB_PredeclaredId = True
  73. Attribute VB_Exposed = False
  74. Option Explicit
  76. Private Sub Command2_Click()
  77. Me.Hide
  78. tepedtestForm.Show
  79. End Sub
  81. '退出
  82. Private Sub Command3_Click()
  84. Me.Hide
  85. End
  86. End Sub
  88. '进入打字测试时间设置界面
  89. Private Sub entCommandtype_Click()
  90. Me.Hide
  91. setgameForm.Show
  94. End Sub
  96. '界初始化
  97. Private Sub Form_Load()
  98. Me.Left = (Screen.Width - Me.Width) / 2 - 50
  99. Me.Top = (Screen.Height - Me.Height) / 2 - 300
  102. End Sub