Discussion :

[ProgElecT]

Ok, moi aussi, mais il y a un petit problem, passage de Picture199, suivante dans FileListeBox Picture2, suivante, Picture200

Il ya une solution de toute façon, on verra sa demoin

Bonsoir

[ProgElecT]

Voila, s'est fait, sa fonctionne, sur la base d'un chiffre contenu dans le nom d'un fichier picture?.bmp
Pour essais, sur une frm un FileListBox, un CommandButton et une Image

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Option Explicit
Dim DernImagDansPictur As String
Dim DernImagDansFile As String
 
Private Sub Form_Load()
File1.Pattern = "Picture*.bmp"
File1.Path = "C:\"
'chargement à l'ouverture du prog (une image C:\Picture0.bmp doit existée)
'sinon initialiser DernImagDansPictur = ""
Image1.Picture = LoadPicture(QuelDerniereImage)
End Sub
Private Sub Command1_Click()
'voici les ligne pour verifier et recuperer la derniere image si son N° est
'plus haut que la derniere recuperation
If QuelDerniereImage <> DernImagDansPictur Then
 'nouvelle image
 DernImagDansPictur = DernImagDansFile
 Image1.Picture = LoadPicture(DernImagDansFile)
End If
End Sub
Public Function QuelDerniereImage() As String
'fonction renvoyant le nom de l'image contenant dans
'son nom le chiffre le plus grand
Dim NumImage, T As Integer
File1.Refresh: DoEvents ' pour actualiser
NumImage = -1
For T = 0 To File1.ListCount - 1
 'recuperation du chiffre dans le nom pour trouver le plus grand
 If CInt(Mid$(File1.List(T), 8, Len(File1.List(T)) - 11)) > NumImage Then
  NumImage = CInt(Mid$(File1.List(T), 8, Len(File1.List(T)) - 11))
 End If
Next T
'NumImage est egal au chiffre le plus grand (max)
'recomposition du chemin et nom du fichier
QuelDerniereImage = File1.Path & "Picture" & CStr(NumImage) & ".bmp"
'memorisation pour une future recherche
DernImagDansFile = File1.Path & "Picture" & CStr(NumImage) & ".bmp"
End Function

Salut

[france38]

merci pour le code mes est ce que t'es sur que il y a pas moyen de modifier mon code pour que ca fasse la même chose car j'ai un peu le demon d'avir fait un code pour rien surtout que cela ma pas l'aire dur a modifier.