- ubuntu12.04环境下使用kvm ioctl接口实现最简单的虚拟机
- Ubuntu 通过无线网络安装Ubuntu Server启动系统后连接无线网络的方法
- 在Ubuntu上搭建网桥的方法
- ubuntu 虚拟机上网方式及相关配置详解
CFSDN坚持开源创造价值,我们致力于搭建一个资源共享平台,让每一个IT人在这里找到属于你的精彩世界.
这篇CFSDN的博客文章VB6中的LSet语句和RSet语句详解由作者收集整理,如果你对这篇文章有兴趣,记得点赞哟.
VB6中有几种长得很像的语句:Let、Set、LSet、RSet.
Let用于一般变量的赋值:
。
大部分情况下我们都省略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多出一个功能,先不看这个,先看相同的部分,两者分别用来在一字符串变量中将一字符串往左对齐(右对齐)。什么意思呢?其实光看文档我也没不懂,实际测试一下好了:
。
输出(注意空格):
。
http://www.zzvips.com 。
。
http://www.zzvips.com 。
的确是左对齐的右对齐,而且还多此一举的把我们的星号*替换成了空格,这有什么用呢?以我看来,似乎也许大概真的没什么用,不知道设计者是怎么想的.
。
不过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类型的变量,很好很强大。看一下生成的汇编代码:
。
。
调用的是MSVBVM60.DLL中的__vbaCopyBytes,第一个参数是需要复制的字节,第二个参数是目标地址,第三个参数是源地址,与C标准库中的memcpy函数类似,只不过参数的顺序不一样,其内部实现无非就是汇编中的串传送指令:
。
。
需要注意的是文档中警告我们:
。
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语句.
最后此篇关于VB6中的LSet语句和RSet语句详解的文章就讲到这里了,如果你想了解更多关于VB6中的LSet语句和RSet语句详解的内容请搜索CFSDN的文章或继续浏览相关文章,希望大家以后支持我的博客! 。
创建一个“海盗对话”,可以选择左手或右手。我希望它对“左”和“右”的不同拼写做出积极的回答(正如您将在代码中看到的那样),但是,当我为所有非“右”或“左”的输入添加最终的“else”代码时,它给了我一
With 语句 对一个对象执行一系列的语句。 With object statements End With 参数 object 必需的部分
While...Wend 语句 当指定的条件为 True 时,执行一系列的语句。 While condition  ; Version [stat
所以我正在处理的代码有一个小问题。 while True: r = input("Line: ") n = r.split() if r == " ":
我有一个对象数组: var contacts = [ { "firstName": "Akira", "lastName": "Laine", "number"
int main() { int f=fun(); ... } int fun() { return 1; return 2; } 在上面的程序中,当从main函数中调用一个
我的项目中有很多 if 语句、嵌套 if 语句和 if-else 语句,我正在考虑将它们更改为 switch 语句。其中一些将具有嵌套的 switch 语句。我知道就编译而言,switch 语句通常更
Rem 语句 包含程序中的解释性注释。 Rem comment 或 ' comment comment 参数是需要包含的注释文本。在 Rem 关键字和 comment 之间应有一个空格。
ReDim 语句 在过程级中声明动态数组变量并分配或重新分配存储空间。 ReDim [Preserve] varname(subscripts) [, varname(subscripts)]
Randomize 语句 初始化随机数生成器。 Randomize [number] number 参数可以是任何有效的数值表达式。 说明 Randomize 使用 number 参数初始
Public 语句 定义公有变量并分配存储空间。在 Class 块中定义私有变量。 Public varname[([subscripts])][, varname[([subscripts])
Sub 语句 声明 Sub 过程的名称、参数以及构成其主体的代码。 [Public [Default]| Private] Sub name [( arglist )]
Set 语句 将对象引用赋给一个variable或property,或者将对象引用与事件关联。 Set objectvar = {objectexpression | New classname
我有这个代码块,有时第一个 if 语句先运行,有时第二个 if 语句先运行。我不确定为什么会这样,因为我认为 javascript 是同步的。 for (let i = 0; i < dataObje
这是一个 javascript 代码,我想把它写成这样:如果此人回答是,则回复“那很酷”,如果此人回答否,则回复“我会让你开心”,如果此人回答的问题包含"is"或“否”,请说“仅键入”是或否,没有任何
这是我的任务,我尝试仅使用简短的 if 语句来完成此任务,我得到的唯一错误是使用“(0.5<=ratio<2 )”,除此之外,构造正确吗? Scanner scn = new Scanner(
有没有办法在 select 语句中使用 if 语句? 我不能在这个中使用 Case 语句。实际上我正在使用 iReport 并且我有一个参数。我想要做的是,如果用户没有输入某个参数,它将选择所有实例。
这个问题在这里已经有了答案: 关闭 11 年前。 Possible Duplicate: If vs. Switch Speed 我将以 C++ 为例,但我要问的问题不是针对特定语言的。我的意思是一
Property Set 语句 在 Class 块中,声明名称、参数和代码,这些构成了将引用设置到对象的 Property 过程的主体。 [Public | Private] Pro
Property Let 语句 在 Class 块中,声明名称、参数和代码等,它们构成了赋值(设置)的 Property 过程的主体。 [Public | Private] Prop
我是一名优秀的程序员,十分优秀!