form3.frm

N迷游戏问题(拼图类)可以支持3--35迷

VERSION 5.00
Object = "{3A6644DE-3402-11D9-9DE7-C33FAA87690A}#1.0#0"; "WinXPCEngine.ocx"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form DefForm 
   AutoRedraw      =   -1  'True
   BackColor       =   &H00FF8080&
   BorderStyle     =   1  'Fixed Single
   Caption         =   "自定义"
   ClientHeight    =   1740
   ClientLeft      =   45
   ClientTop       =   435
   ClientWidth     =   3540
   Icon            =   "Form3.frx":0000
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   MouseIcon       =   "Form3.frx":08CA
   MousePointer    =   99  'Custom
   ScaleHeight     =   1740
   ScaleWidth      =   3540
   StartUpPosition =   2  '屏幕中心
   Begin VB.CommandButton Command1 
      BackColor       =   &H00FF8080&
      Cancel          =   -1  'True
      Caption         =   "取消(&C)"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   615
      Index           =   1
      Left            =   2003
      Picture         =   "Form3.frx":1194
      Style           =   1  'Graphical
      TabIndex        =   3
      ToolTipText     =   "取消"
      Top             =   960
      Width           =   975
   End
   Begin VB.CommandButton Command1 
      BackColor       =   &H00FF8080&
      Caption         =   "确定(&O)"
      Default         =   -1  'True
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   615
      Index           =   0
      Left            =   563
      Picture         =   "Form3.frx":187E
      Style           =   1  'Graphical
      TabIndex        =   2
      ToolTipText     =   "确定"
      Top             =   960
      Width           =   975
   End
   Begin VB.TextBox Text1 
      BackColor       =   &H00FF8080&
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   21.75
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H0000FFFF&
      Height          =   495
      Left            =   2040
      Locked          =   -1  'True
      TabIndex        =   1
      Text            =   "15"
      Top             =   240
      Width           =   615
   End
   Begin MSComctlLib.Slider SliderBar 
      Height          =   495
      Left            =   240
      TabIndex        =   0
      Top             =   240
      Width           =   1575
      _ExtentX        =   2778
      _ExtentY        =   873
      _Version        =   393216
      Min             =   3
      Max             =   35
      SelStart        =   15
      TickStyle       =   3
      Value           =   15
   End
   Begin WinXPC_Engine.WindowsXPC WindowsXPC1 
      Left            =   0
      Top             =   960
      _ExtentX        =   6588
      _ExtentY        =   1085
      ColorScheme     =   2
      Common_Dialog   =   0   'False
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      BackColor       =   &H00FF8080&
      BackStyle       =   0  'Transparent
      Caption         =   "迷"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   21.75
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   435
      Left            =   2760
      TabIndex        =   4
      Top             =   240
      Width           =   450
   End
End
Attribute VB_Name = "DefForm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit '强制显式声明模块中的所有变量

Private Sub Command1_Click(Index As Integer)
    Select Case Index
        Case 0  '确定
            MainForm.my_Level = Val(Text1.Text)
            MainForm.my_Ext = True  '按下"确定"按钮
        Case 1  '取消
            MainForm.my_Ext = False '未按下"确定"按钮
    End Select
    Unload Me
End Sub

Private Sub Form_Load()
    WindowsXPC1.InitSubClassing '初始化控件
End Sub

Private Sub SliderBar_Scroll()
    If SliderBar.Value < 8 Then
        SliderBar.Value = 3     '3迷
    ElseIf SliderBar.Value < 15 Then
        SliderBar.Value = 8     '8迷
    ElseIf SliderBar.Value < 24 Then
        SliderBar.Value = 15    '15迷
    ElseIf SliderBar.Value < 35 Then
        SliderBar.Value = 24    '24迷
    Else
        SliderBar.Value = 35    '35迷
    End If
    Text1.Text = SliderBar.Value
End Sub

Private Sub Text1_GotFocus()    '全选文本框内的内容
    Text1.SelStart = 0
    Text1.SelLength = Len(Text1.Text)
End Sub