form5.frm

我用VB做的一个校园导游系统！界面友好

VERSION 5.00
Begin VB.Form Form5 
   BackColor       =   &H00FFFF80&
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "错误提示三"
   ClientHeight    =   3255
   ClientLeft      =   3540
   ClientTop       =   3435
   ClientWidth     =   5310
   ControlBox      =   0   'False
   LinkTopic       =   "Form5"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3255
   ScaleWidth      =   5310
   ShowInTaskbar   =   0   'False
   Begin VB.CommandButton Command1 
      Caption         =   "返回"
      BeginProperty Font 
         Name            =   "华文彩云"
         Size            =   20.25
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   550
      Left            =   1920
      Picture         =   "Form5.frx":0000
      Style           =   1  'Graphical
      TabIndex        =   1
      Top             =   2280
      Width           =   1575
   End
   Begin VB.Image Image1 
      Height          =   855
      Left            =   120
      Picture         =   "Form5.frx":44C4
      Stretch         =   -1  'True
      Top             =   240
      Width           =   855
   End
   Begin VB.Label Label1 
      BackStyle       =   0  'Transparent
      Caption         =   "噢，您可以沿着这条路向北走，在第一个路口向左拐，在下一个路口也向左拐，在接下来的路口还向左拐，最后再向左拐就到了！"
      BeginProperty Font 
         Name            =   "华文新魏"
         Size            =   15.75
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00800000&
      Height          =   1695
      Left            =   1200
      TabIndex        =   0
      Top             =   360
      Width           =   3855
   End
End
Attribute VB_Name = "Form5"
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()
  Unload Form5
  DisableTrap Form5
  Form1.Text3 = ""
  Form1.Text3.SetFocus
End Sub

Private Sub Form_Load()
EnableTrap Form5
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