Option ExplicitPrivate Sub Command1_Click()
Winsock1.Protocol = sckTCPProtocol
Winsock1.Connect "www.csdn.net", 80
End SubPrivate Sub Winsock1_Close()
Debug.Print "closed" & vbCr & vbLf
End
End SubPrivate Sub Winsock1_Connect()
Debug.Print "connected" & vbCr & vbLf
Winsock1.Close
End Sub
就这样的代码, 启动后, 我单击Command1, 连接上了 www.csdn.net 然后我关闭窗体, 整个 vb6 IDE 就 DOWN 了怎么回事? 谁碰到过?
Winsock1.Protocol = sckTCPProtocol
Winsock1.Connect "www.csdn.net", 80
End SubPrivate Sub Winsock1_Close()
Debug.Print "closed" & vbCr & vbLf
End
End SubPrivate Sub Winsock1_Connect()
Debug.Print "connected" & vbCr & vbLf
Winsock1.Close
End Sub
就这样的代码, 启动后, 我单击Command1, 连接上了 www.csdn.net 然后我关闭窗体, 整个 vb6 IDE 就 DOWN 了怎么回事? 谁碰到过?
解决方案 »
- VB中如何重写关闭菜单事件
- 怎么使用VB6编写http方式的下载软件,要断点续传的
- vb数据库开发,使用DAO连接,怎么使用SQL语句啊?
- 如何在程序运行中改变TREEVIEW的宽度?
- 如何制作WORD模板并在VB中实现调用的过程?
- 写一个类似ComboBox控件遇到问题,请大家帮忙!
- 如何控制ComboBox控件在运行时只能选择而不能输入文本(在设计阶段是既可以选择又可以输入文本)?
- 如何取得某个目录底下所有文件大小总和?
- 请问ado如何用事务编程
- 只有顶尖的select 高手才能回答的问题。
- 在哪里可以找到EVB?在线等待。。
- 难道SQL Server2000与ACCESS的SQL语法会相差这么大!!!!请看!!!!!
到 form_unload () 写上 Winsock1.Close
----------------------------------------------------------------也不行啊. 我苦也~~~~~~~不会是 winsock 控件的 BUG 吧? 还是我要重装 VB, 甚至重装 system?我要昏了~~