求助：如何选择文件并把文件路径显示到编辑对话框

fcode

涉及修改部分，用 !//*** 标出

[Fortran] 纯文本查看 复制代码

SUBROUTINE INPSEC(DLG,ID,CALLBACKTYPE)   !//该子程序的目的是将子程序“XZWJ”中获得的文件路径写入到编辑对话框中
  USE IFQWIN
  USE IFLOGM
  USE CONTROLS
  IMPLICIT NONE
  TYPE(DIALOG)::DLG
  LOGICAL*4 RESULTS
  INTEGER(KIND=4)::ID,CALLBACKTYPE
  INTEGER :: WDIR
  CHARACTER(LEN=50)::STR,STR1     
  CALL XZWJ(STR)                   !//***传入字符串STR
  !STR1=WDIR                         !//***此句不要
  RESULTS=DlgSet(dlg,IDC_INPDIR,STR)!//改变编辑对话框中的内容
  !WRITE(STR,*)STR1                  !//***此句不要
END SUBROUTINE INPSEC

SUBROUTINE XZWJ(STR)   !//***传入字符串STR
  USE IFQWIN
  IMPLICIT NONE
  INTEGER :: WDIR
  CHARACTER(LEN=50)::STR
  CHARACTER( LEN = 512 ) :: C
  WDIR = SELECTFILE( C )
  STR=TRIM(C)   
  !IF ( WDIR /=0 ) WRITE(*,*) "已选择文件:" , STR !//***此句不要
CONTAINS