[R] FileSelectFolder Flag

Aide sur les Interfaces Graphique Utilisateurs (GUI).
Règles du forum
.
Répondre
Faco
Niveau 4
Niveau 4
Messages : 80
Enregistré le : lun. 29 juil. 2013 18:09
Status : Hors ligne

[R] FileSelectFolder Flag  

#1

Message par Faco »

Bonjour,

Question rapide j'espère.

J'ai voulu faire une petite modif sur un de mes vieux scripts de 2016 et la seule fonction GUI que j'utilise ne donne plus le même rendu. Je préférai avant (et oui, c'était mieux avant :D ).

Puis je forcer l'ancien style ?

Code : Tout sélectionner

FileSelectFolder("Selectionnez le dossier à convertir","",6,@ScriptDir)
Image : https://ibb.co/55pvtF5
Merci d'avance
++
Modifié en dernier par Faco le mar. 18 janv. 2022 21:22, modifié 2 fois.
Avatar du membre
walkson
Modérateur
Modérateur
Messages : 1032
Enregistré le : ven. 12 août 2011 19:49
Localisation : Hurepoix
Status : Hors ligne

Re: [..] FileSelectFolder Flag

#2

Message par walkson »

Bonjour,
Il y a quelques années j'avais regardé les boites de dialogue existantes avec Autoit, je vous mets le code, _WinAPI_BrowseForFolderDlg() devrait correspondre à votre demande

Code : Tout sélectionner

#include <Array.au3>
#include <WinAPIDlg.au3>
#include <APIDlgConstants.au3>

$aa = FileRead(@DesktopDir & "\xcopy.txt")
				$aFile = _WinAPI_GetSaveFileName("My Save File Dialog", _
						"Text File (*.txt)|AutoIt File (*.au3)", @DesktopDir, "ww.txt", _
						"", 1, $OFN_CREATEPROMPT, $OFN_EX_NOPLACESBAR, 0)
						_ArrayDisplay($aFile)
						FileWrite($aFile[1]&"\"&$aFile[2],$aa)
				$aFile = _WinAPI_GetOpenFileName("My Open File Dialog", _
						"Text File (*.txt)|AutoIt File (*.au3)", ".", @ScriptName, _
						"", 2, BitOR($OFN_ALLOWMULTISELECT, $OFN_EXPLORER), $OFN_EX_NOPLACESBAR, 0)
						_ArrayDisplay($aFile)

Local $sPath = _WinAPI_BrowseForFolderDlg(@DesktopDir, 'Select a folder from the list below.', BitOR($BIF_NEWDIALOGSTYLE, $BIF_EDITBOX, $BIF_VALIDATE))
MsgBox(0,"",$sPath)

				$aFile = _WinAPI_GetOpenFileName("My Open File Dialog", _
						"Text File (*.txt)|AutoIt File (*.au3)", ".", @ScriptName, _
						"", 2, $OFN_EXPLORER, $OFN_EX_NOPLACESBAR)
						_ArrayDisplay($aFile)
J'ai essayé de rapatrier l'image sur le forum pour ne pas la perdre mais je n'ai pas réussi. Merci de le faire (mieux que moi :lol: )
Cordialement,
Walkson
"Horas non numero nisi serenas " Le canon de midi
(Je ne compte que les heures heureuses)
Avatar du membre
Tlem
Site Admin
Site Admin
Messages : 11782
Enregistré le : ven. 20 juil. 2007 21:00
Localisation : Bordeaux
Status : Hors ligne

Re: [..] FileSelectFolder Flag

#3

Message par Tlem »

@walkson
Lorsque vous étes dans l'éditeur complet, vous avez un onglet "Fichiers joints".

Voilà.
Thierry

Rechercher sur le forum ----- Les règles du forum
Le "ça ne marche pas" est une conséquence commune découlant de beaucoup trop de raisons potentielles ...

Une idée ne peut pas appartenir à quelqu'un. (Albert Jacquard) tiré du documentaire "Copié n'est pas volé".
Avatar du membre
walkson
Modérateur
Modérateur
Messages : 1032
Enregistré le : ven. 12 août 2011 19:49
Localisation : Hurepoix
Status : Hors ligne

Re: [..] FileSelectFolder Flag

#4

Message par walkson »

Bonjour Tlem
Cela m'affiche
Désolé, le quota de fichiers joints a été atteint.
Il faudra peut être que je fasse le ménage dans les fichiers joints ?
Je suppose que les images supprimées dans la gestions des fichiers joints persistent dans les commentaires ?
Cordialement,
Walkson
"Horas non numero nisi serenas " Le canon de midi
(Je ne compte que les heures heureuses)
Faco
Niveau 4
Niveau 4
Messages : 80
Enregistré le : lun. 29 juil. 2013 18:09
Status : Hors ligne

Re: [..] FileSelectFolder Flag

#5

Message par Faco »

Tlem a écrit : sam. 15 janv. 2022 11:12 @walkson
Lorsque vous étes dans l'éditeur complet, vous avez un onglet "Fichiers joints".

Voilà.
@Tlem
J'ai eu le même problème pour la pièce jointe que @walkson.


Merci walkson :bisou:

Code : Tout sélectionner

#include <Array.au3>
#include <WinAPIDlg.au3>
#include <APIDlgConstants.au3>
Local $sPath = _WinAPI_BrowseForFolderDlg(@DesktopDir, 'Select a folder from the list below.', BitOR($BIF_NEWDIALOGSTYLE, $BIF_EDITBOX, $BIF_VALIDATE))
Répondre