作者ellen (ellen)
看板Visual_Basic
標題[VB6 ] 不知道該如何解決的Compile Error
時間Wed Jan 11 20:08:52 2006
不好意思 因為是初學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
1F:推 dunn:會不會是你WINSOCK不是物件陣列呀? 01/11 22:42
2F:推 ellen:所以是說 要把他宣告成物件陣列嗎? 我試了一下 好像還是不行 01/12 01:08
3F:→ ellen:不知道是不是我用錯方式了~可以說清楚一些些嗎?謝謝 >/////< 01/12 01:09