VB6中的LSet语句和RSet语句详解
<p>VB6中有几种长得很像的语句：Let、Set、LSet、RSet。</p><p>Let用于一般变量的赋值：<br />
<div class="codetitle"><span><U>复制代码</U></span> 代码如下:</div><div class="codebody" id="code46181"><br />
varname = expression</div></p>
<p>大部分情况下我们都省略Let，直接用等号赋值，以致于不少人根本不知道Let的存在。</p>
<p>Set用于对象的赋值，将变量指向对象并增加对象的引用计数，也有不少人不知道引用计数为何物。</p>
<p>那么LSet是干什么用的呢？咋一看好像是Let和Set的结合体，其实不然。LSet中的L是Left的缩写，与之对应的是RLet。你问我怎么知道L是Left的缩写？文档上面写的呗：<br />
<div class="codetitle"><span><U>复制代码</U></span> 代码如下:</div><div class="codebody" id="code37895"><br />
LSet Statement</p>
<p>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.</p>
<p>RSet Statement</p>
<p>Right aligns a string within a string variable.<br />
</div><br />
LSet比RSet多出一个功能，先不看这个，先看相同的部分，两者分别用来在一字符串变量中将一字符串往左对齐（右对齐）。什么意思呢？其实光看文档我也没不懂，实际测试一下好了：<br />
<div class="codetitle"><span><U>复制代码</U></span> 代码如下:</div><div class="codebody" id="code15869"><br />
Sub Main()<br />
Dim url As String<br />
Dim s As String<br />
<br />
Let url = "https://www.jb51.net"<br />
s = String$(20, "*")<br />
<br />
LSet s = url<br />
Debug.Print s<br />
<br />
RSet s = url<br />
Debug.Print s<br />
End Sub<br />
</div></p>
<p>输出（注意空格）：</p>
<p><div class="codetitle"><span><U>复制代码</U></span> 代码如下:</div><div class="codebody" id="code55390"><br />
https://www.jb51.net </p>
<p> https://www.jb51.net</div><br />
<br />
的确是左对齐的右对齐，而且还多此一举的把我们的星号*替换成了空格，这有什么用呢？以我看来，似乎也许大概真的没什么用，不知道设计者是怎么想的。</p>
<p>不过LSet的另一个功能却是很强大的，可以将一用户定义类型变量复制到另一用户自定义类型变量。这又是什么意思？</p>
<p>还是举个例子来说明，IP地址知道吧？我这里ping百度返回的IP是61.135.169.125，这种格式的IP地址只是用来给人类看的，IP在计算机内部其实是用32位整数来表示。如何用VB将xxx.xxx.xxx.xxx格式的IP地址转成32位整数形式？一番Google之后，可以写出类似于这样的代码：<br />
<div class="codetitle"><span><U>复制代码</U></span> 代码如下:</div><div class="codebody" id="code36827"><br />
Sub Main()<br />
Debug.Print IPToLong("61.135.169.125")<br />
End Sub</p>
<p>Private Function IPToLong(IPStr As String) As Long<br />
Dim Str() As String, HEXStr As String, TempStr As String<br />
Dim x As Long<br />
<br />
Str = Split(IPStr, ".")<br />
HEXStr = ""<br />
For x = 0 To UBound(Str)<br />
TempStr = Hex(Str(x))<br />
HEXStr = HEXStr & String(2 - Len(TempStr), "0") & TempStr<br />
Next x<br />
IPToLong = CLng("&H" & HEXStr)<br />
End Function<br />
</div></p>
<p>代码可以正常工作，这没什么问题，不过我们可以用LSet语句写出更“高级”的代码：</p>
<p><div class="codetitle"><span><U>复制代码</U></span> 代码如下:</div><div class="codebody" id="code19074"><br />
Private Type myBytes<br />
B1 As Byte<br />
B2 As Byte<br />
B3 As Byte<br />
B4 As Byte<br />
End Type</p>
<p>Private Type myLong<br />
Val As Long<br />
End Type</p>
<p>'By Demon<br />
'http://jb51.net</p>
<p>Public Function IP2Long(ip As String) As Long<br />
Dim a() As String<br />
Dim b As myBytes<br />
Dim l As myLong<br />
<br />
a = Split(ip, ".")<br />
'注意Little-Endian<br />
b.B1 = CByte(a(3))<br />
b.B2 = CByte(a(2))<br />
b.B3 = CByte(a(1))<br />
b.B4 = CByte(a(0))<br />
LSet l = b<br />
IP2Long = l.Val<br />
End Function<br />
</div></p>
<p>用LSet将myBytes类型的变量复制到myLong类型的变量，很好很强大。看一下生成的汇编代码：</p>
<p><div class="codetitle"><span><U>复制代码</U></span> 代码如下:</div><div class="codebody" id="code45777"><br />
00401A0E lea eax, dword ptr ; 变量b的地址<br />
00401A11 push eax<br />
00401A12 lea eax, dword ptr ; 变量l的地址<br />
00401A15 push eax<br />
00401A16 push 0x4<br />
00401A18 call __vbaCopyBytes ; jmp to MSVBVM60.__vbaCopyBytes<br />
</div></p>
<p>调用的是MSVBVM60.DLL中的__vbaCopyBytes，第一个参数是需要复制的字节，第二个参数是目标地址，第三个参数是源地址，与C标准库中的memcpy函数类似，只不过参数的顺序不一样，其内部实现无非就是汇编中的串传送指令：</p>
<p><div class="codetitle"><span><U>复制代码</U></span> 代码如下:</div><div class="codebody" id="code65667"><br />
72A1A0F3 > mov ecx, dword ptr <br />
72A1A0F7 push esi<br />
72A1A0F8 mov esi, dword ptr <br />
72A1A0FC push edi<br />
72A1A0FD mov edi, dword ptr <br />
72A1A101 mov eax, ecx<br />
72A1A103 mov edx, edi<br />
72A1A105 shr ecx, 0x2<br />
72A1A108 rep movs dword ptr es:, dword ptr <br />
72A1A10A mov ecx, eax<br />
72A1A10C mov eax, edx<br />
72A1A10E and ecx, 0x3<br />
72A1A111 rep movs byte ptr es:, byte ptr <br />
72A1A113 pop edi<br />
72A1A114 pop esi<br />
72A1A115 retn 0xC<br />
</div></p>
<p>需要注意的是文档中警告我们：</p>
<p><div class="codetitle"><span><U>复制代码</U></span> 代码如下:</div><div class="codebody" id="code32555"><br />
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.</p>
<p>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.<br />
</div></p>
<p>用LSet复制用户定义类型变量是不提倡的，这可能导致预料之外的结果（例如结构没有对齐），所以，除非你知道自己在做什么，否则不要使用LSet语句。</p>
<div class="art_xg">
<b>您可能感兴趣的文章:</b><ul><li>通过VB6将ASP编译封装成DLL组件最简教程 附全部工程源文件</li><li>VB6反编译软件VB RezQV2.4a 正式版注册码</li><li>读取Access数据库的vbscript代码打包下载</li><li>ACCESS的参数化查询,附VBSCRIPT(ASP)和C#(ASP.NET)函数</li><li>VB的TextBox文本框实现垂直居中显示的方法</li><li>VB实现屏蔽文本框右键菜单的复制、粘贴等功能的方法</li><li>VB读取线程、句柄及写入内存的API代码实例</li><li>VB实现的倒计时类代码详解</li><li>VB调用Word拼写检查功能实例</li><li>VB6实现连接Access数据库的ADODB代码实现方法</li></ul>
</div>
</div>
<!--endmain-->
頁:
[1]