Full Version: Windows Appilication

From: Eddie% (ENCARNACIONEA) [#1]
 21 Jul 2008
To: ALL

žže Visual Fortran,þ8èžže Visual Fortran,þ8èžže Visual Fortran,þ8èžže Visual Fortran,þ8èžže Visual Fortran,þ8èžže Visual Fortran,þ8èžže Visual Fortran,þ8èžže Visual Fortran,þ8èžže Visual Fortran,þ8èžže Visual Fortran,þ8èžže Visual Fortran,þ8èžže Visual Fortran,þ8èžže Visual Fortran,þ8èžže Visual Fortran,þ8èžže Visual Fortran,þ8èžže Visual Fortran,þ8èžže Visual Fortran,þ8èžže Visual Fortran,þ8èžže Visual Fortran,þ8èžže Visual Fortran,þ8èžže Visual Fortran,þ8èžže Visual Fortran,þ8èžže Visual Fortran,þ8èžže Visual Fortran,þ8èžže Visual Fortran,þ8èžže Visual Fortran,þ8èžže Visual Fortran,þ8èžže Visual Fortran,þ8èžže Visual Fortran,þ8èžže Visual Fortran,þ8èžže Visual Fortran,þ8èžže Visual Fortran,þ8èžže Visual Fortran,þ8èžže Visual Fortran,þ8èžže Visual Fortran,þ8èžže Visual Fortran,þ8èžže Visual Fortran,þ8èžže Visual Fortran,þ8èžže Visual Fortran,þ8èžže Visual Fortran,þ8èžže Visual Fortran,þ8èžže Visual Fortran,þ8èžže Visual Fortran,þ8èžže Visual Fortran,þ8èžže Visual

Reply

From: Eddie% (ENCARNACIONEA) [#2]
 23 Jul 2008
To: Eddie% (ENCARNACIONEA) [#1] 23 Jul 2008

0ž0ž have found the reason to my original problem. I need to use the function InitCommonControlsEx to initialize the progress bar, which is part of the common controls family. The new challenge is that this function is not in the DFWIN library. It is in the COMCTL32 library. When I try to compile it, I get the error message "Error in opening the library module file. [COMCTL32]. . . f90: Fatal: There has been an internal compiler error (00000000). Please report this, along with the command line and source files used. . ."

Has anybody used the InitCommonControlsEx function in Fortran successfully? Has anybody experienced a similar problem? If so, what was the solution?

Your help is appreciated.

Thanks,

Eddie%

Reply

From: geezer (MG) [#3]
 24 Jul 2008
To: Eddie% (ENCARNACIONEA) [#2] 24 Jul 2008

A simple (old-style)
CALL InitCommonControls ( )
is enough for a Progress Bar.

You're right in that this interface is defined in COMCTL32. A
USE DFWIN
willl include this (at least in CVF 6)

Reply

From: Eddie% (ENCARNACIONEA) [#4]
 24 Jul 2008
To: geezer (MG) [#3] 24 Jul 2008

geezer (MG)

Thanks for your reply. I tried using call InitCommonControls ( ), but the problem is that this routine is not defined in my DFWIN library. I get the "unresolved external symbol" error message. I know I'm using an old version of Fortran, but there has to be a way of using the COMCTL32library with my version.

Thanks,

Eddie%

Reply

From: geezer (MG) [#5]
 24 Jul 2008
To: Eddie% (ENCARNACIONEA) [#4] 25 Jul 2008

I see COMCTL32.LIB on the Ver. 5.0A distribution CD under DVF_50A\X86\VC\LIB and InitCommonControls is in it. So I guess that's not your problem.

What I don't see on the distribution CD is COMCTL32.f90 which contains the interface definition which (in Version 6.6) is:

INTERFACE
SUBROUTINE InitCommonControls( &
)
USE DFWINTY
!DEC$ ATTRIBUTES DEFAULT, STDCALL, DECORATE, ALIAS:'InitCommonControls' :: InitCommonControls
END SUBROUTINE
END INTERFACE

Hope this helps.

Reply

From: Eddie% (ENCARNACIONEA) [#6]
 28 Jul 2008
To: geezer (MG) [#5] 31 Jul 2008

žžr (MG)

Yoþ8n žžr (MG)

Yoþ8n žžr (MG)

Yoþ8n žžr (MG)

Yoþ8n žžr (MG)

Yoþ8n žžr (MG)

Yoþ8n žžr (MG)

Yoþ8n žžr (MG)

Yoþ8n žžr (MG)

Yoþ8n žžr (MG)

Yoþ8n žžr (MG)

Yoþ8n žžr (MG)

Yoþ8n žžr (MG)

Yoþ8n žžr (MG)

Yoþ8n žžr (MG)

Yoþ8n žžr (MG)

Yoþ8n žžr (MG)

Yoþ8n žžr (MG)

Yoþ8n žžr (MG)

Yoþ8n žžr (MG)

Yoþ8n žžr (MG)

Yoþ8n žžr (MG)

Yoþ8n žžr (MG)

Yoþ8n žžr (MG)

Yoþ8n žžr (MG)

Yoþ8n žžr (MG)

Yoþ8n žžr (MG)

Yoþ8n žžr (MG)

Yoþ8n žžr (MG)

Yoþ8n žžr (MG)

Yoþ8n žžr (MG)

Yoþ8n žžr (MG)

Yoþ8n žžr (MG)

Yoþ8n žžr (MG)

Yoþ8n žžr (MG)

Yoþ8n žžr (MG)

Yoþ8n žžr (MG)

Yoþ8n žžr (MG)

Yoþ8n žžr (MG)

Yoþ8n žžr (MG)

Yoþ8n žžr (MG)

Yoþ8n žžr (MG)

Yoþ8n žžr (MG)

Yoþ8n žžr (MG)

Yoþ8n žžr (MG)

Yoþ8n žžr (MG)

Yoþ8n žžr (MG)

Yoþ8n žžr (MG)

Yoþ8n žžr (MG)

Yoþ8n žžr (MG)

Yoþ8n žžr (MG)

Yoþ8n žžr (MG)

Yoþ8n žžr (MG)

Yoþ8n žžr (MG)

Yoþ8n žžr (MG)

Yoþ8n žžr (MG)

Yoþ8n žžr (MG)

Yoþ8n žžr (MG)

Yoþ8n žžr (MG)

Yoþ8n žžr (MG)

Yoþ8n žžr (MG)

Yoþ8n žžr (MG)

Yoþ8n žžr (MG)

Yoþ8n žžr (MG)

Yoþ8n žžr (MG)

Yoþ8n žžr (MG)

Yoþ8n žžr (MG)

Yoþ8n žžr (MG)

Yoþ8n žžr (MG)

Yoþ8n žžr (MG)

Yoþ8n žžr (MG)

Yoþ8n žžr (MG)

Yoþ8n žžr (MG)

Yoþ8n žžr (MG)

Yoþ8n žžr (MG)

Yoþ8n žžr (MG)

Yoþ8n žžr (MG)

Yoþ8n žžr (MG)

Yoþ8n žžr (MG)

Yoþ8n žžr (MG)

Yoþ8n žžr (MG)

Yoþ8n žžr (MG)

Yoþ8n žžr (MG)

Yoþ8n žžr (MG)

Yoþ8n žžr (MG)

Yoþ8n žžr (MG)

Yoþ8n žžr (MG)

Yoþ8n žžr (MG)

Yoþ8n žžr (MG)

Yoþ8n žžr (MG)

Yoþ8n žžr (MG)

Yoþ8n žžr (MG)

Yoþ8n žžr (MG)

Yoþ8n žžr (MG)

Reply

Reply to All

Back to thread list | Login

© 2010 Project BeehiveForum