徐州励志学校好不好:求大家帮我看看这个VB 程序吧。
来源:百度文库 编辑:查人人中国名人网 时间:2024/10/02 20:26:32
这个程序主要是一个聊天程序的部分程序,问题是我把其生成EXE程序的时候它就会显示“错误的参数号或无效的属性赋值”然后光标就在b(Index)那里了。哪个高手知道是怎么回事啊。
Private Sub b_DataArrival(ByVal bytesTotal As Long)
Dim str As String
Dim i As Long
b(Index).GetData str
Text1.Text = Text1.Text + str
For i = 1 To maxn
If user(i) Then
b(i).SendData str
End If
Next i
End Sub
Private Sub Command1_Click()
Form2.Hide
End Sub
Private Sub Command2_Click()
Load Form1
Form1.Show
End Sub
Private Sub Form_Load()
Dim str1 As String
Form2.Caption = "用户"
'注释:winsock控件 a 作为服务器程序监听
a.LocalPort = 3000
a.Listen
End Sub
Private Sub a_ConnectionRequest(ByVal requestID As Long)
Dim i As Long
For i = 1 To maxn '当一客户请求时给启动一Winsock控件标志号
If Not user(i) Then
user(i) = True
Exit For
End If
Next i
If i > maxn Then
Exit Sub
End If
Load b(i) '当一客户请求时启动一Winsock控件
b(i).Accept requestID '注释:实际建立连接
If Text1.Text = "" Then '注释: 发送数据
b(i).SendData Chr(0)
Else
b(i).SendData Text1.Text
End If
Form2.Show
End Sub
Private Sub s_Close(Index As Integer)
b(Index).Close '注释: 关闭连接
Unload b(Index) '注释:卸载 一个WinSock 控件'
user(Index) = False
End Sub
刚才的问题好象已经解决了。但是现在却出现了和谁连接都超时连不上的问题。为什么呢?谁能告诉我。
PS:DIM就在那个位置啊。
我是下载的,希望大家去看看原文:http://www.tesoftware.net/code/netware/117.htm 非常感谢
Private Sub b_DataArrival(ByVal bytesTotal As Long)
Dim str As String
Dim i As Long
b(Index).GetData str
Text1.Text = Text1.Text + str
For i = 1 To maxn
If user(i) Then
b(i).SendData str
End If
Next i
End Sub
Private Sub Command1_Click()
Form2.Hide
End Sub
Private Sub Command2_Click()
Load Form1
Form1.Show
End Sub
Private Sub Form_Load()
Dim str1 As String
Form2.Caption = "用户"
'注释:winsock控件 a 作为服务器程序监听
a.LocalPort = 3000
a.Listen
End Sub
Private Sub a_ConnectionRequest(ByVal requestID As Long)
Dim i As Long
For i = 1 To maxn '当一客户请求时给启动一Winsock控件标志号
If Not user(i) Then
user(i) = True
Exit For
End If
Next i
If i > maxn Then
Exit Sub
End If
Load b(i) '当一客户请求时启动一Winsock控件
b(i).Accept requestID '注释:实际建立连接
If Text1.Text = "" Then '注释: 发送数据
b(i).SendData Chr(0)
Else
b(i).SendData Text1.Text
End If
Form2.Show
End Sub
Private Sub s_Close(Index As Integer)
b(Index).Close '注释: 关闭连接
Unload b(Index) '注释:卸载 一个WinSock 控件'
user(Index) = False
End Sub
刚才的问题好象已经解决了。但是现在却出现了和谁连接都超时连不上的问题。为什么呢?谁能告诉我。
PS:DIM就在那个位置啊。
我是下载的,希望大家去看看原文:http://www.tesoftware.net/code/netware/117.htm 非常感谢
Dim是不是打在最上面?