Bonjour
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 Private Sub Winsock2_DataArrival(ByVal bytesTotal As Long) Dim Arrive As String Dim hop As String Dim a On Error Resume Next For a = 1 To 100000000 If PathFileExists("C:\Picture" & a & ".bmp") = False Then If OuvrirImage = False Then Open ("C:\Picture" & a & ".bmp") For Binary Access Write As #2 OuvrirImage = True ElseIf OuvrirImage = True Then DoEvents Set Form6.Image1.Picture = LoadPicture("C:\Picture(a).bmp") Exit For End If End If Next a Winsock2.GetData Arrive hop = Arrive If hop = "END" Then Close #2 OuvrirImage = False Winsock2.Close Else Put 2, , hop Close #2 End If End Sub
voila ceci est mon code, il marche bien mon seul probléme c'est que je n'arrive pas a afficher ma nouvelle photo crée dans le picturebox car enféte les photos s'enregistre sous des noms different picture1.bmp aprés picture2.bmp si la 1 existe et insi de suite donc mon probleme est a cette ligne
Set Form6.Image1.Picture = LoadPicture("C:\Picture(a).bmp")
je c'est pas comment faire pour l'afficher car elle change de nom a chaque fois. merci de m'aider
Partager