form6.frm

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

VERSION 5.00
Object = "{3A6644DE-3402-11D9-9DE7-C33FAA87690A}#1.0#0"; "WinXPCEngine.ocx"
Object = "{EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}#1.1#0"; "shdocvw.dll"
Begin VB.Form CallForm 
   AutoRedraw      =   -1  'True
   BackColor       =   &H00FF8080&
   BorderStyle     =   1  'Fixed Single
   Caption         =   "联系我们"
   ClientHeight    =   3330
   ClientLeft      =   45
   ClientTop       =   435
   ClientWidth     =   4680
   Icon            =   "Form6.frx":0000
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   MouseIcon       =   "Form6.frx":08CA
   MousePointer    =   99  'Custom
   ScaleHeight     =   3330
   ScaleWidth      =   4680
   StartUpPosition =   2  '屏幕中心
   Begin VB.CommandButton Command1 
      BackColor       =   &H00FF8080&
      Cancel          =   -1  'True
      Caption         =   "关闭(&X)"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   735
      Index           =   2
      Left            =   3120
      Picture         =   "Form6.frx":1194
      Style           =   1  'Graphical
      TabIndex        =   3
      ToolTipText     =   "关闭"
      Top             =   2314
      Width           =   1335
   End
   Begin VB.CommandButton Command1 
      BackColor       =   &H00FF8080&
      Caption         =   "系统信息(&S)"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   735
      Index           =   0
      Left            =   3120
      Picture         =   "Form6.frx":187E
      Style           =   1  'Graphical
      TabIndex        =   2
      ToolTipText     =   "显示系统信息"
      Top             =   281
      Width           =   1335
   End
   Begin VB.CommandButton Command1 
      BackColor       =   &H00FF8080&
      Caption         =   "联系我们(&C)"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   735
      Index           =   1
      Left            =   3120
      Picture         =   "Form6.frx":1F68
      Style           =   1  'Graphical
      TabIndex        =   1
      ToolTipText     =   "点击连接到网站"
      Top             =   1370
      Width           =   1335
   End
   Begin SHDocVwCtl.WebBrowser WebBrowser1 
      Height          =   3375
      Left            =   0
      TabIndex        =   0
      ToolTipText     =   "云南大学"
      Top             =   0
      Width           =   2775
      ExtentX         =   4895
      ExtentY         =   5953
      ViewMode        =   0
      Offline         =   0
      Silent          =   0
      RegisterAsBrowser=   0
      RegisterAsDropTarget=   1
      AutoArrange     =   0   'False
      NoClientEdge    =   0   'False
      AlignLeft       =   0   'False
      NoWebView       =   0   'False
      HideFileNames   =   0   'False
      SingleClick     =   0   'False
      SingleSelection =   0   'False
      NoFolders       =   0   'False
      Transparent     =   0   'False
      ViewID          =   "{0057D0E0-3573-11CF-AE69-08002B2E1262}"
      Location        =   ""
   End
   Begin WinXPC_Engine.WindowsXPC WindowsXPC1 
      Left            =   0
      Top             =   2760
      _ExtentX        =   6588
      _ExtentY        =   1085
      ColorScheme     =   2
      Common_Dialog   =   0   'False
   End
End
Attribute VB_Name = "CallForm"
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  '系统信息
            Dim dbl As Double
            On Error Resume Next    '遇错误(打开文件失败)就跳转执行下一行语句
            dbl = Shell(App.Path & "\file\winmsd.exe", vbNormalFocus)    '系统信息
            If dbl = 0 Then MsgBox "没有找到指定的文件", vbCritical, "错误"
        Case 1  '联系我们
            Dim success As Long
            success = ShellExecute(0&, vbNullString, "http://hi.baidu.com/fanxuanxuan", vbNullString, "C:\", 1)
        Case 2  '关闭
            Unload Me
    End Select
End Sub

Private Sub Form_Load()
    WindowsXPC1.InitSubClassing '初始化控件
    WebBrowser1.Navigate App.Path & "\picture\other\girl.gif"         '导入动画
End Sub