VB6中有幾種長得很像的語句：Let、Set、LSet、RSet。
Let用于一般變量的賦值：
大部分情況下我們都省略Let，直接用等號賦值，以致于不少人根本不知道Let的存在。
Set用于對象的賦值，將變量指向對象并增加對象的引用計數，也有不少人不知道引用計數為何物。
那么LSet是干什么用的呢？咋一看好像是Let和Set的結合體，其實不然。LSet中的L是Left的縮寫，與之對應的是RLet。你問我怎么知道L是Left的縮寫？文檔上面寫的唄：
Left aligns a string within a string variable, or copies a variable of one user-defined type to another variable of a different user-defined type.
RSet Statement
Right aligns a string within a string variable.
輸出（注意空格）：
//www.49028c.com
不過LSet的另一個功能卻是很強大的，可以將一用戶定義類型變量復制到另一用戶自定義類型變量。這又是什么意思？
還是舉個例子來說明，IP地址知道吧？我這里ping百度返回的IP是61.135.169.125，這種格式的IP地址只是用來給人類看的，IP在計算機內部其實是用32位整數來表示。如何用VB將xxx.xxx.xxx.xxx格式的IP地址轉成32位整數形式？一番Google之后，可以寫出類似于這樣的代碼：
Private Function IPToLong(IPStr As String) As Long
Dim Str() As String, HEXStr As String, TempStr As String
Dim x As Long
Str = Split(IPStr, ".")
HEXStr = ""
For x = 0 To UBound(Str)
TempStr = Hex(Str(x))
HEXStr = HEXStr & String(2 - Len(TempStr), "0") & TempStr
Next x
IPToLong = CLng("&H" & HEXStr)
End Function
代碼可以正常工作，這沒什么問題，不過我們可以用LSet語句寫出更“高級”的代碼：
Private Type myLong
Val As Long
End Type
'By Demon
'http://VeVB.COm
Public Function IP2Long(ip As String) As Long
Dim a() As String
Dim b As myBytes
Dim l As myLong
a = Split(ip, ".")
'注意Little-Endian
b.B1 = CByte(a(3))
b.B2 = CByte(a(2))
b.B3 = CByte(a(1))
b.B4 = CByte(a(0))
LSet l = b
IP2Long = l.Val
End Function
用LSet將myBytes類型的變量復制到myLong類型的變量，很好很強大?？匆幌律傻膮R編代碼：
調用的是MSVBVM60.DLL中的__vbaCopyBytes，第一個參數是需要復制的字節，第二個參數是目標地址，第三個參數是源地址，與C標準庫中的memcpy函數類似，只不過參數的順序不一樣，其內部實現無非就是匯編中的串傳送指令：
需要注意的是文檔中警告我們：
When you copy a variable from one user-defined type to another, the binary data from one variable is copied into the memory space of the other, without regard for the data types specified for the elements.
用LSet復制用戶定義類型變量是不提倡的，這可能導致預料之外的結果（例如結構沒有對齊），所以，除非你知道自己在做什么，否則不要使用LSet語句。
新聞熱點
疑難解答
圖片精選
