Discussion :

[jobunn]

Bonjour à tous,
A l'aide d'un livre sur VB 2005 je suis actuellement en train de coder une galerie photos.
Rien de bien folichon cependant il reste une erreur qui m'empêche de tester mon application.
Voiçi le code de l'évenement click sur "Ouvrir" dans mon menu :

'Sur Click "OUVRIR" dans le menu
Private Sub OuvrirToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OuvrirToolStripMenuItem.Click

'CHEMIN DES IMAGES -> PC -> Mes images
FolderBrowserDialog1.SelectedPath = My.Computer.FileSystem.SpecialDirectories.MyPictures

If FolderBrowserDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
ImageList1.Images.Clear()
ListView1.Items.Clear()


For Each file As String In directory.getfiles(FolderBrowserDialog1.SelectedPath, "*.jp*g")

'Pour chaque image on crée une miniature dans l'image list
Dim index As Integer = ImageList1.Images.Add(obtenirimage(file), Nothing)
'On crée un listviewitem auquel on associe le nom du fichier et le numéro de l'image dans la liste miniatures

Dim photo As ListViewItem = New ListViewItem(path.getfilenamewithoutextension(file), index)

'Tag retient le chemin complet vers l'image originale
photo.Tag = file

'On ajoute l'élement au listview
ListView1.Items.Add(photo)
Next


For Each tsi As ToolStripItem In ToolStrip1.Items
tsi.Enabled = (ListView1.Items.Count > 0)
Next

If (ListView1.Items.Count > 0) Then
ListView1.Items(0).Selected = True
Else
PictureBox1.Image = Nothing
End If
End If

End Sub

Comme je l'ai fait apparaitre en gras, le directory.getfiles ne fonctionne pas.
L'erreur est la suivante : "Le nom directory n'est pas déclaré"

Je pense que l'auteur du livre a homis une ligne de déclaration pour le directory....

En espérant que l'un d'entre vous puisse m'aider.
Bonne journée à tous .

[Pol63]

c'est un probleme d'imports (déclarer ou se trouve les fonctions qu'on utilise)

soit tu rajoutes en haut imports System.IO
soit tu fais System.IO.Directory

[jobunn]

Merci sperot ca marche très bien, j'en profite pour enchainer sur une autre question.
Dans mon diaporama, l'utilisateur peut faire "Enregistrer sous..".
Cela marche cependant dans la page Windows "enregistrer sous" la combo Type n'affiche rien.

Ma question :
Quelles est la propriété à modifier pour que le programme propose par défaut des formats d'enregistrement ? (jpg, bmp...etc)


Merci pour vos réponses

[Pol63]

sur ton objet qui ouvre la fenetre de dialogue, cherche une propriété filter
dans vb6 il fallait faire .filter = "fichiers texte|*.txt|fichiers machins|*.mach1"

[SaumonAgile]

sur ton objet qui ouvre la fenetre de dialogue, cherche une propriété filter
dans vb6 il fallait faire .filter = "fichiers texte|*.txt|fichiers machins|*.mach1"

En .NET, la propriété existe aussi, elle s'appelle Filter

[jobunn]

Merci beaucoup à tous ca fonctionne niquel !