winteracter 是一款强大的 Fortran 图形界面函数库,可方便的用 Fortran 生成GUI界面,对话框,菜单,绘图等操作。支持 windows/Linux/Mac 上的绝大多数编译器。具体可参考本站文章介绍>>>
其自带 wide 编译环境(是 Winteracter IDE 的缩写),但其功能比较简单,尤其是 debug 调试非常困难。因此,有必要用 Visual Studio 来代替。
二.配置使用方法
1. 配置 VS 的路径(仅第一次操作需要设置)
打开VS,选择工具菜单,选项。然后依次找到 IVF 的编译器设置

点击 Includes 后面的按钮,弹出包含列表,在其中咱贴上 Winteracter 安装目录下的 include 路径和 lib.if8 路径,例如,图中的两行(切不可删除原有的路径):

然后点开 Libraries 后的按钮,在其中的列表里粘贴上 lib.if8 的路径,如图(注意,这两处路径需填写您的计算机上安装的路径,切不可照抄图片上的路径):

2.使用 wide 创建资源(含对话框,菜单等)
由于 Winteracter 资源的特殊性,其资源编辑必须使用 wide 完成。
打开 wide,创建一个空白的工程。然后添加一个 Resource Script 资源脚本,在其中编辑部分资源,例如插入一个对话框。


此时,在 wide 工程文件夹下,会生成三个文件,其中 *.rc 和 *.f90 文件将来会用到。*.wpj 工程虽然无用,但方便打开 wide 修改资源,也请保留。

3. 使用 VS 创建工程并使用 winteracter
打开VS,创建工程,选择类型为 windows,empty(空白工程)

创建工程后,在工程的 resource files 文件夹上右键,选择添加,现有项。找到 *.rc 文件添加进来。(在选择文件时,可能需要切换文件类型为所有)

同理,把 resid.f90 添加到 source files

!!!重要警告!!!由于 winteracter 的资源特殊性,*.rc 文件千万不能由 Visual Studio 打开,否则会破坏其结构!!!无法挽回!!!
然后再添加您自己的源代码,在使用到资源时,用 use RESID 获得资源的ID。
例如,添加如下代码,可实现最简单的对话框创建(假定对话框ID为 IDD_DIALOG001)。
Module Global Use Winteracter !// 使用 Winteracter Use Resid !// 使用 Resid 资源ID Implicit None End Module Global Program www_fcode_cn Use Global Implicit None TYPE(WIN_MESSAGE) :: MESSAGE LOGICAL :: QUIT = .FALSE. INTEGER :: ITYPE CALL WInitialise() !// 初始化 CALL WindowOpen(HideWindow) !// 打开窗口 CALL WDialogLoad(IDD_DIALOG001) !// 加载对话框 CALL WDialogShow(-1,-1,0,Modeless) !// 显示对话框 DO WHILE(.NOT.QUIT) !// 无穷消息循环 CALL WMessage(ITYPE,MESSAGE) SELECT CASE (ITYPE) CASE (PushButton) CALL ProcessButton(MESSAGE%VALUE1,QUIT) END SELECT END DO CALL WindowClose() STOP Contains Subroutine ProcessButton(IDENT,QUIT) IMPLICIT NONE INTEGER, INTENT (IN) :: IDENT LOGICAL, INTENT (IN OUT) :: QUIT SELECT CASE (IDENT) CASE (IDCANCEL) QUIT = .TRUE. !// 如果按下 IDCANCEL 按钮,退出 End select End Subroutine ProcessButton End Program www_fcode_cn然后,在 Visual Studio 中,打开工程属性(在工程上右键,属性),然后展开 链接器(Linker) 设置,输入(Input),在 Additional Dependencies 中输入以下 lib 文件:
winter.lib comdlg32.lib opengl32.lib winmm.lib winspool.lib advapi32.lib glu32.lib Shell32.lib
如图:

编译,链接。一切正常的话,一般就可以得到结果了。
