Tutoriel 25 : Les applications réalisées sans interface utilisateur - la feuille Sub Main

Nous allons écrire une petite application qui permet d'arrêter la machine.

Dans l'objet « Général » - « Déclaration » on écrit :

Declare Function ExitWindows Lib "user32" Alias "ExitWindowsEx" (ByVal dwReserved As Long, ByVal uReturnCode As Long) As Long

(mettez cette instruction sur une seule ligne)
Et dans la procédure Main précédemment créée on saisit :

Sub Main( )
'Dim X As Long
Dim y As Long
'
'X = ExitWindows(4, EWX_FORCE)
y = ExitWindows(1, EWX_SHUTDOWN)
End Sub

Vous avez vu que j'ai mis en commentaire une instruction(X)
En effet j'ai découvert en feuilletant la documentation de Windows que cette instruction permet de forcer la fermeture d'une application qui a bogué, qui vous affiche parfois un panneau de couleur qu'il est souvent difficile de faire disparaître.
Je ne l'ai pas essayé, manque de temps désolé, je vous suggère de créer la même procédure en mettant cette fois l'instruction « Y » en commentaire.
Et si possible me faire savoir si cela fonctionne ? (Petit exercice)
Voilà c'est tout ! Votre programme est terminé, il ne nous reste plus qu'à créer un fichier exécutable en utilisant dans la barre de menu l'étiquette adéquate, mais, je vais broder un tout petit peu en vous demandant d'insérer dans votre programme les renseignements relatifs à la réalisation de votre application, cela fait un peu plus « Pro ».

Pour pouvoir récupérer le nom de notre réalisation, nous la sauvegardons sous le nom de « CloseWin », ensuite nous pouvons compiler le fichier en allant dans la barre de menu et en cliquant sur :
« Fichier »/« Créer CloseWin.exe ». Ce fichier pourra être stocké ou bon vous semble, d'autant que nous allons l'ouvrir à partir d'un raccourci clavier.
Je ne veux pas douter de vos compétences, néanmoins pour ceux qui ne connaîtraient pas la marche à suivre, voici comment faire un raccourci clavier depuis le bureau(l'écran) de votre computer.
Après la compilation de votre projet et la fermeture de Windows, procédez comme suit :
Cliquez du bouton droit sur le bureau (*),Selon la configuration de votre souris(*)
Cliquez sur « Nouveau » (bouton Gauche) (*)
Cliquez sur « Raccourci »
Cliquez sur le bouton « Parcourir »
Sélectionnez le programme « CloseWin.exe »
Cliquez sur le bouton « Suivant », puis sur le bouton « Terminer »

Vous pouvez arrêter votre appareil depuis l'icône que vous venez d'installer sur le bureau!
Vous pouvez également modifier l'icône installée sur votre bureau, en cliquant sur le bouton droit de la souris, puis sur « Raccourci »/« Changez d'icône », parcourir et rentrer dans le répertoire de Windows pour rechercher le fichier « Moricons.dll », choisissez l'icône qui vous convient.

Je vous propose pour clôturer ce chapitre de réaliser une autre application basée sur le même principe.
Cela sera plus simple maintenant puisque nous en connaissons le fonctionnement.
Cette application sera sauvegardée sous le nom de « RunProg.exe »
Nous créons sous le même principe évoqué précédemment un fichier « Module1.bas » que nous renommerons sans plus attendre « RunProg.bas ».

Dans l'objet « Général » - « Déclarations », tapez :

Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
  (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
  ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Faites un copier/coller c'est plus simple et surtout plus sur!
[Ctrl + c] pour copier et [Ctrl +V] pour coller, petit rappel, dès fois que…!

Et dans la procédure Main précédemment créée on saisi :

Sub Main()
     Dim RetVal
     Dim fName As String
     fName = "Index.html"   ,Ou le nom du fichier que vous voulez ouvrir
     RetVal = ShellExecute(hwnd, "Open", fName, ByVal 0&, 0&, SW_Normal)
End Sub

Il ne reste plus qu'à compiler notre nouvelle réalisation qui sera insérée dans les fichiers devant visualiser une composition appartenant à un CD-ROM.

Télécharger « RunProg.exe » classique selon l'exposé décrit dans cette page

Télécharger« RunProg1.exe » variante que j'utilise depuis des années dans la diffusion de mes CD-ROM
Ce programme a été écrit initialement en VB4.0 puis transcrit en VB6.0

Autre exemple :
LES PROPRIÉTÉS DE L'OBJET « ERREUR »
Une fois que l'exécution du programme a été transmise à votre routine de gestions d'erreurs, votre code peut déterminer l'erreur qui s'est produite en affichant son numéro et sa description.
Quand une erreur se produit, les informations la concernant sont stockées dans l'objet « Err »
Err.Number : indique le numéro de l'erreur
Err.Description : indique la description de l'erreur
' Voici le listing de cette application :

Sub Main ( )
On Error GoTo SortieDiscrete                                   , ou l'étiquette de votre choix
If Dir("c:\toto\danseaveclesloups.txt") = False Then
     MsgBox "Ce fichier n'existe pas!"
End If
Exit Sub
SortieDiscrete:
MsgBox "Erreur N° : " & Err.Number & VBLF & Err.Description
End Sub

Si le fichier existe, alors nous sortons de cette routine par l'instruction Exit Sub et nous ignorons l'étiquette « SortieDiscrete ».
Finalement vous constatez que la programmation c'est un circuit ferroviaire avec des aiguillages qui vous dirigent selon le bon vouloir du concepteur du programme.

Si le fichier n'existe pas, le mot « SortieDiscrete » remplit sa fonction et vous renvoie à l'étiquette du même nom, c'est-à-dire « SortieDiscrete » qui demande à la boîte de messagerie MsgBox de vous indiquer le type d'erreur et sa description.

Voilà, c'est tout pour aujourd'hui ! Bon travail !