Discussion :

[PiPo123]

Bonjour,

J'ai un projet en C# avec VS 2010 et j'ai une macro qui demande de choisir un fichier pour le charger par la suite dans l'éditeur de l'IDE, ça fonctionne mais le dialog OpenFileDialog ne s'affiche pas en avant plan je dois presser sur ALT+TAB et le choisr dans la liste pour le faire passer en avant plan. Je fais ça car j'ai des fichiers avec de long chemin et je me souviens pas toujours ou ils sont avec une macro et un répertoire de départ ça va plus vite.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
    Sub Open_Macro_Code_File()
        Dim fd As OpenFileDialog = New OpenFileDialog()
        fd.Title = "Select Macros Code File"
        fd.InitialDirectory = "J:\Documents and Settings\Un long filepath\"
        fd.Filter = "Text files (*.txt)|*.txt|C Sharp files (*.cs)|*.cs |All files (*.*)|*.*"
        fd.DefaultExt = "*.cs"
        fd.FileName = "*.cs"
        fd.FilterIndex = 2
        fd.RestoreDirectory = True
        If fd.ShowDialog() = DialogResult.OK Then
            DTE.ItemOperations.OpenFile(fd.FileName)
            DTE.ActiveDocument.Activate()
        End If
    End Sub

Essayez la macro et dites moi si le dialog apparait en avant plan, j'utilise Windows XP SP3.

Quelqu'un a-t-il une explication et une solution ?

Merci

[Themacleod1980]

salut,
me suis jamais amusé avec les macros mais tente de définir la Form parent de ton Dialog : ".ShowDialog(maVisualStudioForm)"

[PiPo123]

Ok j'ai trouvé

C'est un bug de Windows voir article suivant http://support.microsoft.com/kb/312877

voici les modifications à faire

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
    Sub __Open_Macro_Code_File__()
 
        Dim winptr = New WinWrapper()  
        ...
        If fd.ShowDialog(winptr) = DialogResult.OK Then
        ...        
    End Sub
 
Ajouter une Class WinWrapper à la fin de votre module
...
EndModule
'' This class is used to set the proper parent to any UI that you may display from within a macro.
'' See the AddClassicComRef macro for an example of how this is used
PublicClass WinWrapper
Implements System.Windows.Forms.IWin32Window
OverridableReadOnlyProperty Handle() As System.IntPtr Implements System.Windows.Forms.IWin32Window.Handle
Get
Dim iptr AsNew System.IntPtr(DTE.MainWindow.HWnd)
Return iptr
EndGet
EndProperty
EndClass

Bye.

[Themacleod1980]

"fd.ShowDialog(winptr)"

tien donc ^^