?? cancelsub.f90
字號:
subroutine CancelSub( 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
! Set the bCancelled flag in the context block.
! SetProgress checks this flag and returns PBStatus_Aborted
if (callbacktype == dlg_clicked) then
! Get the "context" window property
pc = GetProp( dlg % hwnd, "PBContext" )
context % bCancelled = .TRUE.
endif
end subroutine CancelSub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -