VB6中的LSet语句和RSet语句详解

 更新时间:2014年07月29日 11:13:57   投稿:junjie  
这篇文章主要介绍了VB6中的LSet语句和RSet语句详解,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 = "https://www.jb51.net"
    s = String$(20, "*")
   
    LSet s = url
    Debug.Print s
   
    RSet s = url
    Debug.Print s
End Sub

输出(注意空格):

复制代码 代码如下:

https://www.jb51.net    

     https://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语句。

相关文章

  • VB实现鼠标绘图实例代码

    VB实现鼠标绘图实例代码

    这篇文章主要介绍了VB实现鼠标绘图实例代码,很实用的一个功能,需要的朋友可以参考下
    2014-07-07
  • 浅谈如何使用vb.net从数据库中提取数据

    浅谈如何使用vb.net从数据库中提取数据

    这篇文章主要介绍了浅谈如何使用vb.net从数据库中提取数据,使用VB提取数据,是先查找,做成数组,再显示到数据里,如果感兴趣可以了解一下
    2020-07-07
  • 关于MSCOMM控件的一些说明

    关于MSCOMM控件的一些说明

    关于MSCOMM控件的一些说明...
    2007-03-03
  • VB获取文件大小的方法

    VB获取文件大小的方法

    这篇文章主要介绍了VB获取文件大小的方法,可实现准确获取文件大小的功能,需要的朋友可以参考下
    2015-06-06
  • VB编程基础课教程

    VB编程基础课教程

    VB编程基础课教程...
    2007-03-03
  • VBA数组用法案例详解

    VBA数组用法案例详解

    这篇文章主要介绍了VBA数组用法案例详解,本篇文章通过简要的案例,讲解了该项技术的了解与使用,以下就是详细内容,需要的朋友可以参考下
    2021-08-08
  • VB6.0 支持鼠标滚轮教程

    VB6.0 支持鼠标滚轮教程

    众所周知,VB6.0一个十分蛋疼的问题就是不支持鼠标滚轮,要自己一点点地拖动。微软怎么会这么傻逼呢,so,微软用VB6.0开发了一个让它支持鼠标滚轮的插件。
    2014-10-10
  • VB十七种可用一行代码完成判断的技巧代码

    VB十七种可用一行代码完成判断的技巧代码

    这篇文章主要介绍了VB十七种可用一行代码完成判断的技巧代码,需要的朋友可以参考下
    2022-12-12
  • VB关机恶搞小程序

    VB关机恶搞小程序

    本文给大家汇总了一些使用VB实现的关机恶搞小程序,大家娱乐一下就行了,千万别做坏事哦
    2015-09-09
  • 使用WMI得到计算机的信息

    使用WMI得到计算机的信息

    WMI是一项行业推荐规范,旨在为访问企业环境中的管理信息而开发一种标准化技术。该信息包括系统内存的状态、当前安装的客户应用程序清单,以及有关客户端状态的其他数据
    2019-04-04

最新评论