求救:VB6.0中,添加动态控件Winsock(网络编程用的),无法添加???

发布网友 发布时间：2023-06-22 18:00

我来回答

共1个回答

热心网友 时间：2024-01-25 05:49

Dim WithEvents mycontrol As Winsock '声明控件变量
Private Sub Command1_Click()
Set mycontrol = Controls.Add("MSWinsock.Winsock", "mycontrol", Me)
'mycontrol.Left = 480 '距窗体左边的位置
mycontrol.Protocol = sckUDPProtocol 'UDP协议传输
End Sub
控件的名称不对，另外winsock因为不显示，left属性不能动态修改
如果你的工程里本来没有winsock控件，那么需要在工程->工程属性->生成->删除有关未使用的ActiveX控件信息，把勾去掉追问非常谢谢.
还请问下控件的名称(即截图中的ProID)是怎样查看或确定的呢?

追答在对象浏览器里可以看到其归属的类，如Winsock属于MSWinsockLib的成员
然后使用controls.add("MSWinsockLib.Winsock","mycontrol",Me)
它会报错，错误信息里有正确的ProgID

热心网友 时间：2024-01-25 05:50

Dim WithEvents mycontrol As Winsock '声明控件变量
Private Sub Command1_Click()
Set mycontrol = Controls.Add("MSWinsock.Winsock", "mycontrol", Me)
'mycontrol.Left = 480 '距窗体左边的位置
mycontrol.Protocol = sckUDPProtocol 'UDP协议传输
End Sub
控件的名称不对，另外winsock因为不显示，left属性不能动态修改
如果你的工程里本来没有winsock控件，那么需要在工程->工程属性->生成->删除有关未使用的ActiveX控件信息，把勾去掉追问非常谢谢.
还请问下控件的名称(即截图中的ProID)是怎样查看或确定的呢?

追答在对象浏览器里可以看到其归属的类，如Winsock属于MSWinsockLib的成员
然后使用controls.add("MSWinsockLib.Winsock","mycontrol",Me)
它会报错，错误信息里有正确的ProgID

热心网友 时间：2024-01-25 05:50

Dim WithEvents mycontrol As Winsock '声明控件变量
Private Sub Command1_Click()
Set mycontrol = Controls.Add("MSWinsock.Winsock", "mycontrol", Me)
'mycontrol.Left = 480 '距窗体左边的位置
mycontrol.Protocol = sckUDPProtocol 'UDP协议传输
End Sub
控件的名称不对，另外winsock因为不显示，left属性不能动态修改
如果你的工程里本来没有winsock控件，那么需要在工程->工程属性->生成->删除有关未使用的ActiveX控件信息，把勾去掉追问非常谢谢.
还请问下控件的名称(即截图中的ProID)是怎样查看或确定的呢?

追答在对象浏览器里可以看到其归属的类，如Winsock属于MSWinsockLib的成员
然后使用controls.add("MSWinsockLib.Winsock","mycontrol",Me)
它会报错，错误信息里有正确的ProgID