progressboxtypes.f90

Intel Visual Fortran 应用程序开发 周振红编著

!  Module containing definitions used in the public interfaces
module ProgressBoxTypes
  use iflogm
  !  Global variables
  integer ghinst
  !  PBContext type used in calls
  type :: PBContext
    sequence 
    type (dialog), pointer :: PBDlg
    integer                   hwndParent
    logical                   bCancelButton
    integer                   iProgress
    logical                   bEnableParent
    logical                   bCancelled
  end type
  !  Status return values 
  integer, parameter, public :: PBStatus_OK         = 1
  integer, parameter, public :: PBStatus_Failed     = -1
  integer, parameter, public :: PBStatus_Aborted    = -2
end module ProgressBoxTypes

!  Module containing the public interfaces

module ProgressBox
  use ProgressBoxTypes
  interface
    integer function DisplayProgressBox(    &
                    context,            &
                    hwndParent,         &
                    title,              &
                    bCancelButton ) 
    !DEC$ ATTRIBUTES DLLEXPORT::DisplayProgressBox
      use ProgressBoxTypes
      ! Arguments
      type(PBContext) context
      integer hwndParent
      character*(*) title
      logical bCancelButton
    end function
    integer function SetProgress ( context, value )
    !DEC$ ATTRIBUTES DLLEXPORT::SetProgress
      use ProgressBoxTypes
      ! Arguments
      type(PBContext) context
      integer value
    end function
    integer function DestroyProgressBox( context )
    !DEC$ ATTRIBUTES DLLEXPORT::DestroyProgressBox
      use ProgressBoxTypes
      ! Arguments
      type(PBContext) context
    end function
  end interface
end module ProgressBox