calldlgsub.f90

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

SUBROUTINE calldlgSub( dlg, id, callbacktype )
  use user32
  use iflogm
  implicit none
  type (dialog) dlg
  integer id, callbacktype
  if (callbacktype == dlg_destroy) then
    call PostQuitMessage(0)
  endif
END SUBROUTINE calldlgSub