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

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

其他游戏

开发平台：

Visual Basic

selectwzForm.frm：源码内容
  1. VERSION 5.00
  2. Begin VB.Form selectwzForm 
  3.    Caption         =   "打字文章选择"
  4.    ClientHeight    =   3720
  5.    ClientLeft      =   60
  6.    ClientTop       =   390
  7.    ClientWidth     =   4680
  8.    LinkTopic       =   "Form1"
  9.    ScaleHeight     =   3720
  10.    ScaleWidth      =   4680
  11.    StartUpPosition =   3  'Windows Default
  12.    Begin VB.CommandButton Command2 
  13.       Caption         =   "取消"
  14.       Height          =   495
  15.       Left            =   2880
  16.       TabIndex        =   3
  17.       Top             =   3120
  18.       Width           =   1215
  19.    End
  20.    Begin VB.CommandButton Command1 
  21.       Caption         =   "确定"
  22.       Height          =   495
  23.       Left            =   360
  24.       TabIndex        =   2
  25.       Top             =   3120
  26.       Width           =   1215
  27.    End
  28.    Begin VB.Frame Frame1 
  29.       Caption         =   "选择你想练习的文章"
  30.       Height          =   1695
  31.       Left            =   360
  32.       TabIndex        =   1
  33.       Top             =   1320
  34.       Width           =   3855
  35.       Begin VB.OptionButton Option4 
  36.          Caption         =   "great"
  37.          BeginProperty Font 
  38.             Name            =   "MS Sans Serif"
  39.             Size            =   12
  40.             Charset         =   0
  41.             Weight          =   700
  42.             Underline       =   0   'False
  43.             Italic          =   0   'False
  44.             Strikethrough   =   0   'False
  45.          EndProperty
  46.          Height          =   570
  47.          Left            =   2400
  48.          TabIndex        =   7
  49.          Top             =   960
  50.          Width           =   1335
  51.       End
  52.       Begin VB.OptionButton Option3 
  53.          Caption         =   "Chang"
  54.          BeginProperty Font 
  55.             Name            =   "MS Sans Serif"
  56.             Size            =   12
  57.             Charset         =   0
  58.             Weight          =   700
  59.             Underline       =   0   'False
  60.             Italic          =   0   'False
  61.             Strikethrough   =   0   'False
  62.          EndProperty
  63.          Height          =   570
  64.          Left            =   120
  65.          TabIndex        =   6
  66.          Top             =   960
  67.          Width           =   1335
  68.       End
  69.       Begin VB.OptionButton Option2 
  70.          Caption         =   "Davao"
  71.          BeginProperty Font 
  72.             Name            =   "MS Sans Serif"
  73.             Size            =   9.75
  74.             Charset         =   0
  75.             Weight          =   700
  76.             Underline       =   0   'False
  77.             Italic          =   0   'False
  78.             Strikethrough   =   0   'False
  79.          EndProperty
  80.          Height          =   375
  81.          Left            =   2400
  82.          TabIndex        =   5
  83.          Top             =   360
  84.          Width           =   1095
  85.       End
  86.       Begin VB.OptionButton Option1 
  87.          Caption         =   "girl"
  88.          BeginProperty Font 
  89.             Name            =   "MS Sans Serif"
  90.             Size            =   12
  91.             Charset         =   0
  92.             Weight          =   700
  93.             Underline       =   0   'False
  94.             Italic          =   0   'False
  95.             Strikethrough   =   0   'False
  96.          EndProperty
  97.          Height          =   330
  98.          Left            =   240
  99.          TabIndex        =   4
  100.          Top             =   360
  101.          Value           =   -1  'True
  102.          Width           =   855
  103.       End
  104.    End
  105.    Begin VB.Image Image1 
  106.       Height          =   690
  107.       Left            =   3960
  108.       Picture         =   "selectwzForm.frx":0000
  109.       Top             =   360
  110.       Width           =   660
  111.    End
  112.    Begin VB.Label Label1 
  113.       BackStyle       =   0  'Transparent
  114.       Caption         =   "打字文章选择"
  115.       BeginProperty Font 
  116.          Name            =   "方正舒体"
  117.          Size            =   24
  118.          Charset         =   134
  119.          Weight          =   700
  120.          Underline       =   0   'False
  121.          Italic          =   0   'False
  122.          Strikethrough   =   0   'False
  123.       EndProperty
  124.       ForeColor       =   &H00FF8080&
  125.       Height          =   615
  126.       Left            =   480
  127.       TabIndex        =   0
  128.       Top             =   240
  129.       Width           =   3255
  130.    End
  131. End
  132. Attribute VB_Name = "selectwzForm"
  133. Attribute VB_GlobalNameSpace = False
  134. Attribute VB_Creatable = False
  135. Attribute VB_PredeclaredId = True
  136. Attribute VB_Exposed = False
  137. Private Sub Command1_Click()
  138.  If Option1.Value = True Then
  139.  scrapname = "girl.txt"
  140. ' deforescrapname = scrapname
  141.  mode = False
  142.  ElseIf Option2.Value = True Then
  143.   scrapname = "Davao.txt"
  144.  ' deforescrapname = scrapname
  145.   mode = False
  146.  ElseIf Option3.Value = True Then
  147.  scrapname = "Chang.txt"
  148. ' deforescrapname = scrapname
  149.   mode = False
  150.   Else
  151.   scrapname = "great.txt"
  152.   mode = False
  153.  End If
  154.  Me.Hide
  155.  
  156. End Sub
  158. Private Sub Command2_Click()
  159. Me.Hide
  161. End Sub