FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC
Vous souhaitez réagir à ce message ? Créez un compte en quelques clics ou connectez-vous pour continuer.
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC

Développement d'applications avec le langage Panoramic
 
AccueilAccueil  RechercherRechercher  Dernières imagesDernières images  S'enregistrerS'enregistrer  MembresMembres  Connexion  
Derniers sujets
» Logiciel de planétarium.
MENU-Fichiers Emptypar Pedro Aujourd'hui à 10:37

» Un autre pense-bête...
MENU-Fichiers Emptypar Froggy One Jeu 21 Nov 2024 - 15:54

» Récupération du contenu d'une page html.
MENU-Fichiers Emptypar Pedro Sam 16 Nov 2024 - 14:04

» Décompilation
MENU-Fichiers Emptypar JL35 Mar 12 Nov 2024 - 19:57

» Un album photos comme du temps des grands-mères
MENU-Fichiers Emptypar jjn4 Mar 12 Nov 2024 - 17:23

» traitement d'une feuille excel
MENU-Fichiers Emptypar jjn4 Jeu 7 Nov 2024 - 3:52

» Aide-mémoire mensuel
MENU-Fichiers Emptypar jjn4 Lun 4 Nov 2024 - 18:56

» Des incomprèhension avec Timer
MENU-Fichiers Emptypar Klaus Mer 30 Oct 2024 - 18:26

» KGF_dll - nouvelles versions
MENU-Fichiers Emptypar Klaus Mar 29 Oct 2024 - 17:58

» instructions panoramic
MENU-Fichiers Emptypar maelilou Lun 28 Oct 2024 - 19:51

» Figures fractales
MENU-Fichiers Emptypar Marc Ven 25 Oct 2024 - 12:18

» Panoramic et Scanette
MENU-Fichiers Emptypar Yannick Mer 25 Sep 2024 - 22:16

» Editeur d étiquette avec QR évolutif
MENU-Fichiers Emptypar JL35 Lun 23 Sep 2024 - 22:40

» BUG QR Code DelphiZXingQRCode
MENU-Fichiers Emptypar Yannick Dim 22 Sep 2024 - 11:40

» fichier.exe
MENU-Fichiers Emptypar leclode Ven 20 Sep 2024 - 19:02

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Novembre 2024
LunMarMerJeuVenSamDim
    123
45678910
11121314151617
18192021222324
252627282930 
CalendrierCalendrier
Le Deal du moment :
LEGO Icons 10331 – Le martin-pêcheur
Voir le deal
35 €

 

 MENU-Fichiers

Aller en bas 
2 participants
AuteurMessage
jjn4

jjn4


Nombre de messages : 2747
Date d'inscription : 13/09/2009

MENU-Fichiers Empty
MessageSujet: MENU-Fichiers   MENU-Fichiers EmptyLun 9 Mai 2022 - 12:33

