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偶学得不错，现在大一，高三的时候就学VB了，现在学校里都是学C#和VB.NET的兄弟多。。。
偶要转行VB.NET了~当年学VB学了2年，对VB里面的常用函数都十分了解。
Select、If结构、For Next循环、等都了解。。。 ......
"insert into user1(name,age) values('" & Text1.Text & "','" & Text2.Text & "' )"
问题：对sql语句中单、双引号模糊。既然 Text1.Text就表示 ......
题目描述应该不是很准确。
现状是：假如一个文本文件共100行，那么我循环次数最大就是100×100=10000下，花费时间非常多，请问有没有办法能够提高对文本文件的循环访问速度。非数据库技术。
你要循环做什么� ......
vb中怎么通过xml来解析数据库中的字段值。
没办法用XML解析数据库的字段值，除非数据库中保存的是XML格式的字符串文档。
XML用来展示层次的数据。
数据库一般是二维数据。
数据库中保存的是XML字符串格式� ......
