Discussion :

[JEANMARC33]

Bonjour les experts

j'ai développer un petit programme en vb.net et je traite plusieurs événements.J'ai placé , après action sur un bouton, le code suivant:

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
 
Public Sub cherche_dossier(ByRef BubbleEvent As Boolean)
 
        Try
            ShowFolderBrowserThread = New Threading.Thread(AddressOf FolderBrowser)
            If ShowFolderBrowserThread.ThreadState = ThreadState.Unstarted Then
                ShowFolderBrowserThread.SetApartmentState(ApartmentState.STA)
                ShowFolderBrowserThread.Start()
            ElseIf ShowFolderBrowserThread.ThreadState = ThreadState.Stopped Then
                ShowFolderBrowserThread.Start()
                ShowFolderBrowserThread.Join()
            End If
        Catch ex As Exception
           Appli.MessageBox("cherche_dossier" & ex.Message)
        End Try
    End Sub
    Public Sub FolderBrowser()
        Dim Dlg As New FolderBrowserDialog
        Dim MyProcs() As System.Diagnostics.Process
        Try
            MyProcs = Process.GetProcessesByName(MonAppli)
 
            If MyProcs.Length = 1 Then
                For i As Integer = 0 To MyProcs.Length - 1
 
                    '// WindowWraper concepts are used to access open dialogue box of windows
                    Dim MyWindow As New WindowWrapper(MyProcs(i).MainWindowHandle)
                    Dlg.Description = "Selectionner un dossier"
                    Dlg.RootFolder = Environment.CurrentDirectory
                    If Dlg.ShowDialog(MyWindow) = DialogResult.OK Then
                        Edch.Value = Dlg.SelectedPath
                        RepPath = Dlg.SelectedPath
 
                    Else
                        System.Windows.Forms.Application.ExitThread()
                    End If
 
                Next
            End If
        Catch ex As Exception
            Appli.MessageBox("Repertbrowser" & ex.Message)
        End Try
    End Sub

Ce code, compilé, fonctionne très bien sur mon pc de développement
Par contre si je porte le programme compilé sur un serveur là mon code ne s'éxécute pas ( Pas de plantage mais pas d'action)
Pouvez-vous m'expliquer?
merci pour vos réponses

[Sankasssss]

Bonsoir,

Quel est le type de serveur? Quel est le framework sur le serveur?