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 Private Sub Winsock2_DataArrival(ByVal bytesTotal As Long) Dim Arrive As String Dim hop As String Dim chemin On Error Resume Next For a = 1 To 1000 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") End If End If Winsock2.GetData Arrive hop = Arrive If hop = "END" Then Close #2 OuvrirImage = False Winsock2.Close Exit For Else Put 2, , hop End If Next a End Sub
Bonjour,
voici mon code enfete je veux que quand le winsock recoi la photo enfin la picture il l'enregistre sous picture1 ou si picture1 existe picture2 et ainsi de suite.est ce que quelle qu'un peut me dire ou est le probleme.
Partager