Publié : mer. 09/sept./2009 12:55






Bonjour TazNormandTazNormand a écrit :Tout ne passe pas toujours par une GUI.
A mon taf, des collègues ont développés (en VB .Net) des applis consoles spécifiques utilisées dans des scripts sur nos serveurs.
Le mode console te permet de développer l'essentiel, de prendre tes paramètres par ligne de commandes, pas besoin de base de registre, de fichier ini, ni à saisir quoique ce soit dans une interface graphique.
Peut-être que c'est ce qu'il a besoin ???
Code : Tout sélectionner
;MLD le 14-9-2009
;
; Compilation PureBasic V4.31
;¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤
Enumeration
#Window_0
#Container_0
#BtStop_1
EndEnumeration
; ********* La fenêtre ********************
OpenWindow (#Window_0, 388, 23, 620, 265, "Recherche l'origine des noms", #PB_Window_SystemMenu|#PB_Window_SizeGadget|#PB_Window_TitleBar|#PB_Window_ScreenCentered)
SetWindowColor(#Window_0, $EAB1D1)
ContainerGadget(#Container_0, 5, 5, 610, 255, #PB_Container_Double)
SetGadgetColor(#Container_0,#PB_Gadget_BackColor,$E3DFE0)
;********** Les Gadgets ******************
ButtonGadget(#BtStop_1, 540, 210, 40, 36,"Stop" );bouton stop
GadgetToolTip(#BtStop_1, "Arrêt du programme")
;¤¤¤¤¤¤¤¤¤¤¤¤¤ Boucle générale ¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤
Repeat
Event = WaitWindowEvent()
If Event = #PB_Event_Gadget
Select EventGadget()
Case #BtStop_1
AnimateWindow_(WindowID(#Window_0), 400, #AW_CENTER | #AW_HIDE) ; pour un effêt a la fermeture de la fenêtre
End
EndSelect
EndIf
Until Event = #PB_Event_CloseWindow
AnimateWindow_(WindowID(#Window_0), 400, #AW_CENTER | #AW_HIDE) ; pour un effêt a la fermeture de la fenêtre
End