Discussion :

[kurt225]

Bonjour,

J'ai créé un raccourci clavier pour ma windows form afin d'ouvrir un FolderBrowserDialog.

(Pour le raccourci clavier, j'utilise un Timer, permettant de rester à l'écoute des entrées claviers, peu importe où l'on se trouve sur windows).

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
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick, MyBase.Load
 
        Dim ctrlkey As Boolean
        Dim F11 As Boolean
 
        ctrlkey = GetAsyncKeyState(Keys.ControlKey)
        F11 = GetAsyncKeyState(Keys.F11)
 
 
        If ctrlkey And F11 = True Then
 
            If (DialogResult.OK = dialog.ShowDialog) Then
 
                dirName = dialog.SelectedPath & "\"
                f.ModifConfigDirectory("cheminCSV", dirName)
                MsgBox("Le répertoire par défaut du fichier CSV est maintenant : " & dirName)
            Else
                MsgBox("Veuillez choisir un répertoire correct")
                Return
            End If
 
        End If
 
    End Sub

PROBLEME 1 : La fenetre n'est pas en premier plan, et j'ai besoin qu'elle apparaisse en premier plan.

PROBLEME 2 : La fenetre apparait plusieurs fois, alors que je n'ai fait qu'une seule fois la combinaison : CTRL + F11

NOTE : Avec un autre timer, j'arrive à faire apparaître une fenetre classique en premier plan, alors pourquoi avec le FolderBrowserDialog, cela pose problème?

(Si j'appuye sur le bouton du context Menu Strip, tout est OK la fenêtre est en premier plan, mais avec le raccourci clavier, c'est mort).

Merci de bien vouloir m'aider.

[wallace1]

Bonjour Kurt225,

Ton problème se situe au niveau de la portée de tes variables :

Code :

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

1
2
Dim ctrlkey As Boolean
Dim F11 As Boolean

Si tu les laisses dans le corps de ton timer alors la condition évaluée restera toujours la même !


A+

[kurt225]

Merci Wallace pour ta réponse ^^

J'ai déclaré mes variables en global, c'est à dire tout en haut du code.

Cependant, j'ai toujours le problème de la fenêtre qui ne s'affiche pas en premier plan. Mon programme fonctionne avec un autre logiciel qui prend tout l'écran, et j'ai impérativement besoin que le FolderBrowserDialog s'affiche au dessus de cette application, sinon on ne peut pas savoir s'il y a eu des changements.

J'ai tapé sur google "VB.NET FolderBrowserDialog foreground", mais je n'ai pas trouvé de cas similaire au mien.

Sinon, dans le ContextMenuToolStrip, quand je clique sur le bouton, la fenêtre se met bien au premier plan.

En tout cas bien vu.

[Graffito]

Mettre " Timer1.Enabled=false " et Timer1.Enabled=true" au début et à la fin de la procedure Timer1_Tick devrait au moins résoudre le problème des formes multiples.

[kurt225]

Graffito, merci pour l'astuce, un soucis de moins!

Maintenant, le problème, c'est que la fenêtre n'apparaît pas en premier plan avec le raccourci clavier. Une idée?

En tout cas merci pour l'aide!

[Graffito]

Utiliser comme Timer un Control Winforms (System.WinForms.Forms.Timer) au lieu d'un autre type de timer (comme par exemple System.Timers.Timer).

Sinon, essayer de mettre this.topMost = true juste avant le ShowDialog et this.topMost=false juste après.

[kurt225]

Utiliser comme Timer un Control Winforms (System.WinForms.Forms.Timer) au lieu d'un autre type de timer (comme par exemple System.Timers.Timer).

Sinon, essayer de mettre this.topMost = true juste avant le ShowDialog et this.topMost=false juste après.

J'ai utilisé la deuxième méthode, et ça marche. Merci mille fois!