Discussion :

[excalybur]

Bonsoir,

Est-il possible de modifier le titre d'un FolderBrowserDialog ?

En effet il est possible de modifier le sous-titre avec Description mais pas le titre, exemple:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 'Créer un box dialog folder (répertoire)
            Dim objFolderDialog As New FolderBrowserDialog()
            objFolderDialog.Description = "Select the document folder"
                     Dim result As DialogResult = objFolderDialog.ShowDialog()

Je n'ai pas trouvé d'autre option pour changer le titre.

En cherchant sur le net j'ai trouvé ce lien intéressant qui nous explique qu'il faut changer avec " P/Invoke and
send a WM_SETTEXT message to the form to change its title." :

https://www.pcreview.co.uk/threads/p...title.3682037/

OK sur le principe.

Il y a même un code en C# je pense ou en C# ancienne version ?.

Je ne suis pas arrivé à le transformer en VB.net car il y a déjà des erreurs non résolu dans le code du form. Quelqu'un peut-il m'aider car je ne maitrise hélas pas du tout le C ou C#.

LE code proposé est :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
1. public partial class Form1 : Form
2. {
3. public Form1()
4. {
5. InitializeComponent();
6. }
7.
8. public delegate void ChangeTitleDelegate();
9.
10. [DllImport("user32.dll", EntryPoint = "SetWindowText", CharSet = CharSet.Ansi)]
11. public static extern bool SetWindowText(IntPtr hWnd, String strNewWindowName);
12.
13. [DllImport("user32.dll", EntryPoint = "FindWindow", CharSet = CharSet.Ansi)]
14. public static extern IntPtr FindWindow(string className, string windowName);
15.
16. private void button1_Click(object sender, EventArgs e)
17. {
18. //Change FolderBrowserBox Title.
19. this.BeginInvoke(new ChangeTitleDelegate(ChangeFolderBrowserBoxTitle));
20.
21. //Show FolderBrowserBox
22. FolderBrowserDialog folderBrowserDialog = new FolderBrowserDialog();
23. folderBrowserDialog.RootFolder = System.Environment.SpecialFolder.MyComputer;
24. folderBrowserDialog.ShowDialog();
25. }
26.
27. /// <summary>
28. /// Change FolderBrowserBox Title.
29. /// </summary>
30. private static void ChangeFolderBrowserBoxTitle()
31. {
32. bool titleChanged = false;
33.
34. TimerCallback timerCallback = delegate
35. {
36. try
37. {
38. IntPtr ptr = FindWindow(null, "Browse For Folder");
39. if (ptr != IntPtr.Zero)
40. {
41. SetWindowText(ptr, "Hi, i am Tarannum Banu");
42. titleChanged = true;
43. }
44. }
45. catch (Exception exception)
46. {
47. System.Diagnostics.Debug.WriteLine(exception.Message);
48. }
49. catch
50. {
51. }
52. };
53.
54. System.Threading.Timer timer = null;
55. try
56. {
57. timer = new System.Threading.Timer(timerCallback, null, 500, 500);
58. while (!titleChanged)
59. {
60. System.Windows.Forms.Application.DoEvents();
61. System.Threading.Thread.Sleep(0);
62. }
63. }
64. catch (Exception exception)
65. {
66. System.Diagnostics.Debug.WriteLine(exception.Message);
67. }
68. finally
69. {
70. if (timer != null) timer.Dispose();
71. }
72. }

Existe-t'il une solution plus simple que cette usine à gaz ?

Merci pour vos idées et votre aide.

[umfred]

En mettant la propriété FolderBrowserDialog.UseDescriptionForTitle à true, ça devrait être bon.

[excalybur]

OK merci pour ta réponse,

Je regarde cela dans la soirée.

A+

[excalybur]

Bonsoir,

Voici le nouveau code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Public Property UseDescriptionForTitle As Boolean
 
Public Sub LoadFile()
 
'Créer un box dialog folder (répertoire)
            Dim objFolderDialog As New FolderBrowserDialog()
 UseDescriptionForTitle = True
            objFolderDialog.Description = "Select the document folder"
                     Dim result As DialogResult = objFolderDialog.ShowDialog()
End sub

et l'on obtient toujours le titre en français : "Rechercher un dossier" et non pas "Select the document folder" comme je l'ai programmé.

Une capture d'écran pour illustrer le problème :



Un système bi-lingue certes mais bon c'est pas top.

Mon programme est trilingue Anglais Français ou Allemand. Faut-il changer la langue du framework? Si oui comment?

Que pouvez-vous me proposer ?

a+

[excalybur]

Bonjour

En relisant la littérature concernant la propriété UseDescriptionForTitle
je note que cela est possible sous Vista et apparemment quelques autres variantes. Il est écrit :

"Obtient ou définit une valeur qui indique s’il faut utiliser la valeur de la propriété Description comme titre de boîte de dialogue pour les boîtes de dialogue de style Vista. Cette propriété n’a aucun effet sur les anciennes boîtes de dialogue de style."
voir : https://learn.microsoft.com/fr-fr/do...owsdesktop-6.0

Le problème de compatibilité serait-il là ?

Je travail sous Win 10 pro 64x et .NET Framework version 4.8.04084

Existe-t'il une routine VB.net ou C# réalisant l'équivalent d'un Folder Browser de meilleur qualité et multi feuille ? Que me proposez-vous?

[umfred]

Chez moi ça fonctionne,
juste comme c'est une propriété du FolderBrowserDialog, il faudrait faire précéder la propriété par l'objet concerné (voir ligne 7).

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Public Property UseDescriptionForTitle As Boolean
 
Public Sub LoadFile()
 
'Créer un box dialog folder (répertoire)
            Dim objFolderDialog As New FolderBrowserDialog()
            objFolderDialog.UseDescriptionForTitle = True
            objFolderDialog.Description = "Select the document folder"
                     Dim result As DialogResult = objFolderDialog.ShowDialog()
End sub

[excalybur]

Bonjour

Merci. Effectivement si je cré une nouvelle application cela fonctionne parfaitement. Le titre est bien mis en anglais. Par contre sur mon application à la ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 objFolderDialog.UseDescriptionForTitle = True

J'ai le code erreur suivant : BC3045 "UseDescriptionForTitle" n'est pas un membre de 'FoderBrowserDialog'
Donc que conclure? => Cela fonctionne en test mais pas dans un programme existant.

La version d'essai de ma deuxième fenêtre VS 2022 est sous .NET 6.0 or que mon programme plus ancien est également sous VS 2022 mais fonctionne sous Framework 4.8.
Donc mon VS2022 est de base programmé en .NET 6.0 quand je cré un nouveau projet => OK. Par curiosité j'ai vérifié que 6.0.100 et 6.0.403 sont bien installé.

[excalybur]

La migration de 4.8 vers 6.NET ou 7.NET est une vrai usine à gaz à en lire ce qui suit :

https://learn.microsoft.com/fr-fr/do...ject-structure

Où sont les convertisseurs complets? (souvenir de la migration chaotique de VB6 à VB.NET ! )

[excalybur]

Je vois que personne n'a d'autre solution à me proposer, je pense notamment à un "Browser Folder" de fabrication maison adaptable à 4.80 mais sur le modèle de celui de 6.0. Mais là hélas je ne sais pas faire. Une idée ?

J'ai même essayé avec framework 4.81 (dernière version disponible) : le problème reste le même.

Le point positif : Réécrire des micro programmes de test en 6.0 est une formalité qui prends quelques minutes.

A vous lire