您所在位置：主题：ivf无模式对话框Windows程序设计时编译错误
surpasscxc
[专家分：60] 发布于 2010-09-11 17:02:00
错误提示：
E:\vs2008\ivf\chapter6\Ex_2\Ex_2\Ex_2\Therm.f90(43): error #6404: This name does not have a type, and must have an explicit type. [IDC_CURRENTVALUE]
E:\vs2008\ivf\chapter6\Ex_2\Ex_2\Ex_2\Therm.f90(43): error #6284: There is no matching specific function for this generic function reference. [DLGSET]
。。。。
一共有27处错误，都是与之类似的
出错的地方的代码是
lret = DlgInit(IDD_Therm_DIALOG, gdlg)
if (lret == .FALSE.) goto 99999
lret = DlgSetSub(gdlg, IDD_Therm_DIALOG, ThermSub)
lret = DlgSetSub(gdlg, IDM_APPLY, ThermApply)
lret = DlgSet( gdlg , IDC_CURRENTVALUE , '0' )
lret = DlgSet( gdlg , IDC_SPIN1 , 0 )
E:\vs2008\ivf\chapter6\Ex_2\Ex_2\Ex_2\Therm.f90(43): error #6404: This name does not have a type, and must have an explicit type. [IDC_CURRENTVALUE]
E:\vs2008\ivf\chapter6\Ex_2\Ex_2\Ex_2\Therm.f90(43): error #6284: There is no matching specific function for this generic function reference. [DLGSET]
。。。。
一共有27处错误，都是与之类似的
出错的地方的代码是
lret = DlgInit(IDD_Therm_DIALOG, gdlg)
if (lret == .FALSE.) goto 99999
lret = DlgSetSub(gdlg, IDD_Therm_DIALOG, ThermSub)
lret = DlgSetSub(gdlg, IDM_APPLY, ThermApply)
lret = DlgSet( gdlg , IDC_CURRENTVALUE , '0' )
lret = DlgSet( gdlg , IDC_SPIN1 , 0 )