Discussion :

[reun0]

Bonjour,

Je pense que le titre est assez explicite.

J'ai une OpenSourceFileDialog et lorsque que l'utilisateur appuie sur OK le fenêtre de dialogue OpenSourceFileDialog met du temps à se fermer.

Y-a-t-il un moyen de la cacher ou autre car elle laisse une trace sur la Form principale?

Merci

[Aspic]

Ca serait pas une OpenFileDialog ?

[reun0]

Ca serait pas une OpenFileDialog ?

Oops! Si si, c'est ça, un OpenFileDialog...

L'OpenSourceFileDialog c'est le nom de mon objet :/

Désolé...

[Aspic]

Ok et elle est trop lente c'est ca ?? bizarre car c'est jamais lent cette boite de dialogue...

[reun0]

Ok et elle est trop lente c'est ca ?? bizarre car c'est jamais lent cette boite de dialogue...

non, mais c'est moi qu doit déconner dans le prog mais je ne sais pas où.

Pour le moment le prog traite les calculs juste après avoir cliqué sur le bouton OK de la boîte. Je vais tenter de traiter les calculs dans l'event Close de la boîte de dialogue.

a+

[Aspic]

non, mais c'est moi qu doit déconner dans le prog mais je ne sais pas où.

Pour le moment le prog traite les calculs juste après avoir cliqué sur le bouton OK de la boîte. Je vais tenter de traiter les calculs dans l'event Close de la boîte de dialogue.

a+

Si tu postais la procédure de tes calculs ainsi que l'endroit où tu appelles l'ouverture de ta boite de dialog ?

[leon_2]

Bonjour à tous!

Alors en ce qui me concerne, j'ai le même probème!

Voici mes portions de code:
Ici, la procédure lors du click sur OK dans la boite de dialogue

Code :

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

1
2
3
4
5
6
 Private Sub dialog_importDB_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles dialog_importDB.FileOk
 
        Me.Cursor = Cursors.WaitCursor
        Call Mod_fileManager.ImportDB(Me.dialog_importDB.FileName, True)
        Me.Cursor = Cursors.Default
    End Sub

Ici le code de la procédure appelée ci-dessus:

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
 
 
Friend Sub ImportDB(ByVal sourceFile As String, ByVal displayWarningMessage As Boolean)
 
 
        If displayWarningMessage Then
            If MsgBox(master.getTrans("Mod_fileManager.ImportDB.msgbox.warningMessage.message"), MsgBoxStyle.YesNo, master.getTrans("Mod_fileManager.ImportDB.msgbox.warningMessage.title")) = MsgBoxResult.No Then
                Exit Sub
            End If
        Else
 
        End If
        Dim bakFile As String = workDBDirPath & "Pharmanager.bak"
 
        Try
            'creates a backup of the database in the working directory
            FileIO.FileSystem.CopyFile(WorkDbFullPath, bakFile, True)
 
            'replaces the working database by the imported one
            FileIO.FileSystem.CopyFile(sourceFile, WorkDbFullPath, True)
 
            master.displayMessage(mainform.statusLabel, "common.messages.DBImportSuccess", 0)
            master.fillDA()
            mainform.initMainForm()
 
        Catch ex As Exception
            master.displayMessage(mainform.statusLabel, "common.messages.DBImportError", 1)
            master.log(ex, 2)
        End Try
    End Sub

Le code fonctionne parfaitement, mais mon programme importe des données, ce qui prend du temps.
Donc la boite de dialogue reste affichée...

Merci d'avance!!

Bye, p.