pbdlgsub.f90

来自「Intel Visual Fortran 应用程序开发 周振红编著」· F90 代码 · 共 17 行

subroutine PBDlgSub( dlg, id, callbacktype )
  use ProgressBox
  use user32
  implicit none
  ! Arguments
  type (dialog) dlg
  integer id, callbacktype
  ! Variables
  type(PBContext) context
  pointer ( pc, context )
  integer iret
  if (callbacktype == dlg_destroy) then
      !  Remove the window property
      pc = GetProp( dlg % hwnd, "PBContext" )
      iret = RemoveProp( context % PBDlg % hwnd, "PBContext" )
  endif
end subroutine PBDlgSub