C'est un programme que j'utilise tous les jours et que je n'avais jamais publié.
Eh bien, autant réparer cet oubli, d'autant qu'il est bien pratique.
Vous le mettez, par exemple, sur le bureau,
et il vous permet ensuite d'appeler tous les programmes habituellement utilisés,
sans avoir besoin de chercher où ils sont.
Il suffit de les intégrer dans sa liste (--> Ajout)
En voici une image allégée (vous pouvez en mettre jusqu'à 60)
MENU-Fichiers Menu10
En voici le programme :
Code:

rem ' MENU-Fichiers - par jjn4 - Rénové le 24/07/2021 =========================
   dim a$ , a% , i% , j% : rem Variables provisoires générales
   dim cd$ : rem Répertoire courant
   dim NGA% : rem Numéro du Grid Affiché
   label aide , ajout , change , clic , go , modif
   cd$=dir_current$

rem form0
   width 0,1365
   height 0,720
   caption 0,"   MENU des fichiers panoramic et autres"
   dlist 5
  
main_menu 10
   sub_menu 11
      parent 11,10
      caption 11,"Ajout"
      on_click 11,ajout
   sub_menu 12
      parent 12,10
      caption 12,"Modifs"
      on_click 12,modif
   sub_menu 15
      parent 15,10
      caption 15,"Aide"
      on_click 15,aide
  
rem Affichage des pictures
   for i%=1 to 6
      for j%=1 to 10
         panel i%*20+(j%-1)*2 : rem N° 20 à 118 à pas de 2
            left i%*20+(j%-1)*2,(j%-1)*133+13
            top i%*20+(j%-1)*2,(i%-1)*108+17
            width i%*20+(j%-1)*2,123
            height i%*20+(j%-1)*2,85
            font_size i%*20+(j%-1)*2,60
            color i%*20+(j%-1)*2,200,200,200
            on_click i%*20+(j%-1)*2,go
         alpha i%*20+(j%-1)*2+130 : rem N° 150 à 268 à pas de 2
            left i%*20+(j%-1)*2+130,(j%-1)*133+38
            top i%*20+(j%-1)*2+130,(i%-1)*108+4
            font_color i%*20+(j%-1)*2+130,255,0,0
         alpha i%*20+(j%-1)*2+131 : rem N° 151 à 269 à pas de 2
            left i%*20+(j%-1)*2+131,(j%-1)*133+130
            top i%*20+(j%-1)*2+131,(i%-1)*108+101
            font_size i%*20+(j%-1)*2+131,6
            caption i%*20+(j%-1)*2+131,(i%-1)*10+j%
      next j%
   next i%

memo 300 : rem Base du système de modifications
   hide 300
   left 300,10
   width 300,1330
   height 300,655
   bar_vertical 300
   if file_exists(cd$+"\Menu-fichier.txm")=0
      file_save 300,cd$+"\Menu-fichier.txm"
   else
      file_load 300,cd$+"\Menu-fichier.txm"
   end_if
   i%=0
   if count(300)>4
      i%=1
      while i%<count(300)
         a$=item_read$(300,i%)
         if numeric(a$)=1
            a%=val(a$)
            j%=(a%*2)+18
            caption j%+130,item_read$(300,i%+1)
            font_name j%,item_read$(300,i%+2)
            font_color j%,val(item_read$(300,i%+4)),val(item_read$(300,i%+5)),val(item_read$(300,i%+6))
            caption j%,chr$(val(item_read$(300,i%+3)))
         end_if
         i%=i%+9
      end_while
   end_if

rem Base du système d`ajout de données ========================================
panel 400 : rem Tableau des entrées
   hide 400
   left 400,10
   width 400,1330
   height 400,655
alpha 405
   parent 405,400
   left 405,2
   top 405,1
   font_size 405,14
   font_color 405,255,0,0
   font_name 405,"Wingdings 3"
   caption 405,chr$(199)
alpha 410 : rem Titre
   parent 410,400
   left 410,50
   top 410,8
   font_bold 410
   font_size 410,24
   font_color 410,255,0,0
   caption 410,"Entrée de données nouvelles :"
  
' Choix du numéro d'ordre
alpha 420
   parent 420,400
   left 420,20
   top 420,80
   font_bold 420
   font_size 420,14
   caption 420,"Choisissez un numéro d'ordre dans la grille des lancés de programme :"
combo 430
   parent 430,400
   left 430,40
   top 430,110
   width 430,90
   font_bold 430
   font_size 430,24
   remplir()
   on_click 430,clic
alpha 440
   parent 440,400
   left 440,1000
   top 440,80
   font_bold 440
   font_size 440,14
   font_color 440,0,0,255
   caption 440,"Numéro choisi :"
alpha 445
   parent 445,400
   left 445,950
   top 445,75
   font_size 445,25
   font_color 445,255,0,0
   font_name 445,"Webdings"
   caption 445,chr$(110)
alpha 450
   parent 450,400
   left 450,1020
   top 450,110
   font_bold 450
   font_size 450,14
   font_color 450,255,0,0

' Inscription du nom du programme à afficher
alpha 460
   parent 460,400
   left 460,20
   top 460,200
   font_bold 460
   font_size 460,14
   caption 460,"Inscription du nom du programme à ajouter :"
edit 470
   parent 470,400
   left 470,40
   top 470,230
   width 470,395
   font_bold 470
   font_size 470,24
   on_change 470,change
alpha 480
   parent 480,400
   left 480,1000
   top 480,200
   font_bold 480
   font_size 480,14
   font_color 480,0,0,255
   caption 480,"Nom du programme à ajouter :"
alpha 485
   parent 485,400
   left 485,950
   top 485,195
   font_size 485,25
   font_color 485,255,0,0
   font_name 485,"Webdings"
   caption 485,chr$(110)
alpha 490    
   parent 490,400
   left 490,1020
   top 490,230
   font_bold 490
   font_size 490,14
   font_color 490,255,0,0

' Choix de la police de caractère et du numéro de police
alpha 500
   parent 500,400
   left 500,20
   top 500,320
   font_bold 500
   font_size 500,14
   caption 500,"Choix de la police de caractère et du numéro de police :"
combo 510
   parent 510,400
   left 510,40
   top 510,350
   width 510,250
   font_bold 510
   font_size 510,24
   item_add 510,"Arial"
   item_add 510,"Symbol"
   item_add 510,"Webdings"
   item_add 510,"Wingdings"
   item_add 510,"Wingdings 2"
   item_add 510,"Wingdings 3"
   on_click 510,clic
button 515
   parent 515,400
   left 515,310
   top 515,350
   width 515,100
   height 515,50
   font_bold 515
   font_size 515,14
   caption 515,"Voir 1"
   on_click 515,clic
   inactive 515
button 517
   parent 517,400
   left 517,430
   top 517,350
   width 517,100
   height 517,50
   font_bold 517
   font_size 517,14
   caption 517,"Voir 2"
   on_click 517,clic
   inactive 517
alpha 520
   parent 520,400
   left 520,1000
   top 520,280
   font_bold 520
   font_size 520,14
   font_color 520,0,0,255
   caption 520,"Police choisie :"
alpha 525
   parent 525,400
   left 525,950
   top 525,275
   font_size 525,25
   font_color 525,255,0,0
   font_name 525,"Webdings"
   caption 525,chr$(110)
alpha 530
   parent 530,400
   left 530,1020
   top 530,310
   font_bold 530
   font_size 530,14
   font_color 530,255,0,0
alpha 540
   parent 540,400
   left 540,1000
   top 540,340
   font_bold 540
   font_size 540,14
   font_color 540,0,0,255
   caption 540,"Numéro de police :"
alpha 545
   parent 545,400
   left 545,950
   top 545,335
   font_size 545,25
   font_color 545,255,0,0
   font_name 545,"Webdings"
   caption 545,chr$(110)
alpha 550
   parent 550,400
   left 550,1020
   top 550,370
   font_bold 550
   font_size 550,14
   font_color 550,255,0,0
alpha 560
   parent 560,400
   left 560,1220
   top 560,340
   font_size 560,40
   font_color 560,255,0,0

' Détermination du répertoire et de l'adresse exacte du programme
alpha 570
   parent 570,400
   left 570,20
   top 570,460
   font_bold 570
   font_size 570,14
   caption 570,"Détermination du répertoire et de l'adresse exacte du programme :"                      
button 580
   parent 580,400
   left 580,40
   top 580,490
   width 580,580
   height 580,50
   font_bold 580
   font_size 580,14
   caption 580,"Parcourir la mémoire à la recherche du programme"
   on_click 580,clic
alpha 590
   parent 590,400
   left 590,50
   top 590,552
   font_bold 590
   font_size 590,14
   font_color 590,0,0,255
   caption 590,"Chemin du programme :"
alpha 595
   parent 595,400
   left 595,5
   top 595,542
   font_size 595,25
   font_color 595,255,0,0
   font_name 595,"Webdings"
   caption 595,chr$(110)
alpha 600
   parent 600,400
   left 600,5
   top 600,577
   font_size 600,10
   font_color 600,255,0,0  
alpha 610
   parent 610,400
   left 610,50
   top 610,605
   font_bold 610
   font_size 610,14
   font_color 610,0,0,255
   caption 610,"Nom complet du programme :"
alpha 615
   parent 615,400
   left 615,5
   top 615,595
   font_size 615,25
   font_color 615,255,0,0
   font_name 615,"Webdings"
   caption 615,chr$(110)
alpha 620
   parent 620,400
   left 620,5
   top 620,630
   font_size 620,10
   font_color 620,255,0,0
  
' Bouton d'ajout d'une donnée du panneau d'ajout
alpha 625
   parent 625,400
   left 625,870
   top 625,460
   font_size 625,100
   font_color 625,255,0,0
   font_name 625,"Wingdings 3"
   caption 625,chr$(198)
   hide 625
button 630
   parent 630,400
   left 630,1000
   top 630,490
   width 630,280
   height 630,80
   font_bold 630
   font_size 630,24
   caption 630,"Ajouter"
   on_click 630,clic
   inactive 630
  
' Détermination de la couleur du logo
alpha 640
   parent 640,400
   left 640,630
   top 640,320
   font_bold 640
   font_size 640,14
   caption 640,"Choix de la couleur du Logo :"
option 645
   parent 645,400
   left 645,600
   top 645,350
   width 645,20
   on_click 645,clic
alpha 650
   parent 650,400
   left 650,625
   top 650,350
   caption 650,"Rouge"
track_bar 660
   parent 660,400
   left 660,660
   top 660,347
   width 660,250
   max 660,255
   on_change 660,change
option 665
   parent 665,400
   left 665,600
   top 665,385
   width 665,20
   on_click 665,clic
alpha 670
   parent 670,400
   left 670,635
   top 670,385
   caption 670,"Vert"
track_bar 680
   parent 680,400
   left 680,660
   top 680,382
   width 680,250
   max 680,255
   on_change 680,change
option 685
   parent 685,400
   left 685,600
   top 685,420
   width 685,20
   on_click 685,clic
alpha 690
   parent 690,400
   left 690,635
   top 690,420
   caption 690,"Bleu"
track_bar 700
   parent 700,400
   left 700,660
   top 700,417
   width 700,250
   max 700,255
   on_change 700,change
alpha 710
   parent 710,400
   left 710,912
   top 710,350
   font_color 710,255,0,0
   caption 710,"0"
alpha 720
   parent 720,400
   left 720,912
   top 720,385
   font_color 720,255,0,0
   caption 720,"0"
alpha 730
   parent 730,400
   left 730,912
   top 730,420
   font_color 730,255,0,0
   caption 730,"0"      
alpha 740
   parent 740,400
   left 740,1000
   top 740,400
   font_bold 740
   font_size 740,14
   font_color 740,0,0,255
   caption 740,"Couleur du Logo :"
picture 750
   parent 750,400
   left 750,1190
   top 750,406
   width 750,115
   height 750,65
   color 750,0,0,0
button 760
   parent 760,400
   left 760,1000
   top 760,430
   width 760,170
   height 760,42
   font_bold 760
   font_size 760,14
   caption 760,"Voir la couleur"
   on_click 760,clic
button 770
   parent 770,400
   left 770,670
   top 770,455
   width 770,80
   height 770,50
   font_size 770,24
   font_name 770,"Wingdings 3"
   caption 770,chr$(116)
   on_click 770,clic
   inactive 770
button 780
   parent 780,400
   left 780,760
   top 780,455
   width 780,80
   height 780,50
   font_size 780,24
   font_name 780,"Wingdings 3"
   caption 780,chr$(117)
   on_click 780,clic
   inactive 780
  
' Tableau de choix du caractère de la poilce choisie
grid 800
   hide 800
   parent 800,400
   left 800,8
   width 800,1315
   height 800,640
   grid_column_fixed 800,0
   grid_column 800,16
   grid_column_width 800,81
   grid_row_fixed 800, 0
   grid_row 800,7
   grid_row_height 800,90
   font_size 800,58
   on_click 800,clic
      
rem 1000 est utilisé pour l`open-dialog                

end : ' =======================================================================

aide: : rem Explications sur le fonctionnement du programme ===================
   application_title "   Aide du programme MENU"
   a$="Format de l'inclusion de fichiers :"+chr$(13)
   a$=a$+"- Numéro du fichier sur l'écran du programme menu"+chr$(13)
   a$=a$+"- Nom du fichier tel qu'il sera affiché à l'écran"+chr$(13)
   a$=a$+"- Police où se trouve l'image choisie pour le figurer"+chr$(13)
   a$=a$+"- Numéro de l'image choisie dans la police correspondante"+chr$(13)
   a$=a$+"- Quantité de couleur rouge intégrée au Logo"+chr$(13)
   a$=a$+"- Quantité de couleur vertes intégrée au Logo"+chr$(13)
   a$=a$+"- Quantité de couleur bleu intégrée au Logo"+chr$(13)
   a$=a$+"- Chemin du fichier pour le fonctionnement ultérieur du pg"+chr$(13)
   a$=a$+"- Nom long du fichier à appeler."+chr$(13)+chr$(13)
   a$=a$+"NOTA: les numéros des emplacements à l'écran vont de 1 à 60"+chr$(13)
   a$=a$+"             de gauche à droite et de haut en bas."
   message a$
return

ajout: : rem Ajout d`une donnée nouvelle ======================================
   if show(400)=0
      show 400
      caption 11,"Sortir"
   else
      hide 400
      caption 11,"Ajout"
      dir_change cd$
   end_if
return

sub ajouter() : rem Ajouter un programme à la liste ===========================
   item_add 300,caption$(450)
   item_add 300,caption$(490)
   item_add 300,caption$(530)
   item_add 300,caption$(550)
   item_add 300,caption$(710)
   item_add 300,caption$(720)
   item_add 300,caption$(730)
   item_add 300,caption$(600)
   item_add 300,caption$(620)
   dir_change cd$
   file_save 300,"Menu-fichier.txm"
   beep
   text 430,""
   caption 450,""
   text 470,""
   caption 490,""
   text 510,""
   inactive 515
   inactive 517
   caption 530,""
   caption 550,""
   position 660,0
   position 680,0
   position 700,0
   caption 710,"0"
   caption 720,"0"
   caption 730,"0"
   color 750,0,0,0
   hide 625
   inactive 630
   caption 600,""
   caption 620,""
   show 445
   show 485
   show 525
   show 545
   show 595
   show 615
   mark_off 645
   mark_off 665
   mark_off 685
   inactive 770
   inactive 780
   caption 560,""
   remplir()
end_sub

sub avance() : rem Avancer le bouton du track-bar de 10 =======================
   dim_local v1av% , v2av%
   for v1av% = 645 to 685 step 20
      if checked(v1av%)=1
         v2av%=v1av%+15
      end_if
   next v1av%
   if position(v2av%)<246
      position v2av%,position(v2av%)+10
   end_if
end_sub

sub caract() : rem Caractère choisi dans la police ============================
   dim_local xca% , yca% , v1ca%
   xca%=int(mouse_x_position(800)/82.18)+1
   yca%=int(mouse_y_position(800)/91.43)+1
   v1ca%=(yca%-1)*16+xca%+31+NGA%*112
   caption 550,v1ca%
   font_name 560,caption$(530)
   caption 560,chr$(val(caption$(550)))
   hide 800
   hide 545
end_sub

change: : rem Gestion de tous les on-change ===================================
   select number_change
      case 470
         caption 490,text$(470)
         if caption$(490)<>""
            hide 485
         else
            show 485
         end_if
         detect()
      case 660 : caption 710,position(660)
      case 680 : caption 720,position(680)
      case 700 : caption 730,position(700)
   end_select
return

sub chemin() : rem Repérage du chemin du programme ============================
   dim_local v1ch$ , v2ch$ , v3ch%
   open_dialog 1000
      v1ch$=file_name$(1000)
      if v1ch$<>"" and v1ch$<>"_"
         caption 620,v1ch$
         v2ch$=reverse$(v1ch$)
         v3ch%=instr(v2ch$,"\")
         caption 600,left$(v1ch$,len(v1ch$)-v3ch%+1)
         hide 595
         hide 615
      end_if
   delete 1000
end_sub

clic: : rem Regroupement de tous les on-click =================================
   select number_click
      case 430 : caption 450,text$(430) : hide 445 : detect()
      case 510 : caption 530,text$(510) : active 515 : active 517 : hide 525 : detect()
      case 515 : police() : detect()
      case 517 : police() : detect()
      case 580 : chemin() : detect()
      case 630 : ajouter()
      case 645 : active 770 : active 780
      case 665 : active 770 : active 780
      case 685 : active 770 : active 780
      case 760 : color 750,position(660),position(680),position(700)
      case 770 : recule()
      case 780 : avance()
      case 800 : caract()
   end_select
return

sub detect() : rem Le programme détecte si la bouton Ajouter est à activer ====
   if caption$(450)<>""
      if caption$(490)<>""
         if caption$(530)<>""
            if caption$(550)<>""
               if caption$(600)<>""
                  if caption$(620)<>""
                     active 630
                     show 625
                  end_if
               end_if
            end_if
         end_if
      end_if
   end_if
end_sub

go: : rem Lancé d`une application =============================================
   j%=number_click
   j%=(j%/2)-9
   a%=0
   if count(300)>0
      for i%=1 to count(300) step 9
         if item_read$(300,i%)=str$(j%)
            a%=i%
            exit_for
         end_if
      next i%
   end_if
   if a%>0
      dir_change item_read$(300,a%+7)
      execute item_read$(300,a%+8)
   end_if
return

modif: : rem Système de modification des données entrées ======================
   if show(300)=0
      show 300
      caption 12,"Enregistrer et sortir"
   else
      hide 300
      caption 12,"Réglages"
      dir_change cd$
      file_save 300,"Menu-fichier.txm"
   end_if
return

sub police() : rem Affichage des grilles de caractère de police ===============
   dim_local v1po% , v2po% , v3po%
   if number_click=515
      v1po%=32 : NGA%=0
   else
      v1po%=144 : NGA%=1
   end_if
   font_name 800,text$(510)
   for v2po% = 1 to 7
      for v3po% = 1 to 16
         grid_write 800,v2po%,v3po%,chr$((v2po%-1)*16+(v3po%-1+v1po%))
      next v3po%
   next v2po%
   show 800
end_sub

sub recule() : rem Recule le bouton du track-bar de 10 ========================
   dim_local v1re% , v2re%
   for v1re% = 645 to 685 step 20
      if checked(v1re%)=1
         v2re%=v1re%+15
      end_if
   next v1re%
   if position(v2re%)>9
      position v2re%,position(v2re%)-10
   end_if
end_sub

sub remplir() : rem Remplir le combo des numéros disponibles ==================
   dim_local v1re% , v2re% , v3re%
   clear 5
   clear 430
   if count(300)>0
      for v1re% = 1 to count(300) step 9
         item_add 5,item_read$(300,v1re%)
      next v1re%
   end_if
   for v1re% = 1 to 60
      v3re%=0
      if count(5)>0
         for v2re% = 1 to count(5)
            if str$(v1re%)=item_read$(5,v2re%)
               v3re%=1
               exit_for
            end_if
         next v2re%
         if v3re%=0
            item_add 430,v1re%
         end_if
      else
         item_add 430,v1re%
      end_if
   next v1re%
end_sub
Vous pouvez aussi le trouver sur le Webdav n°2 (panoramic@jjn42)
Bonne utilisation !
cheers


Dernière édition par jjn4 le Mar 10 Mai 2022 - 19:20, édité 1 fois
Revenir en haut Aller en bas
http://jjn4.e-monsite.com
Marc

Marc


Nombre de messages : 2466
Age : 63
Localisation : TOURS (37)
Date d'inscription : 17/03/2014

MENU-Fichiers Empty
MessageSujet: Re: MENU-Fichiers   MENU-Fichiers EmptyLun 9 Mai 2022 - 15:55

Bonjour à tous !


Bravo et merci du partage JJN 4 !

C'est une bonne idée ce lanceur d'applications. cheers

Pour l'instant, je n'ai pas trouvé comment sélectionner le "Chemin du programme". Je l'ai modifié manuellement en ligne 8 (et les multiples de 8 ) dans le fichier accessible par le menu Réglages.

scratch J'ai bien envie d'utiliser ton code pour me faire une version personnalisée...
Revenir en haut Aller en bas
jjn4

jjn4


Nombre de messages : 2747
Date d'inscription : 13/09/2009

MENU-Fichiers Empty
MessageSujet: Re: MENU-Fichiers   MENU-Fichiers EmptyLun 9 Mai 2022 - 20:34

Marc a écrit:
je n'ai pas trouvé comment sélectionner le "Chemin du programme"
Il suffit de cliquer sur le bouton qui est en dessous, et ensuite se servir de l'open_dialog...
santa
Revenir en haut Aller en bas
http://jjn4.e-monsite.com
Marc

Marc


Nombre de messages : 2466
Age : 63
Localisation : TOURS (37)
Date d'inscription : 17/03/2014

MENU-Fichiers Empty
MessageSujet: Re: MENU-Fichiers   MENU-Fichiers EmptyLun 9 Mai 2022 - 21:22

JJN4 a écrit:
Il suffit de cliquer sur le bouton qui est en dessous, et ensuite se servir de l'open_dialog...

Certes, mais cela rempli automatiquement les champs "Chemin du programme" et "Nom complet du programme" :

MENU-Fichiers Jjn4_110

Ce qui provoque un bug lorsque je clique sur la vignette pour lancer ledit programme :

MENU-Fichiers Jjn4_310

Pour remédier à cela, je vais dans le menu "Réglages" pour supprimer le nom de l'exe dans le chemin du programme, et tout rentre dans l'ordre.

MENU-Fichiers Jjn4_211
Revenir en haut Aller en bas
jjn4

jjn4


Nombre de messages : 2747
Date d'inscription : 13/09/2009

MENU-Fichiers Empty
MessageSujet: Re: MENU-Fichiers   MENU-Fichiers EmptyMar 10 Mai 2022 - 17:05

Alors ça, c'est très curieux, et ça ne me l'a jamais fait,
car ce que tu as retiré par le biais de « Modifs »,
ça le fait automatiquement, comme par exemple :
MENU-Fichiers Image110
Bizarre, bizarre, bizarre...???
scratch
La procédure est définie dans la routine :
Code:
sub chemin() : rem Repérage du chemin du programme ============================
  dim_local v1ch$ , v2ch$ , v3ch%
  open_dialog 1000
      v1ch$=file_name$(1000)
      if v1ch$<>"" and v1ch$<>"_"
        caption 620,v1ch$
        v2ch$=reverse$(v1ch$)
        v3ch%=instr(v2ch$,"\")
        caption 600,left$(v1ch$,len(v1ch$)-v3ch%+1)
        hide 595
        hide 615
      end_if
  delete 1000
end_sub
Et je ne comprends pas comment ça peut ne pas enlever la fin ???????????
scratch
Revenir en haut Aller en bas
http://jjn4.e-monsite.com
Marc

Marc


Nombre de messages : 2466
Age : 63
Localisation : TOURS (37)
Date d'inscription : 17/03/2014

MENU-Fichiers Empty
MessageSujet: Re: MENU-Fichiers   MENU-Fichiers EmptyMar 10 Mai 2022 - 17:52

@JJN4

Cela ne fonctionne pas parce qu'il manque le caractère antislash ligne 636 :

Copie partielle d'écran de ton premier post :
MENU-Fichiers Jjn4_b36

A ce sujet, pour simplifier, je te propose d'utiliser cette commande pour extraire le chemin :

Code:
v2ch$ = file_extract_path$(v1ch$)

Le sous-programme complet deviendrait :
Code:
sub chemin() : rem Repérage du chemin du programme ============================
   dim_local v1ch$ , v2ch$
   open_dialog 1000
      v1ch$=file_name$(1000)
      if v1ch$<>"" and v1ch$<>"_"
         caption 620,v1ch$
         v2ch$ = file_extract_path$(v1ch$)
         caption 600,v2ch$
         hide 595
         hide 615
      end_if
   delete 1000
end_sub

Bonne continuation !
Revenir en haut Aller en bas
jjn4

jjn4


Nombre de messages : 2747
Date d'inscription : 13/09/2009

MENU-Fichiers Empty
MessageSujet: Re: MENU-Fichiers   MENU-Fichiers EmptyMar 10 Mai 2022 - 19:26

Ah ça, c'est curieux que ce « \ » ait disparu au téléchargement !
Mais bon, c'est vrai que ta solution est intéressante et plus moderne.
Il reste toujours des mystères insondables, en informatique !!!
Mad
Revenir en haut Aller en bas
http://jjn4.e-monsite.com
Contenu sponsorisé





MENU-Fichiers Empty
MessageSujet: Re: MENU-Fichiers   MENU-Fichiers Empty

Revenir en haut Aller en bas
 
MENU-Fichiers
Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» Menu personalisé avec icones et menu contextuel
» Un menu animé !
» Menu
» Menu en 3D.
» Menu pop_up

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC :: PANORAMIC :: Vos sources, vos utilitaires à partager-
Sauter vers: