Page 1 sur 1
Comment "disabler" une fenetre ?
Publié : dim. 23/janv./2005 22:35
par bertrand
ben ouais comment ?
y'a hidewindows() mais ca c'est violent...
usewindow() mais ca empeche pas l'utilisation des autres fenetres...
a moins de disabler tous les button ? ---> c'est pas sexy j'en ai 44 ..
enfin let's see. sinon bonne année qd même !
Publié : dim. 23/janv./2005 22:41
par Le Soldat Inconnu
je l'ai déjà dis il y a une semaine sur un autre sujet posant exactement la même question
une petite recherche aurait été préférable
Publié : dim. 23/janv./2005 22:45
par bertrand
autant pour moi. j'ai pas vu. serieux.
merci en tt cas.
b.
Publié : dim. 23/janv./2005 22:52
par bertrand
bon ben me revoila... ca marche pas.
c'est vrai que l'instruction n'est pas dans le help file why ?
comment je fais là ?
c'est surement pas grand chose non ?
merci
Publié : dim. 23/janv./2005 23:00
par Le Soldat Inconnu
Code : Tout sélectionner
; Auteur : Le Soldat Inconnu
; Version de PB : 3.9
;
; Explication du programme :
; Pour faire des programmes de test rapidement, il ne reste qu'a rajouter les gadgets et la gestion des évènements.
Procedure Fenetre()
EnableWindow_(WindowID(0), 0) ; On désactive
If OpenWindow(1, 0, 0, 100, 100, #PB_Window_SystemMenu | #PB_Window_ScreenCentered | #PB_Window_MinimizeGadget, "Test2") = 0 Or CreateGadgetList(WindowID()) = 0
End
EndIf
Repeat
Event = WaitWindowEvent()
Until Event = #PB_EventCloseWindow
CloseWindow(1)
UseWindow(0)
EnableWindow_(WindowID(0), 1) ; On active
EndProcedure
; Création de la fenêtre et de la GadgetList
If OpenWindow(0, 0, 0, 300, 300, #PB_Window_SystemMenu | #PB_Window_ScreenCentered | #PB_Window_MinimizeGadget, "Test1") = 0 Or CreateGadgetList(WindowID()) = 0
End
EndIf
ButtonGadget(0, 10, 10, 100, 30, "ouvrir fenêtre")
Repeat
Event = WaitWindowEvent()
If Event = #PB_EventGadget
Select EventGadgetID() ; Gadgets
Case 0
Fenetre()
EndSelect
EndIf
Until Event = #PB_EventCloseWindow
End
EnableWindow est une API, voir rubrique liens utiles dans la section débutant pour obtenir les pages permettant d'avoir une description de la fonctions (les API ne marche pas avec la démo)
Publié : dim. 23/janv./2005 23:20
par bertrand
ok...
j'ai la demo: j'achete PB.
merci encore.
b.