assistance de création de boîte de dialogue pour pure basic

Vous avez développé un logiciel en PureBasic et vous souhaitez le faire connaitre ?
Répondre
dayvid
Messages : 1242
Inscription : mer. 11/nov./2009 18:17
Localisation : Poitiers (Vienne)

assistance de création de boîte de dialogue pour pure basic

Message par dayvid »

et voila un chti programme pour faire des boites de dialogue sans ce casser la tête
je pence que cella peut bien servire, mois même je l'utilise

http://www.up-this.com/fr/dl.html?fid=6F6729BEE9B8
La vie, C'est comme, Une boitte, De startis, On en voie, De toutes, Les couleurs !

Mon forum http://purebasic.forumphp3.com/index.php
Haut
Avatar de l’utilisateur
Ar-S
Messages : 9540
Inscription : dim. 09/oct./2005 16:51
Contact :
Contacter Ar-S

Re: assistance de création de boîte de dialogue pour pure basic

Message par Ar-S »

Une ou des chtites captures d'écrans ? allez vas-y donc, donne nous envie d'essayer ton logiciel :D !
~~~~Règles du forum ~~~~
⋅.˳˳.⋅ॱ˙˙ॱ⋅.˳Ar-S ˳.⋅ॱ˙˙ॱ⋅.˳˳.⋅
W11x64 PB 6.x
Section HORS SUJET : ICI
LDV MULTIMEDIA : Dépannage informatique & mes Logiciels PB
UPLOAD D'IMAGES : Uploader des images de vos logiciels
Haut
dayvid
Messages : 1242
Inscription : mer. 11/nov./2009 18:17
Localisation : Poitiers (Vienne)

Re: assistance de création de boîte de dialogue pour pure basic

Message par dayvid »

dison que tu peut aussie le télécharger par le lien 8)
La vie, C'est comme, Une boitte, De startis, On en voie, De toutes, Les couleurs !

Mon forum http://purebasic.forumphp3.com/index.php
Haut
Avatar de l’utilisateur
case
Messages : 1546
Inscription : lun. 10/sept./2007 11:13

Re: assistance de création de boîte de dialogue pour pure basic

Message par case »

disons que si on devais tout télécharger sans regarder avant on aurais nos disques durs bien pleins et pas que de belles choses :twisted:

ca ressemble a quoi tes boites de dialogue ? :D
une ptite copie d'écran 8) ?
ImageImage
Haut
Backup
Messages : 14526
Inscription : lun. 26/avr./2004 0:40

Re: assistance de création de boîte de dialogue pour pure basic

Message par Backup »

oui pis tant qu'a faire tu peux aussi laisser ton source ici
parceque si c'est pour faire des boites de dialogues, ton code
ne dois pas etre top secret , en principe c'est meme a la portée de n'imp...

mais c'est comme tu veux, parcequ'en fait, je pense qu'on pourra faire sans hein.. ;)
Haut
jbernard13
Messages : 1501
Inscription : dim. 18/avr./2004 15:04
Localisation : sud de la france

Re: assistance de création de boîte de dialogue pour pure basic

Message par jbernard13 »

Image

c'est du deja vu ici

http://www.purebasic.fr/french/viewtopi ... eRequester
Jbernard13
Haut
dayvid
Messages : 1242
Inscription : mer. 11/nov./2009 18:17
Localisation : Poitiers (Vienne)

Re: assistance de création de boîte de dialogue pour pure basic

Message par dayvid »

ouais mais le line marche plus
et puis sinon pour le souce veut bien le donner mais voila quoi
enfin bref je vais le mêtre si sa en chante certain

si sa peut servir !

http://www.up-this.com/fr/dl.html?fid=B282FF982F8A
La vie, C'est comme, Une boitte, De startis, On en voie, De toutes, Les couleurs !

Mon forum http://purebasic.forumphp3.com/index.php
Haut
Avatar de l’utilisateur
venom
Messages : 3136
Inscription : jeu. 29/juil./2004 16:33
Localisation : Klyntar
Contact :
Contacter venom

Re: assistance de création de boîte de dialogue pour pure basic

Message par venom »

désolé pour le lien je n'est plus l'exécutable ni la source :? c'est dommage je le referais peut etre un de ces 4

[EDIT]
je l'est retrouvé mais plus compatible pb4

Code : Tout sélectionner

;- -------------------------------------
;- Générateur MessageRequester
;- Necro et Venom
;- le 04/11/2008 en purebasic 4.20
;- -------------------------------------

;- Window Constants
Enumeration
  #windows_0
EndEnumeration

;- Gadget Constants
Enumeration
  #Frame_0
  #String_titre
  #String_message
  #Frame_1
  #Text_0_deusiemeetape
  #Text_1_deusiemeetape
  #Radio_OK
  #Radio_OUINON
  #Radio_OUINONANNULER
  #Radio_ICONE1
  #Button_ICONE1
  #Radio_ICONE2
  #Button_ICONE2
  #Radio_ICONE3
  #Button_ICONE3
  #Radio_ICONE4
  #Frame_3
  #String_AFFICHELECODE
  #Button_APPERCU
  #Button_COPIER
EndEnumeration

