Category

Development Platform
Home > SourceCode/Document > Compress-Decompress algrithms > View Code
frmoption.frm
Package: VBdesign.zip　[view]
Upload User: wuyi06
Upload Date: 2015-04-09
Package Size: 1872k
Code Size: 4k
Category:

Compress-Decompress algrithms

Development Platform:

Visual Basic

frmoption.frm：Code Content
  1. VERSION 5.00
  2. Begin VB.Form frmoption 
  3.    BackColor       =   &H0080C0FF&
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   "俄罗斯方块游戏设置"
  6.    ClientHeight    =   2670
  7.    ClientLeft      =   45
  8.    ClientTop       =   330
  9.    ClientWidth     =   3405
  10.    Icon            =   "frmoption.frx":0000
  11.    LinkTopic       =   "Form1"
  12.    MaxButton       =   0   'False
  13.    ScaleHeight     =   2670
  14.    ScaleWidth      =   3405
  15.    StartUpPosition =   2  '屏幕中心
  16.    Begin VB.Frame frahard 
  17.       BackColor       =   &H0080C0FF&
  18.       Caption         =   "难度（高度）：0"
  19.       ForeColor       =   &H00C00000&
  20.       Height          =   855
  21.       Left            =   120
  22.       TabIndex        =   2
  23.       Top             =   1080
  24.       Width           =   3135
  25.       Begin VB.HScrollBar hsbhard 
  26.          Height          =   255
  27.          LargeChange     =   5
  28.          Left            =   240
  29.          Max             =   10
  30.          TabIndex        =   3
  31.          Top             =   360
  32.          Width           =   2775
  33.       End
  34.    End
  35.    Begin VB.Frame fralevel 
  36.       BackColor       =   &H0080C0FF&
  37.       Caption         =   "关卡（速度）：1"
  38.       ForeColor       =   &H00C00000&
  39.       Height          =   855
  40.       Left            =   120
  41.       TabIndex        =   0
  42.       Top             =   120
  43.       Width           =   3135
  44.       Begin VB.HScrollBar hsblevel 
  45.          Height          =   255
  46.          LargeChange     =   5
  47.          Left            =   240
  48.          Max             =   10
  49.          Min             =   1
  50.          TabIndex        =   1
  51.          Top             =   360
  52.          Value           =   1
  53.          Width           =   2775
  54.       End
  55.    End
  56.    Begin VB.Label Label2 
  57.       BackColor       =   &H0080C0FF&
  58.       Caption         =   "取消"
  59.       BeginProperty Font 
  60.          Name            =   "华文中宋"
  61.          Size            =   15.75
  62.          Charset         =   134
  63.          Weight          =   700
  64.          Underline       =   0   'False
  65.          Italic          =   0   'False
  66.          Strikethrough   =   0   'False
  67.       EndProperty
  68.       ForeColor       =   &H00800000&
  69.       Height          =   375
  70.       Left            =   1920
  71.       TabIndex        =   5
  72.       Top             =   2160
  73.       Width           =   735
  74.    End
  75.    Begin VB.Label label1 
  76.       BackColor       =   &H0080C0FF&
  77.       Caption         =   "确定"
  78.       BeginProperty Font 
  79.          Name            =   "华文中宋"
  80.          Size            =   15.75
  81.          Charset         =   134
  82.          Weight          =   700
  83.          Underline       =   0   'False
  84.          Italic          =   0   'False
  85.          Strikethrough   =   0   'False
  86.       EndProperty
  87.       ForeColor       =   &H00800000&
  88.       Height          =   375
  89.       Left            =   600
  90.       TabIndex        =   4
  91.       Top             =   2160
  92.       Width           =   735
  93.    End
  94. End
  95. Attribute VB_Name = "frmoption"
  96. Attribute VB_GlobalNameSpace = False
  97. Attribute VB_Creatable = False
  98. Attribute VB_PredeclaredId = True
  99. Attribute VB_Exposed = False
  100. Private Sub hsbhard_Change()
  101.     frahard.Caption = "难度（高度）：" + Str(hsbhard.Value)
  102. End Sub
  103. Private Sub hsbhard_Scroll()
  104.     frahard.Caption = "难度（高度）：" + Str(hsbhard.Value)
  105. End Sub
  106. Private Sub hsblevel_Change()
  107.     fralevel.Caption = "关卡（速度）：" + Str(hsblevel.Value)
  108. End Sub
  109. Private Sub hsblevel_Scroll()
  110.     fralevel.Caption = "关卡（速度）：" + Str(hsblevel.Value)
  111. End Sub
  112. Private Sub label1_Click()
  113.     frmoption.Hide
  114.     frmmain.Show
  115.     frmmain.txtlevel.Text = hsblevel.Value
  116.     frmmain.txthard.Text = hsbhard.Value
  117. End Sub
  119. Private Sub Label2_Click()
  120.     frmoption.Hide
  121.     frmmain.Show
  122. End Sub