VB6中的LSet語句和RSet語句詳解。本站提示廣大學習愛好者：（VB6中的LSet語句和RSet語句詳解）文章只能為提供參考，不一定能成為您想要的結果。以下是VB6中的LSet語句和RSet語句詳解正文
VB6中有幾種長得很像的語句：Let、Set、LSet、RSet。
Let用於普通變量的賦值：
[Let] varname = expression
大局部狀況下我們都省略Let，直接用等號賦值，致使於不少人基本不知道Let的存在。
Set用於對象的賦值，將變量指向對象並添加對象的援用計數，也有不少人不知道援用計數為何物。
那麼LSet是干什麼用的呢？咋一看仿佛是Let和Set的結合體，其實不然。LSet中的L是Left的縮寫，與之對應的是RLet。你問我怎樣知道L是Left的縮寫？文檔下面寫的呗：
LSet Statement
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.
LSet比RSet多出一個功用，先不看這個，先看相反的局部，兩者辨別用來在一字符串變量中將一字符串往左對齊（右對齊）。什麼意思呢？其實光看文檔我也沒不懂，實踐測試一下好了：
Sub Main()
Dim url As String
Dim s As String
Let url = "http://www.jb51.net"
s = String$(20, "*")
LSet s = url
Debug.Print s
RSet s = url
Debug.Print s
End Sub
輸入（留意空格）：
http://www.jb51.net
http://www.jb51.net
確實是左對齊的右對齊，而且還多此一舉的把我們的星號*交換成了空格，這有什麼用呢？以我看來，似乎也許大約真的沒什麼用，不知道設計者是怎樣想的。
不過LSet的另一個功用卻是很弱小的，可以將一用戶定義類型變量復制到另一用戶自定義類型變量。這又是什麼意思？
還是舉個例子來闡明，IP地址知道吧？我這裡ping百度前往的IP是61.135.169.125，這種格式的IP地址只是用來給人類看的，IP在計算機外部其實是用32位整數來表示。如何用VB將xxx.xxx.xxx.xxx格式的IP地址轉成32位整數方式？一番Google之後，可以寫出相似於這樣的代碼：
Sub Main()
Debug.Print IPToLong("61.135.169.125")
End Sub
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 myBytes
B1 As Byte
B2 As Byte
B3 As Byte
B4 As Byte
End Type
Private Type myLong
Val As Long
End Type
'By Demon
'http://jb51.net
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類型的變量，很好很弱小。看一下生成的匯編代碼：
00401A0E lea eax, dword ptr [ebp-0x20] ; 變量b的地址
00401A11 push eax
00401A12 lea eax, dword ptr [ebp-0x14] ; 變量l的地址
00401A15 push eax
00401A16 push 0x4
00401A18 call __vbaCopyBytes ; jmp to MSVBVM60.__vbaCopyBytes
調用的是MSVBVM60.DLL中的__vbaCopyBytes，第一個參數是需求復制的字節，第二個參數是目的地址，第三個參數是源地址，與C規范庫中的memcpy函數相似，只不過參數的順序不一樣，其外部完成無非就是匯編中的串傳送指令：
72A1A0F3 > mov ecx, dword ptr [esp+0x4]
72A1A0F7 push esi
72A1A0F8 mov esi, dword ptr [esp+0x10]
72A1A0FC push edi
72A1A0FD mov edi, dword ptr [esp+0x10]
72A1A101 mov eax, ecx
72A1A103 mov edx, edi
72A1A105 shr ecx, 0x2
72A1A108 rep movs dword ptr es:[edi], dword ptr [esi]
72A1A10A mov ecx, eax
72A1A10C mov eax, edx
72A1A10E and ecx, 0x3
72A1A111 rep movs byte ptr es:[edi], byte ptr [esi]
72A1A113 pop edi
72A1A114 pop esi
72A1A115 retn 0xC
需求留意的是文檔中正告我們：
Warning Using LSet to copy a variable of one user-defined type into a variable of a different user-defined type is not recommended. Copying data of one data type into space reserved for a different data type can cause unpredictable results.
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語句。
