calldlgsub.f90

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

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