[F90] Appeler l'API Windows sous Visual Studio

Version imprimable

13/08/2015, 11h38
coolpix77

[F90] Appeler l'API Windows sous Visual Studio

Bonjour,

Je souhaiterais créer une message box sous Fortran 90 avec Visual Studio.
Mais je n'arrive à trouver aucun tutoriel pour faire ce genre de chose !
Quelqu'un pourrait m'aider ?

Merci !

J'utilise le code suivant avec Intel:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
module WinAPI
 
  use dfwin,only: MB_OK, MB_ICONERROR,MessageBox
 
  implicit none
 
contains
!==============================================================================================
   integer function MessageBoxWrapper(Message, Titre, Boutons)
      character (*), intent(in) :: Message
      character (*), intent(in) :: Titre
      integer,       intent(in) :: Boutons
 
      character (1024) Message0
      character (256)  Titre0
 
      Message0 = trim(Message) // char(0)
      Titre0 = trim(Titre) // char(0)
 
      MessageBoxWrapper = MessageBox(0, Message0, Titre0,Boutons)
      return
      end function
end module

13/08/2015, 15h36
coolpix77

Super merci pour ce bout de code !
Saurais-tu me dire si il y a de la documentation quelque part ou des tutoriels ? (dans le cas où je souhaiterais faire des choses plus complexes :P)

Merci pour ton aide
13/08/2015, 15h39
Sylvain Bergeron

Je ne me souviens pas où j'ai trouvé l'information. Probablement dans les exemples ou la doc du compilateur...
13/08/2015, 15h45
coolpix77

Et si je veux utiliser la fonction suffit que je fasse un truc du type :

MessageBoxWrapper("Test","Alerte",1) ? :o

Je fais simplement :

Code:

1
2
3
4
 
if (MsgFatal /= '') then
   k = MessageBoxWrapper(MsgFatal, AppName, MB_OK + MB_ICONERROR)
endif

13/08/2015, 16h11
coolpix77

bon bah ça marche bien :)

Merci pour ton aide !

edit : la documentation dfwin se trouve sur le site internet d'intel ? :o