- Код: Выделить всё
Public buffer
Public saved(0 to 2) as long
Dim n as Byte
Private Sub Winsock_DataArrival(ByVal bytesTotal As Long)
Winsock.GetData buffer
If n = 3 Then Exit Sub
saved(n) = buffer
n = n + 1
End Sub
Он ругается Несоответствие типов на строку saved(n) = buffer...
Ничё не пойму!
З.Ы.: Размеры экрана - Integer, DC - Long... или это не важно?
Спасибо