'/***************************************************************************
'Système de gestion des arbitres de volleyball
'Auteur: Alain Lafaille - DATE: Avril 2005 - LANGAGES: PHP, JavaScript, HTML
'============================================================================
'Contient différentes fonctions VBScript utilisées dans les pages du site.
'Doit obligatoirement être incluse dans une autre page.
'***************************************************************************/
'
'//-----------------------------------------------------------
'// Fonction Pour afficher une nouvelle boîte de dialogue, à la sauce VB
'// Doit être appelée à l'aide de fonctions JavaScript
'//-----------------------------------------------------------
'// Paramètres d'appel :
'//
'// paramètre Valeur   Description
'// --------- ------   -----------
'// icon      1        Icône Message critique.          (16 pour msgbox - 'X' dans Rond rouge)
'//           2        Icône de question.               (32 pour msgbox - point d'interrogation dans bulle blanche)
'//           3        Icône Message d'avertissement.   (48 pour msgbox - point d'exclamation dans triangle jaune)
'//           4        Icône Message d'information.     (64 pour msgbox - 'i' dans bulle blanche)
'//
'// buts      0        Bouton OK.
'//           1        Boutons OK et Annuler.
'//           2        Boutons Abandon, Réessayer et Ignorer.
'//           3        Boutons Oui, Non et Annuler.
'//           4        Boutons Oui et Non.
'//           5        Boutons Réessayer et Annuler.
'//
'// defbut    0        Active le premier bouton par défaut.   (0   pour msgbox)
'//           1        Active le deuxième bouton par défaut.  (256 pour msgbox)
'//           2        Active le troisième bouton par défaut. (512 pour msgbox)
'//           3        Active le quatrième bouton par défaut. (768 pour msgbox)
'//
'// mods      0        Crée une boîte modale pour l'application. (0 pour msgbox)
'//                    L'utilisateur doit répondre à la boîte de message avant de poursuivre le travail dans l'application courante.
'//           1        Crée une boîte modale pour le système.    (4096 pour msgbox)
'//                    Sur les systèmes Win16, toutes les applications sont suspendues jusqu'à ce que l'utilisateur réponde à la boîte de message.
'//                    Sur les systèmes Win32, cette constante affiche une boîte de message modale pour l'application, laquelle reste toujours affichée quel que soit le programme que vous utilisez.
'//-----------------------------------------------------------
'// Valeur retournée :
'//
'// Valeur  Description
'// ------  -----------
'// 1       Clic sur OK.
'// 2       Clic sur Annuler.
'// 3       Clic sur Abandon.
'// 4       Clic sur Réessayer.
'// 5       Clic sur Ignorer.
'// 6       Clic sur Oui.
'// 7       Clic sur Non.
'//-----------------------------------------------------------
Function VB_makeMsgBox(title,mess,icon,buts,defbut,mods)
   butVal = buts + (icon*16) + (defbut*256) + (mods*4096)
   VB_makeMsgBox = MsgBox(mess,butVal,title)
End Function

'//-----------------------------------------------------------
'// Fonction Pour afficher une nouvelle boîte de saisie, à la sauce VB
'// Doit être appelée à l'aide de fonctions JavaScript
'//-----------------------------------------------------------
Function VB_makeInputBox(title,pr,def)
   VB_makeInputBox = InputBox(pr,title,def)
End Function