form2.frm

来自「我用VB做的一个校园导游系统！界面友好」· FRM 代码 · 共 87 行

VERSION 5.00
Begin VB.Form Form2 
   BackColor       =   &H00FFFF00&
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "错误提示一"
   ClientHeight    =   3090
   ClientLeft      =   3540
   ClientTop       =   3435
   ClientWidth     =   4680
   ControlBox      =   0   'False
   ForeColor       =   &H00000080&
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3090
   ScaleWidth      =   4680
   ShowInTaskbar   =   0   'False
   Begin VB.CommandButton Command1 
      BackColor       =   &H00FFFFFF&
      Caption         =   "重新输入"
      BeginProperty Font 
         Name            =   "华文新魏"
         Size            =   15
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   3000
      Picture         =   "Form2.frx":0000
      Style           =   1  'Graphical
      TabIndex        =   1
      Top             =   2400
      Width           =   1455
   End
   Begin VB.Label Label1 
      BackStyle       =   0  'Transparent
      Caption         =   "很抱歉！您想要游览的景点不在我们的学校！祝你在这里玩的开心！"
      BeginProperty Font 
         Name            =   "楷体_GB2312"
         Size            =   18
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00C00000&
      Height          =   1215
      Left            =   360
      TabIndex        =   0
      Top             =   600
      Width           =   3855
   End
End
Attribute VB_Name = "Form2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Declare Function LoadCursorFromFile Lib "user32" Alias "LoadCursorFromFileA" (ByVal lpFileName As String) As Long
Private Declare Function SetClassLong Lib "user32" Alias "SetClassLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Dim xin As Long
Dim jiu As Long
Private Sub Command1_Click()
  If Form1.Text3 = "" Then
    Form1.Text3.SetFocus
  Else
    Form1.Text2.SetFocus
  End If
  Unload Form2
  DisableTrap Form2
End Sub

Private Sub Form_Load()
EnableTrap Form2
xin = LoadCursorFromFile(App.Path & "\banana.ani")
jiu = SetClassLong(hwnd, -12, xin)
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
SetClassLong hwnd, -12, jiu
End Sub