[VB6 ] 不知道該如何解決的Compile Error

看板Visual_Basic作者ellen (ellen)時間19年前 (2006/01/11 20:01)推噓2(2推 0噓 1→)

留言3則, 2人參與討論串1/1

不好意思因為是初學VB的新手如果問的太笨的話請多包函謝謝大家 >"< -- 我在研究一個Server端程式...可是我debug時他會出現一個complier error 我嘗試找了網路跟書籍可是因為語法不熟而不知該如何解決可以請板上哪位好心人稍微提點一下嗎? 謝謝! 有error的部分是標示黃色的地方它說 "Wrong number of arguments or invalid property assignment" --以下是程式碼 Option Explicit Private Sub Form_Load() Load Winsock1(1) Load Winsock1(2) Load Winsock1(3) Load Winsock1(4) Winsock1(0).LocalPort = 6500 Winsock1(0).Listen End Sub Private Sub Form_Unload(Cancel As Integer) Dim i As Long For i = 0 To 4 Winsock1(i).Close Next Unload Winsock1(1) Unload Winsock1(2) Unload Winsock1(3) Unload Winsock1(4) End Sub Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long) Dim i As Long For i = 1 To 4 If Winsock1(i).State = sckClosed Then Winsock1(i).Accept requestID List1.AddItem "Local Port=" + Str(Winsock1(i).LocalPort) + " RemotePort = " + Str(Winsock1(i).RemotePort) Exit For End If Next End Sub Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) Dim mydata As String Winsock1(Index).GetData mydata, vbString List1.AddItem "From Socket" + Str(Index) + " " + mydata Winsock1(Index).SendData "WinSock" + Str(Index) + "Reply" If mydata = "Close" Then Winsock1(Index).Close End If End Sub -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 140.121.218.170