none
Besoin d'aide visual basic 2010 express RRS feed

  • Question

  • Bonjour, 

    Je suis sur Visual Basic 2010 Express, je code un logiciel pour trier mes photos, je suis débutante. 

    J'ai réussi à faire la visionneuse de photo pour faire défiler mes photos à l'aide de deux bouton et d'une picturebox, pour ouvrir toutes mes photos à trier, avec l'aide proposé par Visual Basic. 

    Or je ne sais pas comment faire pour que en bas à droite je puisse juste entré le nom de mon dossier ( correspondant à un de mes dossier dans le quelle je veux que ma photo se déplace) dans un textbox et cliquer sur un bouton valider ou appuyer sur la touche entrer et que cela déplace la photo qui est dans ma picturebox dans le dossier demandé. 

    Voici le code de mon bouton valider que j'ai mis pour le moment :

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

            SaveFileDialog1.ShowDialog()

        End Sub


     Private Sub SaveFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles SaveFileDialog1.FileOk
            PictureBox1.Image.Save(SaveFileDialog1.FileName + ".jpg", System.Drawing.Imaging.ImageFormat.Jpeg)
        End Sub

    J'ai essayer de trouver sur la page d'aide internet de vb mais je ne trouve pas :/ 

    Si vous avez des page à me recommander ou si vous voulez bien m'aider je suis preneuse ! 


    Merci de votre aide.

    jeudi 8 juin 2017 21:28

Réponses

  • Si vous mettez une TextBox pour entrer votre chemin et nom de fichier vous pouvez faire juste comme ceci:

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click SaveFileDialog1.ShowDialog() Dim NomFichierImage As String NomFichierImage = TextBox1.Text

    'Vérification si le nom de fichier est valide. On pourrait aussi vérifier l'extension jpg ou JPG If FilenameIsOK(NomFichierImage) = True Then PictureBox1.Image.Save(NomFichierImage, System.Drawing.Imaging.ImageFormat.Jpeg) Else MessageBox.Show("Nom de fichier invalide.") End If End Sub Public Shared Function FilenameIsOK(ByVal fileNameAndPath As String) As Boolean Dim fileName = Path.GetFileName(fileNameAndPath) Dim directory = Path.GetDirectoryName(fileNameAndPath) For Each c In Path.GetInvalidFileNameChars() If fileName.Contains(c) Then Return False End If Next For Each c In Path.GetInvalidPathChars() If directory.Contains(c) Then Return False End If Next Return True End Function

    et ajoutez Imports System.IO en entête du code de la forme.

    vendredi 9 juin 2017 08:09