vb能否把winsock控件封装到dll中
vb将winsock控件封装到dll问题 有什么好的思路？ 如果用Socket API呢？
例如，像下面这样封装Winsock控件，行的通？
创建ActiveX dll，添加窗体frmClient，加入WinSock控件wskClient。
类代码：
Option Explicit
Private objFrm As frmClient
Private WithEvents wskClient As Winsock
Private Sub Class_Initialize()
Set objFrm = New frmClient
Set wskClient = objFrm.wskClient
End Sub
Private Sub Class_Terminate()
Unload objFrm
'wskClient.Close
Set wskClient = Nothing
Set objFrm = Nothing
End Sub
Private Sub wskClient_Close()
On Error GoTo ErrDes
If wskClient.State Then
wskClient.Close
End If
Exit Sub
ErrDes:
MsgBox "关闭连接发生错误：" & Err.Description & "。", vbExclamation, gMsgTitle
End Sub
Private Sub wskClient_Connect()
End Sub
Private Sub wskClient_DataArrival(ByVal bytesTotal As Long)
On Error GoTo ErrDes
Dim strArrival As String
Dim strCommand As String
Dim g_strData As String
wskClient.GetData g_strData
Debug.Print g_strData
ErrDes:
MsgBox Err.Description, vbInformation, "错误提示"
End Sub
Public Function DataSend(
相关问答：
Printer.ScaleMode = 6
6表示毫米
Printer.PaperSize = vbPRPSA4
'初始坐标
x = 1
y = 4
'最大的线筐
Printer.DrawStyle = 0
Printer.Line (x, y)-(x + 132.5, y) ......
大家好，问个vb打印问题
printer.print "dsff"
.....
....
Printer.EndDoc
打印成功后我将执行
sqlstr = "update vc_yh set pr=' 已打印 ', ......
比如进程加载新的程序。
在其运行之前阻止。
然后允许后放行。
比如程序主文件路径是c:\test\test.exe，建立内容任意的文件c:\test\test.exe.manifest。
就是不知道程序文件路径。
设� ......
Option Explicit
Private Sub Command1_Click()
WebBrowser1.Navigate "http://mc.qeedoo.com/servers.php"
End Sub
Private Sub WebBrowser1_DocumentComplete(ByVal ......
在vb这编程里似乎有很多的东西是相联系的，为什么有些人对vb的编程摸不到头脑啊！并且有些事很容易的，但是却把它们的代码变成复杂，也去想一些不能实现的东西啊！
没分了，楼主多来点分！
来接点分
......
