Discussion :

[coolpix77]

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 !

[Sylvain Bergeron]

J'utilise le code suivant avec Intel:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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 )

Merci pour ton aide

[Sylvain Bergeron]

Je ne me souviens pas où j'ai trouvé l'information. Probablement dans les exemples ou la doc du compilateur...

[coolpix77]

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

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

[Sylvain Bergeron]

Je fais simplement :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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