module1.bas

来自「mif,mid文件的读写 和一些人工智能模型」· BAS 代码 · 共 38 行

Attribute VB_Name = "Module1"
'------------------------------------------------------------
'this sub displays the error message with it's Err code
'and prompts to show the Errors collection if it
'is a data access type error
'------------------------------------------------------------
Sub ShowError()

  Dim sTmp As String

  Screen.MousePointer = vbDefault
 

  sTmp = "The following failure take place:" & gsNewLine & gsNewLine
  'add the error string
  sTmp = sTmp & Error & gsNewLine
  'add the error number
  sTmp = sTmp & gsNewLine & "Mis No.: " & Err
  Beep

    MsgBox sTmp

End Sub





'------------------------------------------------------------
'this sub sets the HourGlass icon for the mouse
'------------------------------------------------------------
Sub SetHourglass()
  DoEvents  'cause forms to repaint before going on
  Screen.MousePointer = vbHourglass
End Sub