;- Fonts
Global FontID1
FontID1 = LoadFont(1, "Comic Sans MS", 10, #PB_Font_Bold) ;- on choisis une police de caractere
chemain$ = Left(GetHomeDirectory(), 3) + "WINDOWS\explorer.exe" ;- on montre le chemain ou se trouve les icones
Count = IconExtract(chemain$, -1) ;- on extrait les icones

;- on ouvre la fenetre ainci que les gadgets
If OpenWindow(#windows_0, 0, 0, 600, 355, "GMRequester", #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_TitleBar | #PB_Window_ScreenCentered )
  If CreateGadgetList(WindowID(#windows_0))
    
    Frame3DGadget(#Frame_0, 10, 10, 580, 100, "etape 1", 0)
    StringGadget(#String_titre, 20, 30, 560, 20, "Titre de votre MessageRequester...")
    StringGadget(#String_message, 20, 70, 560, 20, "Message a afficher...")
    
    Frame3DGadget(#Frame_1, 10, 120, 580, 150, "etape 2", 0)
    TextGadget(#Text_0_deusiemeetape, 20, 140, 560, 20, "Boutons a mettre dans le MessageRequester", #PB_Text_Center)
    SetGadgetFont(#Text_0_deusiemeetape, FontID1)
    TextGadget(#Text_1_deusiemeetape, 20, 190, 560, 20, "icone a mettre dans le MessageRequester", #PB_Text_Center)
    SetGadgetFont(#Text_1_deusiemeetape, FontID1)
    OptionGadget(#Radio_OK, 20, 160, 130, 20, "Afficher le bouton OK")
    OptionGadget(#Radio_OUINON, 168, 160, 160, 20, "Afficher les boutons OUI / NON")
    OptionGadget(#Radio_OUINONANNULER, 348, 160, 230, 20, "Afficher les boutons OUI / NON / ANNULER")
    CheckBoxGadget(#Radio_ICONE1, 20, 230, 20, 20, "")
    ImageGadget(#Button_ICONE1, 40, 225, 48, 48, IconExtract(chemain$, 7))
    CheckBoxGadget(#Radio_ICONE2, 180, 230, 20, 20, "")
    ImageGadget(#Button_ICONE2, 200, 225, 48, 48, IconExtract(chemain$, 8))
    CheckBoxGadget(#Radio_ICONE3, 358, 230, 20, 20, "")
    ImageGadget(#Button_ICONE3, 380, 225, 48, 48, IconExtract(chemain$, 9))
    CheckBoxGadget(#Radio_ICONE4, 528, 230, 20, 20, "")
    SetGadgetState(#Radio_OK, 1) ;- permet de selectionner le gadget #Radio_OK
    SetGadgetState(#Radio_ICONE4, 1) ;- permet de selectionner le gadget #Radio_ICONE4
    Frame3DGadget(#Frame_3, 10, 280, 580, 60, "etape 3", 0)
    ButtonGadget(#Button_APPERCU, 20, 305, 185, 20, "Aperçu du MessageRequester")
    ButtonGadget(#Button_COPIER, 390, 305, 185, 20, "Copier le code dans le presse papier")
    StringGadget(#String_AFFICHELECODE, 0, 370, 10, 20, "", #PB_String_ReadOnly) ;- #PB_String_ReadOnly permet de crée un stringgadget mais seulement en lecture et non pas en ecriture
    
  EndIf
EndIf

;- on ouvre la boucle d'evenement
Repeat
  EventID = WaitWindowEvent()
  If EventID = #PB_Event_Gadget
    Select EventGadget()
        
      Case #Radio_ICONE1 ;- cette fonction permet de lancer #Radio_ICONE1 quand on clic dessus
        SetGadgetState(#Radio_ICONE2, 0) ;- si #Radio_ICONE1 est cliquer on efface le logo de selection du gadget #Radio_ICONE2
        SetGadgetState(#Radio_ICONE3, 0) ;- si #Radio_ICONE1 est cliquer on efface le logo de selection du gadget #Radio_ICONE3
        SetGadgetState(#Radio_ICONE4, 0) ;- si #Radio_ICONE1 est cliquer on efface le logo de selection du gadget #Radio_ICONE4
        
      Case #Radio_ICONE2 ;- cette fonction permet de lancer #Radio_ICONE2 quand on clic dessu
        SetGadgetState(#Radio_ICONE1, 0) ;- si #Radio_ICONE2 est cliquer on efface le logo de selection du gadget #Radio_ICONE1
        SetGadgetState(#Radio_ICONE3, 0) ;- si #Radio_ICONE2 est cliquer on efface le logo de selection du gadget #Radio_ICONE3
        SetGadgetState(#Radio_ICONE4, 0) ;- si #Radio_ICONE2 est cliquer on efface le logo de selection du gadget #Radio_ICONE4
        
      Case #Radio_ICONE3 ;- cette fonction permet de lancer #Radio_ICONE3 quand on clic dessus
        SetGadgetState(#Radio_ICONE1, 0) ;- si #Radio_ICONE3 est cliquer on efface le logo de selection du gadget #Radio_ICONE1
        SetGadgetState(#Radio_ICONE2, 0) ;- si #Radio_ICONE3 est cliquer on efface le logo de selection du gadget #Radio_ICONE2
        SetGadgetState(#Radio_ICONE4, 0) ;- si #Radio_ICONE3 est cliquer on efface le logo de selection du gadget #Radio_ICONE4
        
      Case #Radio_ICONE4 ;- cette fonction permet de lancer #Radio_ICONE4 quand on clic dessus
        SetGadgetState(#Radio_ICONE1, 0) ;- si #Radio_ICONE4 est cliquer on efface le logo de selection du gadget #Radio_ICONE1
        SetGadgetState(#Radio_ICONE2, 0) ;- si #Radio_ICONE4 est cliquer on efface le logo de selection du gadget #Radio_ICONE2
        SetGadgetState(#Radio_ICONE3, 0) ;- si #Radio_ICONE4 est cliquer on efface le logo de selection du gadget #Radio_ICONE3
        
      Case #Button_APPERCU ;- cette fonction permet de lancer #Button_APPERCU quand on clic dessus
        ;- message OK
        If GetGadgetState(#Radio_OK) = 1 And GetGadgetState(#Radio_ICONE1) = 1 ;- si le gadget #Radio_OK et selectionner ainci que #Radio_ICONE1 ont cree le messagerequester en fonction
          MessageRequester(GetGadgetText(#String_titre), GetGadgetText(#String_message), #PB_MessageRequester_Ok | #MB_ICONINFORMATION)
        EndIf
        If GetGadgetState(#Radio_OK) = 1 And GetGadgetState(#Radio_ICONE2) = 1 ;- si le gadget #Radio_OK et selectionner ainci que #Radio_ICONE2 ont cree le messagerequester en fonction
          MessageRequester(GetGadgetText(#String_titre), GetGadgetText(#String_message), #PB_MessageRequester_Ok | #MB_ICONWARNING)
        EndIf
        If GetGadgetState(#Radio_OK) = 1 And GetGadgetState(#Radio_ICONE3) = 1 ;- si le gadget #Radio_OK et selectionner ainci que #Radio_ICONE3 ont cree le messagerequester en fonction
          MessageRequester(GetGadgetText(#String_titre), GetGadgetText(#String_message), #PB_MessageRequester_Ok | #MB_ICONERROR)
        EndIf
        If GetGadgetState(#Radio_OK) = 1 And GetGadgetState(#Radio_ICONE4) = 1 ;- si le gadget #Radio_OK et selectionner ainci que #Radio_ICONE4 ont cree le messagerequester en fonction
          MessageRequester(GetGadgetText(#String_titre), GetGadgetText(#String_message), #PB_MessageRequester_Ok)
        EndIf
        
        ;- message OUI NON
        If GetGadgetState(#Radio_OUINON) = 1 And GetGadgetState(#Radio_ICONE1) = 1 ;- si le gadget #Radio_OUINON et selectionner ainci que #Radio_ICONE1 ont cree le messagerequester en fonction
          MessageRequester(GetGadgetText(#String_titre), GetGadgetText(#String_message), #PB_MessageRequester_YesNo | #MB_ICONINFORMATION)
        EndIf
        If GetGadgetState(#Radio_OUINON) = 1 And GetGadgetState(#Radio_ICONE2) = 1 ;- si le gadget #Radio_OUINON et selectionner ainci que #Radio_ICONE2 ont cree le messagerequester en fonction
          MessageRequester(GetGadgetText(#String_titre), GetGadgetText(#String_message), #PB_MessageRequester_YesNo | #MB_ICONWARNING)
        EndIf
        If GetGadgetState(#Radio_OUINON) = 1 And GetGadgetState(#Radio_ICONE3) = 1 ;- si le gadget #Radio_OUINON et selectionner ainci que #Radio_ICONE3 ont cree le messagerequester en fonction
          MessageRequester(GetGadgetText(#String_titre), GetGadgetText(#String_message), #PB_MessageRequester_YesNo | #MB_ICONERROR)
        EndIf
        If GetGadgetState(#Radio_OUINON) = 1 And GetGadgetState(#Radio_ICONE4) = 1 ;- si le gadget #Radio_OUINON et selectionner ainci que #Radio_ICONE4 ont cree le messagerequester en fonction
          MessageRequester(GetGadgetText(#String_titre), GetGadgetText(#String_message), #PB_MessageRequester_YesNo)
        EndIf
        
        ;- message OUI NON ANNULER
        If GetGadgetState(#Radio_OUINONANNULER) = 1 And GetGadgetState(#Radio_ICONE1) = 1 ;- si le gadget #Radio_OUINONANNULER et selectionner ainci que #Radio_ICONE1 ont cree le messagerequester en fonction
          MessageRequester(GetGadgetText(#String_titre), GetGadgetText(#String_message), #PB_MessageRequester_YesNoCancel | #MB_ICONINFORMATION)
        EndIf
        If GetGadgetState(#Radio_OUINONANNULER) = 1 And GetGadgetState(#Radio_ICONE2) = 1 ;- si le gadget #Radio_OUINONANNULER et selectionner ainci que #Radio_ICONE2 ont cree le messagerequester en fonction
          MessageRequester(GetGadgetText(#String_titre), GetGadgetText(#String_message), #PB_MessageRequester_YesNoCancel | #MB_ICONWARNING)
        EndIf
        If GetGadgetState(#Radio_OUINONANNULER) = 1 And GetGadgetState(#Radio_ICONE3) = 1 ;- si le gadget #Radio_OUINONANNULER et selectionner ainci que #Radio_ICONE3 ont cree le messagerequester en fonction
          MessageRequester(GetGadgetText(#String_titre), GetGadgetText(#String_message), #PB_MessageRequester_YesNoCancel | #MB_ICONERROR)
        EndIf
        If GetGadgetState(#Radio_OUINONANNULER) = 1 And GetGadgetState(#Radio_ICONE4) = 1 ;- si le gadget #Radio_OUINONANNULER et selectionner ainci que #Radio_ICONE4 ont cree le messagerequester en fonction
          MessageRequester(GetGadgetText(#String_titre), GetGadgetText(#String_message), #PB_MessageRequester_YesNoCancel)
        EndIf
        
      Case #Button_COPIER ;- cette fonction permet de lancer #Button_COPIER quand on clic dessus
        
        ;- message OK
        If GetGadgetState(#Radio_OK) = 1 And GetGadgetState(#Radio_ICONE1) = 1 ;- si le gadget #Radio_OK et selectionner ainci que #Radio_ICONE1 ont cree le messagerequester en fonction
          SetGadgetText(#String_AFFICHELECODE, "MessageRequester(" + Chr(34) + GetGadgetText(#String_titre) + Chr(34) + "," + Chr(34) + GetGadgetText(#String_message) + Chr(34) + "," + "#PB_MessageRequester_Ok|#MB_ICONINFORMATION)")
        EndIf
        If GetGadgetState(#Radio_OK) = 1 And GetGadgetState(#Radio_ICONE2) = 1 ;- si le gadget #Radio_OK et selectionner ainci que #Radio_ICONE2 ont cree le messagerequester en fonction
          SetGadgetText(#String_AFFICHELECODE, "MessageRequester(" + Chr(34) + GetGadgetText(#String_titre) + Chr(34) + "," + Chr(34) + GetGadgetText(#String_message) + Chr(34) + "," + "#PB_MessageRequester_Ok|#MB_ICONWARNING)")
        EndIf
        If GetGadgetState(#Radio_OK) = 1 And GetGadgetState(#Radio_ICONE3) = 1 ;- si le gadget #Radio_OK et selectionner ainci que #Radio_ICONE3 ont cree le messagerequester en fonction
          SetGadgetText(#String_AFFICHELECODE, "MessageRequester(" + Chr(34) + GetGadgetText(#String_titre) + Chr(34) + "," + Chr(34) + GetGadgetText(#String_message) + Chr(34) + "," + "#PB_MessageRequester_Ok|#MB_ICONERROR)")
        EndIf
        If GetGadgetState(#Radio_OK) = 1 And GetGadgetState(#Radio_ICONE4) = 1 ;- si le gadget #Radio_OK et selectionner ainci que #Radio_ICONE4 ont cree le messagerequester en fonction
          SetGadgetText(#String_AFFICHELECODE, "MessageRequester(" + Chr(34) + GetGadgetText(#String_titre) + Chr(34) + "," + Chr(34) + GetGadgetText(#String_message) + Chr(34) + "," + "#PB_MessageRequester_Ok)")
        EndIf
        
        ;- message OUI NON
        If GetGadgetState(#Radio_OUINON) = 1 And GetGadgetState(#Radio_ICONE1) = 1 ;- si le gadget #Radio_OUINON et selectionner ainci que #Radio_ICONE1 ont cree le messagerequester en fonction
          SetGadgetText(#String_AFFICHELECODE, "MessageRequester(" + Chr(34) + GetGadgetText(#String_titre) + Chr(34) + "," + Chr(34) + GetGadgetText(#String_message) + Chr(34) + "," + "#PB_MessageRequester_YesNo|#MB_ICONINFORMATION)")
        EndIf
        If GetGadgetState(#Radio_OUINON) = 1 And GetGadgetState(#Radio_ICONE2) = 1 ;- si le gadget #Radio_OUINON et selectionner ainci que #Radio_ICONE2 ont cree le messagerequester en fonction
          SetGadgetText(#String_AFFICHELECODE, "MessageRequester(" + Chr(34) + GetGadgetText(#String_titre) + Chr(34) + "," + Chr(34) + GetGadgetText(#String_message) + Chr(34) + "," + "#PB_MessageRequester_YesNo|#MB_ICONWARNING)")
        EndIf
        If GetGadgetState(#Radio_OUINON) = 1 And GetGadgetState(#Radio_ICONE3) = 1 ;- si le gadget #Radio_OUINON et selectionner ainci que #Radio_ICONE3 ont cree le messagerequester en fonction
          SetGadgetText(#String_AFFICHELECODE, "MessageRequester(" + Chr(34) + GetGadgetText(#String_titre) + Chr(34) + "," + Chr(34) + GetGadgetText(#String_message) + Chr(34) + "," + "#PB_MessageRequester_YesNo|#MB_ICONERROR)")
        EndIf
        If GetGadgetState(#Radio_OUINON) = 1 And GetGadgetState(#Radio_ICONE4) = 1 ;- si le gadget #Radio_OUINON et selectionner ainci que #Radio_ICONE4 ont cree le messagerequester en fonction
          SetGadgetText(#String_AFFICHELECODE, "MessageRequester(" + Chr(34) + GetGadgetText(#String_titre) + Chr(34) + "," + Chr(34) + GetGadgetText(#String_message) + Chr(34) + "," + "#PB_MessageRequester_YesNo)")
        EndIf
        
        ;- message OUI NON ANNULER
        If GetGadgetState(#Radio_OUINONANNULER) = 1 And GetGadgetState(#Radio_ICONE1) = 1 ;- si le gadget #Radio_OUINONANNULER et selectionner ainci que #Radio_ICONE1 ont cree le messagerequester en fonction
          SetGadgetText(#String_AFFICHELECODE, "MessageRequester(" + Chr(34) + GetGadgetText(#String_titre) + Chr(34) + "," + Chr(34) + GetGadgetText(#String_message) + Chr(34) + "," + "#PB_MessageRequester_YesNoCancel|#MB_ICONINFORMATION)")
        EndIf
        If GetGadgetState(#Radio_OUINONANNULER) = 1 And GetGadgetState(#Radio_ICONE2) = 1 ;- si le gadget #Radio_OUINONANNULER et selectionner ainci que #Radio_ICONE2 ont cree le messagerequester en fonction
          SetGadgetText(#String_AFFICHELECODE, "MessageRequester(" + Chr(34) + GetGadgetText(#String_titre) + Chr(34) + "," + Chr(34) + GetGadgetText(#String_message) + Chr(34) + "," + "#PB_MessageRequester_YesNoCancel|#MB_ICONWARNING)")
        EndIf
        If GetGadgetState(#Radio_OUINONANNULER) = 1 And GetGadgetState(#Radio_ICONE3) = 1 ;- si le gadget #Radio_OUINONANNULER et selectionner ainci que #Radio_ICONE3 ont cree le messagerequester en fonction
          SetGadgetText(#String_AFFICHELECODE, "MessageRequester(" + Chr(34) + GetGadgetText(#String_titre) + Chr(34) + "," + Chr(34) + GetGadgetText(#String_message) + Chr(34) + "," + "#PB_MessageRequester_YesNoCancel|#MB_ICONERROR)")
        EndIf
        If GetGadgetState(#Radio_OUINONANNULER) = 1 And GetGadgetState(#Radio_ICONE4) = 1 ;- si le gadget #Radio_OUINONANNULER et selectionner ainci que #Radio_ICONE4 ont cree le messagerequester en fonction
          SetGadgetText(#String_AFFICHELECODE, "MessageRequester(" + Chr(34) + GetGadgetText(#String_titre) + Chr(34) + "," + Chr(34) + GetGadgetText(#String_message) + Chr(34) + "," + "#PB_MessageRequester_YesNoCancel)")
        EndIf
        
        Resultat$ = GetGadgetText(#String_AFFICHELECODE) ;- on verrifie l'etat du #String_AFFICHELECODE si il y a du texte ou non
        If Resultat$ ;- si oui on continue
          ClearClipboard() ;- on vide le presse papier
          SetClipboardText(GetGadgetText(#String_AFFICHELECODE)) ;- ensuite on copie le contenue du #String_AFFICHELECODE dans le presse papier
          MessageRequester("information", "Voila le code vien d'étre copier dans le presse papier. Clic droit puis coller pour le placez ou vous le souhaitez.", 0) ;- messagebox pour prevenir que sa a bien etait copier
          EventID = #PB_Event_CloseWindow ;- du coup on ferme le logiciel
        Else ;- par contre si le #String_AFFICHELECODE est vide
          MessageRequester("information", "Il n'y a rien a copier dans le presse papier. Verifiez si vous avez bien appuiez sur le bouton Générer le code pour purebaisc avant de continuer", #MB_ICONWARNING) ;- on met un messagebox pour prevenir que rien n'a pu etre copier dans le presse papier
        EndIf ;- on laisse donc l'application ouverte pour corriger le probleme
        
    EndSelect
  EndIf
Until EventID = #PB_Event_CloseWindow ;- ferme l'application quand ont appuie sur la croix rouge
voilou





@++
Windows 10 x64, PureBasic 5.73 x86 & x64
GPU : radeon HD6370M, CPU : p6200 2.13Ghz
Haut
PAPIPP
Messages : 534
Inscription : sam. 23/févr./2008 17:58

Re: assistance de création de boîte de dialogue pour pure basic

Message par PAPIPP »

Merci venon
voici le code pour PB440

Code : Tout sélectionner

;- -------------------------------------
;- Générateur MessageRequester
;- Necro et Venom
;- le 04/11/2008 en purebasic 4.20
;- -------------------------------------
Procedure IconExtract(File.s,Icon.l)
  ProcedureReturn ExtractIcon_(0,File,Icon)
EndProcedure

;- Window Constants
Enumeration
  #windows_0
EndEnumeration

;- Gadget Constants
Enumeration
  #Frame_0
  #String_titre
  #String_message
  #Frame_1
  #Text_0_deusiemeetape
  #Text_1_deusiemeetape
  #Radio_OK
  #Radio_OUINON
  #Radio_OUINONANNULER
  #Radio_ICONE1
  #Button_ICONE1
  #Radio_ICONE2
  #Button_ICONE2
  #Radio_ICONE3
  #Button_ICONE3
  #Radio_ICONE4
  #Frame_3
  #String_AFFICHELECODE
  #Button_APPERCU
  #Button_COPIER
EndEnumeration

;- Fonts
Global FontID1
FontID1 = LoadFont(1, "Comic Sans MS", 10, #PB_Font_Bold) ;- on choisis une police de caractere
chemain$ = Left(GetHomeDirectory(), 3) + "WINDOWS\explorer.exe" ;- on montre le chemain ou se trouve les icones
Count = IconExtract(chemain$, -1) ;- on extrait les icones

;- on ouvre la fenetre ainci que les gadgets
If OpenWindow(#windows_0, 0, 0, 600, 355, "GMRequester", #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_TitleBar | #PB_Window_ScreenCentered )
  If CreateGadgetList(WindowID(#windows_0))
   
    Frame3DGadget(#Frame_0, 10, 10, 580, 100, "etape 1", 0)
    StringGadget(#String_titre, 20, 30, 560, 20, "Titre de votre MessageRequester...")
    StringGadget(#String_message, 20, 70, 560, 20, "Message a afficher...")
   
    Frame3DGadget(#Frame_1, 10, 120, 580, 150, "etape 2", 0)
    TextGadget(#Text_0_deusiemeetape, 20, 140, 560, 20, "Boutons a mettre dans le MessageRequester", #PB_Text_Center)
    SetGadgetFont(#Text_0_deusiemeetape, FontID1)
    TextGadget(#Text_1_deusiemeetape, 20, 190, 560, 20, "icone a mettre dans le MessageRequester", #PB_Text_Center)
    SetGadgetFont(#Text_1_deusiemeetape, FontID1)
    OptionGadget(#Radio_OK, 20, 160, 130, 20, "Afficher le bouton OK")
    OptionGadget(#Radio_OUINON, 168, 160, 160, 20, "Afficher les boutons OUI / NON")
    OptionGadget(#Radio_OUINONANNULER, 348, 160, 230, 20, "Afficher les boutons OUI / NON / ANNULER")
    CheckBoxGadget(#Radio_ICONE1, 20, 230, 20, 20, "")
    ImageGadget(#Button_ICONE1, 40, 225, 48, 48, IconExtract(chemain$, 7))
    CheckBoxGadget(#Radio_ICONE2, 180, 230, 20, 20, "")
    ImageGadget(#Button_ICONE2, 200, 225, 48, 48, IconExtract(chemain$, 8))
    CheckBoxGadget(#Radio_ICONE3, 358, 230, 20, 20, "")
    ImageGadget(#Button_ICONE3, 380, 225, 48, 48, IconExtract(chemain$, 9))
    CheckBoxGadget(#Radio_ICONE4, 528, 230, 20, 20, "")
    SetGadgetState(#Radio_OK, 1) ;- permet de selectionner le gadget #Radio_OK
    SetGadgetState(#Radio_ICONE4, 1) ;- permet de selectionner le gadget #Radio_ICONE4
    Frame3DGadget(#Frame_3, 10, 280, 580, 60, "etape 3", 0)
    ButtonGadget(#Button_APPERCU, 20, 305, 185, 20, "Aperçu du MessageRequester")
    ButtonGadget(#Button_COPIER, 390, 305, 185, 20, "Copier le code dans le presse papier")
    StringGadget(#String_AFFICHELECODE, 0, 370, 10, 20, "", #PB_String_ReadOnly) ;- #PB_String_ReadOnly permet de crée un stringgadget mais seulement en lecture et non pas en ecriture
   
  EndIf
EndIf

;- on ouvre la boucle d'evenement
Repeat
  EventID = WaitWindowEvent()
  If EventID = #PB_Event_Gadget
    Select EventGadget()
       
      Case #Radio_ICONE1 ;- cette fonction permet de lancer #Radio_ICONE1 quand on clic dessus
        SetGadgetState(#Radio_ICONE2, 0) ;- si #Radio_ICONE1 est cliquer on efface le logo de selection du gadget #Radio_ICONE2
        SetGadgetState(#Radio_ICONE3, 0) ;- si #Radio_ICONE1 est cliquer on efface le logo de selection du gadget #Radio_ICONE3
        SetGadgetState(#Radio_ICONE4, 0) ;- si #Radio_ICONE1 est cliquer on efface le logo de selection du gadget #Radio_ICONE4
       
      Case #Radio_ICONE2 ;- cette fonction permet de lancer #Radio_ICONE2 quand on clic dessu
        SetGadgetState(#Radio_ICONE1, 0) ;- si #Radio_ICONE2 est cliquer on efface le logo de selection du gadget #Radio_ICONE1
        SetGadgetState(#Radio_ICONE3, 0) ;- si #Radio_ICONE2 est cliquer on efface le logo de selection du gadget #Radio_ICONE3
        SetGadgetState(#Radio_ICONE4, 0) ;- si #Radio_ICONE2 est cliquer on efface le logo de selection du gadget #Radio_ICONE4
       
      Case #Radio_ICONE3 ;- cette fonction permet de lancer #Radio_ICONE3 quand on clic dessus
        SetGadgetState(#Radio_ICONE1, 0) ;- si #Radio_ICONE3 est cliquer on efface le logo de selection du gadget #Radio_ICONE1
        SetGadgetState(#Radio_ICONE2, 0) ;- si #Radio_ICONE3 est cliquer on efface le logo de selection du gadget #Radio_ICONE2
        SetGadgetState(#Radio_ICONE4, 0) ;- si #Radio_ICONE3 est cliquer on efface le logo de selection du gadget #Radio_ICONE4
       
      Case #Radio_ICONE4 ;- cette fonction permet de lancer #Radio_ICONE4 quand on clic dessus
        SetGadgetState(#Radio_ICONE1, 0) ;- si #Radio_ICONE4 est cliquer on efface le logo de selection du gadget #Radio_ICONE1
        SetGadgetState(#Radio_ICONE2, 0) ;- si #Radio_ICONE4 est cliquer on efface le logo de selection du gadget #Radio_ICONE2
        SetGadgetState(#Radio_ICONE3, 0) ;- si #Radio_ICONE4 est cliquer on efface le logo de selection du gadget #Radio_ICONE3
       
      Case #Button_APPERCU ;- cette fonction permet de lancer #Button_APPERCU quand on clic dessus
        ;- message OK
        If GetGadgetState(#Radio_OK) = 1 And GetGadgetState(#Radio_ICONE1) = 1 ;- si le gadget #Radio_OK et selectionner ainci que #Radio_ICONE1 ont cree le messagerequester en fonction
          MessageRequester(GetGadgetText(#String_titre), GetGadgetText(#String_message), #PB_MessageRequester_Ok | #MB_ICONINFORMATION)
        EndIf
        If GetGadgetState(#Radio_OK) = 1 And GetGadgetState(#Radio_ICONE2) = 1 ;- si le gadget #Radio_OK et selectionner ainci que #Radio_ICONE2 ont cree le messagerequester en fonction
          MessageRequester(GetGadgetText(#String_titre), GetGadgetText(#String_message), #PB_MessageRequester_Ok | #MB_ICONWARNING)
        EndIf
        If GetGadgetState(#Radio_OK) = 1 And GetGadgetState(#Radio_ICONE3) = 1 ;- si le gadget #Radio_OK et selectionner ainci que #Radio_ICONE3 ont cree le messagerequester en fonction
          MessageRequester(GetGadgetText(#String_titre), GetGadgetText(#String_message), #PB_MessageRequester_Ok | #MB_ICONERROR)
        EndIf
        If GetGadgetState(#Radio_OK) = 1 And GetGadgetState(#Radio_ICONE4) = 1 ;- si le gadget #Radio_OK et selectionner ainci que #Radio_ICONE4 ont cree le messagerequester en fonction
          MessageRequester(GetGadgetText(#String_titre), GetGadgetText(#String_message), #PB_MessageRequester_Ok)
        EndIf
       
        ;- message OUI NON
        If GetGadgetState(#Radio_OUINON) = 1 And GetGadgetState(#Radio_ICONE1) = 1 ;- si le gadget #Radio_OUINON et selectionner ainci que #Radio_ICONE1 ont cree le messagerequester en fonction
          MessageRequester(GetGadgetText(#String_titre), GetGadgetText(#String_message), #PB_MessageRequester_YesNo | #MB_ICONINFORMATION)
        EndIf
        If GetGadgetState(#Radio_OUINON) = 1 And GetGadgetState(#Radio_ICONE2) = 1 ;- si le gadget #Radio_OUINON et selectionner ainci que #Radio_ICONE2 ont cree le messagerequester en fonction
          MessageRequester(GetGadgetText(#String_titre), GetGadgetText(#String_message), #PB_MessageRequester_YesNo | #MB_ICONWARNING)
        EndIf
        If GetGadgetState(#Radio_OUINON) = 1 And GetGadgetState(#Radio_ICONE3) = 1 ;- si le gadget #Radio_OUINON et selectionner ainci que #Radio_ICONE3 ont cree le messagerequester en fonction
          MessageRequester(GetGadgetText(#String_titre), GetGadgetText(#String_message), #PB_MessageRequester_YesNo | #MB_ICONERROR)
        EndIf
        If GetGadgetState(#Radio_OUINON) = 1 And GetGadgetState(#Radio_ICONE4) = 1 ;- si le gadget #Radio_OUINON et selectionner ainci que #Radio_ICONE4 ont cree le messagerequester en fonction
          MessageRequester(GetGadgetText(#String_titre), GetGadgetText(#String_message), #PB_MessageRequester_YesNo)
        EndIf
       
        ;- message OUI NON ANNULER
        If GetGadgetState(#Radio_OUINONANNULER) = 1 And GetGadgetState(#Radio_ICONE1) = 1 ;- si le gadget #Radio_OUINONANNULER et selectionner ainci que #Radio_ICONE1 ont cree le messagerequester en fonction
          MessageRequester(GetGadgetText(#String_titre), GetGadgetText(#String_message), #PB_MessageRequester_YesNoCancel | #MB_ICONINFORMATION)
        EndIf
        If GetGadgetState(#Radio_OUINONANNULER) = 1 And GetGadgetState(#Radio_ICONE2) = 1 ;- si le gadget #Radio_OUINONANNULER et selectionner ainci que #Radio_ICONE2 ont cree le messagerequester en fonction
          MessageRequester(GetGadgetText(#String_titre), GetGadgetText(#String_message), #PB_MessageRequester_YesNoCancel | #MB_ICONWARNING)
        EndIf
        If GetGadgetState(#Radio_OUINONANNULER) = 1 And GetGadgetState(#Radio_ICONE3) = 1 ;- si le gadget #Radio_OUINONANNULER et selectionner ainci que #Radio_ICONE3 ont cree le messagerequester en fonction
          MessageRequester(GetGadgetText(#String_titre), GetGadgetText(#String_message), #PB_MessageRequester_YesNoCancel | #MB_ICONERROR)
        EndIf
        If GetGadgetState(#Radio_OUINONANNULER) = 1 And GetGadgetState(#Radio_ICONE4) = 1 ;- si le gadget #Radio_OUINONANNULER et selectionner ainci que #Radio_ICONE4 ont cree le messagerequester en fonction
          MessageRequester(GetGadgetText(#String_titre), GetGadgetText(#String_message), #PB_MessageRequester_YesNoCancel)
        EndIf
       
      Case #Button_COPIER ;- cette fonction permet de lancer #Button_COPIER quand on clic dessus
       
        ;- message OK
        If GetGadgetState(#Radio_OK) = 1 And GetGadgetState(#Radio_ICONE1) = 1 ;- si le gadget #Radio_OK et selectionner ainci que #Radio_ICONE1 ont cree le messagerequester en fonction
          SetGadgetText(#String_AFFICHELECODE, "MessageRequester(" + Chr(34) + GetGadgetText(#String_titre) + Chr(34) + "," + Chr(34) + GetGadgetText(#String_message) + Chr(34) + "," + "#PB_MessageRequester_Ok|#MB_ICONINFORMATION)")
        EndIf
        If GetGadgetState(#Radio_OK) = 1 And GetGadgetState(#Radio_ICONE2) = 1 ;- si le gadget #Radio_OK et selectionner ainci que #Radio_ICONE2 ont cree le messagerequester en fonction
          SetGadgetText(#String_AFFICHELECODE, "MessageRequester(" + Chr(34) + GetGadgetText(#String_titre) + Chr(34) + "," + Chr(34) + GetGadgetText(#String_message) + Chr(34) + "," + "#PB_MessageRequester_Ok|#MB_ICONWARNING)")
        EndIf
        If GetGadgetState(#Radio_OK) = 1 And GetGadgetState(#Radio_ICONE3) = 1 ;- si le gadget #Radio_OK et selectionner ainci que #Radio_ICONE3 ont cree le messagerequester en fonction
          SetGadgetText(#String_AFFICHELECODE, "MessageRequester(" + Chr(34) + GetGadgetText(#String_titre) + Chr(34) + "," + Chr(34) + GetGadgetText(#String_message) + Chr(34) + "," + "#PB_MessageRequester_Ok|#MB_ICONERROR)")
        EndIf
        If GetGadgetState(#Radio_OK) = 1 And GetGadgetState(#Radio_ICONE4) = 1 ;- si le gadget #Radio_OK et selectionner ainci que #Radio_ICONE4 ont cree le messagerequester en fonction
          SetGadgetText(#String_AFFICHELECODE, "MessageRequester(" + Chr(34) + GetGadgetText(#String_titre) + Chr(34) + "," + Chr(34) + GetGadgetText(#String_message) + Chr(34) + "," + "#PB_MessageRequester_Ok)")
        EndIf
       
        ;- message OUI NON
        If GetGadgetState(#Radio_OUINON) = 1 And GetGadgetState(#Radio_ICONE1) = 1 ;- si le gadget #Radio_OUINON et selectionner ainci que #Radio_ICONE1 ont cree le messagerequester en fonction
          SetGadgetText(#String_AFFICHELECODE, "MessageRequester(" + Chr(34) + GetGadgetText(#String_titre) + Chr(34) + "," + Chr(34) + GetGadgetText(#String_message) + Chr(34) + "," + "#PB_MessageRequester_YesNo|#MB_ICONINFORMATION)")
        EndIf
        If GetGadgetState(#Radio_OUINON) = 1 And GetGadgetState(#Radio_ICONE2) = 1 ;- si le gadget #Radio_OUINON et selectionner ainci que #Radio_ICONE2 ont cree le messagerequester en fonction
          SetGadgetText(#String_AFFICHELECODE, "MessageRequester(" + Chr(34) + GetGadgetText(#String_titre) + Chr(34) + "," + Chr(34) + GetGadgetText(#String_message) + Chr(34) + "," + "#PB_MessageRequester_YesNo|#MB_ICONWARNING)")
        EndIf
        If GetGadgetState(#Radio_OUINON) = 1 And GetGadgetState(#Radio_ICONE3) = 1 ;- si le gadget #Radio_OUINON et selectionner ainci que #Radio_ICONE3 ont cree le messagerequester en fonction
          SetGadgetText(#String_AFFICHELECODE, "MessageRequester(" + Chr(34) + GetGadgetText(#String_titre) + Chr(34) + "," + Chr(34) + GetGadgetText(#String_message) + Chr(34) + "," + "#PB_MessageRequester_YesNo|#MB_ICONERROR)")
        EndIf
        If GetGadgetState(#Radio_OUINON) = 1 And GetGadgetState(#Radio_ICONE4) = 1 ;- si le gadget #Radio_OUINON et selectionner ainci que #Radio_ICONE4 ont cree le messagerequester en fonction
          SetGadgetText(#String_AFFICHELECODE, "MessageRequester(" + Chr(34) + GetGadgetText(#String_titre) + Chr(34) + "," + Chr(34) + GetGadgetText(#String_message) + Chr(34) + "," + "#PB_MessageRequester_YesNo)")
        EndIf
       
        ;- message OUI NON ANNULER
        If GetGadgetState(#Radio_OUINONANNULER) = 1 And GetGadgetState(#Radio_ICONE1) = 1 ;- si le gadget #Radio_OUINONANNULER et selectionner ainci que #Radio_ICONE1 ont cree le messagerequester en fonction
          SetGadgetText(#String_AFFICHELECODE, "MessageRequester(" + Chr(34) + GetGadgetText(#String_titre) + Chr(34) + "," + Chr(34) + GetGadgetText(#String_message) + Chr(34) + "," + "#PB_MessageRequester_YesNoCancel|#MB_ICONINFORMATION)")
        EndIf
        If GetGadgetState(#Radio_OUINONANNULER) = 1 And GetGadgetState(#Radio_ICONE2) = 1 ;- si le gadget #Radio_OUINONANNULER et selectionner ainci que #Radio_ICONE2 ont cree le messagerequester en fonction
          SetGadgetText(#String_AFFICHELECODE, "MessageRequester(" + Chr(34) + GetGadgetText(#String_titre) + Chr(34) + "," + Chr(34) + GetGadgetText(#String_message) + Chr(34) + "," + "#PB_MessageRequester_YesNoCancel|#MB_ICONWARNING)")
        EndIf
        If GetGadgetState(#Radio_OUINONANNULER) = 1 And GetGadgetState(#Radio_ICONE3) = 1 ;- si le gadget #Radio_OUINONANNULER et selectionner ainci que #Radio_ICONE3 ont cree le messagerequester en fonction
          SetGadgetText(#String_AFFICHELECODE, "MessageRequester(" + Chr(34) + GetGadgetText(#String_titre) + Chr(34) + "," + Chr(34) + GetGadgetText(#String_message) + Chr(34) + "," + "#PB_MessageRequester_YesNoCancel|#MB_ICONERROR)")
        EndIf
        If GetGadgetState(#Radio_OUINONANNULER) = 1 And GetGadgetState(#Radio_ICONE4) = 1 ;- si le gadget #Radio_OUINONANNULER et selectionner ainci que #Radio_ICONE4 ont cree le messagerequester en fonction
          SetGadgetText(#String_AFFICHELECODE, "MessageRequester(" + Chr(34) + GetGadgetText(#String_titre) + Chr(34) + "," + Chr(34) + GetGadgetText(#String_message) + Chr(34) + "," + "#PB_MessageRequester_YesNoCancel)")
        EndIf
       
        Resultat$ = GetGadgetText(#String_AFFICHELECODE) ;- on verrifie l'etat du #String_AFFICHELECODE si il y a du texte ou non
        If Resultat$ ;- si oui on continue
          ClearClipboard() ;- on vide le presse papier
          SetClipboardText(GetGadgetText(#String_AFFICHELECODE)) ;- ensuite on copie le contenue du #String_AFFICHELECODE dans le presse papier
          MessageRequester("information", "Voila le code vien d'étre copier dans le presse papier. Clic droit puis coller pour le placez ou vous le souhaitez.", 0) ;- messagebox pour prevenir que sa a bien etait copier
          EventID = #PB_Event_CloseWindow ;- du coup on ferme le logiciel
        Else ;- par contre si le #String_AFFICHELECODE est vide
          MessageRequester("information", "Il n'y a rien a copier dans le presse papier. Verifiez si vous avez bien appuiez sur le bouton Générer le code pour purebaisc avant de continuer", #MB_ICONWARNING) ;- on met un messagebox pour prevenir que rien n'a pu etre copier dans le presse papier
        EndIf ;- on laisse donc l'application ouverte pour corriger le probleme
       
    EndSelect
  EndIf
Until EventID = #PB_Event_CloseWindow ;- ferme l'application quand ont appuie sur la croix rouge
A+
Il est fort peu probable que les mêmes causes ne produisent pas les mêmes effets.(Einstein)
Et en logique positive cela donne.
Il est très fortement probable que les mêmes causes produisent les mêmes effets.
Haut
Répondre

Revenir à « Annonces »