vb6.0程序移植到VB.NET后提示“未声明变量“Vaptr””

讲了一堆，看的头晕，勉强看懂了，能不能好好表达自己的问题啊。废话一堆，其实有个标题就好了。vb.net不再使用VarPtr来返回变量的地址了，其实是net不提倡使用指针和地址。

成都创新互联公司是一家专注于网站制作、成都网站建设与策划设计,爱辉网站建设哪家好?成都创新互联公司做网站,专注于网站建设10多年,网设计领域的专业建站公司;建站业务涵盖:爱辉等地区。爱辉做网站价格咨询:13518219792

net有了一个新的叫做托管的概念，建议了解一下，net里面的变量地址都是不确定的，生存周期也不确定，是由托管机制来管理内存，程序员不必再纠结于内存的管理而浪费精力。

解决方法：可以使用byref声明为整型变量直接将变量地址传过去就好，不用声明为什么指针的。

或者可以试试下面这个：

GCHandle 类的 AddressOfPinnedHandle 方法可以提供类似的功能.

pb里如何取双字节的字符的低位字节或ASCII码

VB真想不到之六：有用的技术和没用的指针

作者: AdamBear 来源:CSDN

关键字：VB、SafeArray、数值类型指针

难度：中级

参考文章：

1、2000年7月VBPJ Black Belt专栏文章《Modify a Varialbe's Pointer》

作者：Bill McCarthy

引言：

这真的是指针专题的最后一篇了（当然，以后肯定还会提到指针）。主要是来谈谈Bill McCarthy的文章《Modify a Varialbe's Pointer》的精华。关于这篇文章的东西，在我的《VB指针葵花宝典之SafeArray》里曾谈到过，但那篇文章实际上没有写出SafeArray的精华，用SafeArray最妙的地方在于可以将一个变量建在指定的内存处，就象上一篇文章给出的那个字串类一样。

正文：

Bill McCarthy在那篇《Modify a Varialbe's Pointer》里用SafeArray实现多进程的数组共享内存，他考虑了数组变量的类型，因此可以兼容大部分数值类型的数组，是一个非常不错的东西。我这里不讲它实现的具体方法，只是想和大家一起看看SafeArray还能做什么。

修改SafeArray结构的pvData指针却是一个非常有用的技术，通过修改pvData，就能够通过数组直接访问指定的内存。

和上一篇文章包装字串指针类一样，通过修改pvData，我们也可以包装一些普通数值类型变量的指针类。

我在指针的第一篇文章里说过，要想实现C语言里'*'这个取指针所指变量值功能，必须要用CopyMemory。实际上，我说错了，我们完全可以实现和C里一样的指针，如下：

//C语言

Long L;

Long* pL = L;

*pL = 12;

printf("L = %d *pL = %d", l, *pl);

'VB里

Dim pL As New pLong, L As Long

pL.Attach L

'也可以 pL.Ptr = VarPtr(L)

pL = 12

Debug.Print "L ="; L; " *pL ="; pL

结果都能够通过修改pL指针，达到修改变量L的目的。

上面VB代码里的pLong就是一个包装好的Long型变量的指针类，下面看看如何来实现它：

Option Explicit

'********************************************************

'pLong.cls

'包装一个Long型指针的类

'作者: 熊超 ID: AdamBear 2002年3月18日

'

' 你可以自由使用本类模块，不过请保留本声明

'********************************************************

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)

Private m_Arr(0) As Long

'缺省属性

Public Property Get Data() As Long

Data = m_Arr(0)

End Property

Public Property Let Data(ByVal Value As Long)

m_Arr(0) = Value

End Property

Public Sub Attach(Target As Long)

Ptr = VarPtr(Target)

End Sub

Public Property Let Ptr(ByVal Target As Long)

Dim pSA As Long

'得到SafeArray结构指针pSA

CopyMemory pSA, ByVal VarPtrArray(m_Arr), 4

'这个指针偏移12个字节后就是pvData指针

CopyMemory ByVal (pSA + 12), Target, 4

End Property

Public Property Get Ptr() As Long

Ptr = m_SA.pvData

End Property

Private Sub Class_Terminate()

CopyMemory ByVal VarPtrArray(m_Arr), 0, 4

End Sub

要将它改成Byte的指针类，只需要将上面的代码中m_Arr数组的类型，Data属性和Attach方法中的参数类型改为Byte型即可。

当我们这样做出pLong、pByte、pInteger后，我们就能够玩点和C里一样的花样了。

Sub Main()

Dim pB As New pByte, B As Byte

Dim pI As New pInteger, I As Integer

Dim pL As New pLong, L As Long

'用Attach方法将经过类型检查，直接用Ptr属性则可以绕过类型检查

pB.Attach B

pI.Attach I

pL.Attach L

'试试指针

B = 1

Debug.Print "B ="; B; " *pB ="; pB

pB = 1

Debug.Print "B ="; B; " *pB ="; pB

I = 1000

Debug.Print "I ="; I; " *pI ="; pI

pI = 2000

Debug.Print "I ="; I; " *pI ="; pI

L = 40000

Debug.Print "L ="; L; " *pL ="; pL

pL = 60000

Debug.Print "L ="; L; " *pL ="; pL

'试试C里的类型转换

'用Integer指针访问Long型变量

pI.Ptr = VarPtr(L)

Debug.Print "*pI ="; pI

End Sub

搞出这几种普通数值类型的指针类有什么用？基本上没有什么大用。不过是证明一种方法的可行性，和演示技术。这种技术还有什么用，需要的时候还会再谈。

后记：

本文的东西，可见CSDN共享软件上的《内存共享和指针》，

指针的专题就到这儿了，下一篇准备开始着手写VB和COM的一个系列文章，其间我准备翻译一下《VB Design Patterns》，这是一本不错的书。

9:43 添加评论 固定链接 引用通告 (0) 记录它 VisualBASIC

固定链接

添加评论VB真想不到系列五

VB真想不到之五：高效字串指针类

作者:AdamBear 来源:CSDN

关键字：VB、HCAK、字串指针、BSTR、效率、内存共享

难度：中级或高级

参考文章：

1、2000年7月VBPJ Black Belt专栏文章《Modify a Varialbe's Pointer》

作者：Bill McCarthy

2、1998年4月VBPJ Black Belt专栏文章《Play VB's Strings》

作者：Francesco Balena

引言：

本想以内存共享做为VB指针专题的最后一篇，写着写着发现字串的问题应该单独谈谈。在内存共享的问题上，我尤其关心的是字串的共享，因为在我一个多月前发布的源码里用的是《HardCore VB》里Bruce Mckinney提供的CShareStr类，它实现了字串的内存共享。但是Bruce也没有突破局限，对字串的处理依然是CopyMemory的乾坤大挪移，尤其是还要进行讨厌的ANSI/DBCS和Unicode的转换。我在readme里说过它效率极低，应该采用Variant或Byte数组来实现，才能避免转换。后来又想到可以用StrPtr来做，并在VC里用DLL共享节实现了可以不进行转换的字串内存共享。不过在VC里我仍然需要用SysAllocString来建立VB能使用的BSTR。这都不是我想要的，我想要的东西要象VC里的CString的一样，只要字串够大，对其赋值就不用重新分配内存，还要象VC里CComBSTR类一样可以Attach到一个特定BSTR。

知道该怎么做，是在看了VBPJ上Bill McCarthy和Francesco Balena的两篇文章之后。Bill用修改SafeArray描述结构实现了数组的内存共享，而Francesco则对字串指针进行深入的探讨。但是Bill和Francesco的东西都没有实现我想要的字串类。

方法知道了，实现并不难，所以我决定自己来包装一个这样的东西。

正文：

使用VB里的字串类型String有两大不足：第一、它的分配是由VB运行时控制，我们不能将其分配在指定内存处；第二，任何一次对字串的赋值操作都要进行内存重新分配。要实现高效、灵活的字串处理，我们必须克服这两大不足。

对于第一个问题，通过修改String变量里放着的BSTR描述符指针可以实现；对于第二个问题，可以用Mid语句（注意是语句而不是函数）来赋值。不详细讲了，直接看下面的这个类：

Option Explicit

'********************************************************

'clsBSTR.cls

'作者: 熊超 ID: AdamBear 2002年3月18日

'

' 你可以自由使用本类模块，不过请保留本声明

'********************************************************

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)

'不要直接对sString赋值(可以用MID语句)，将其设为公有仅为提高效率。

Public sString As String 'BSTR描述符指针

Private pStr As Long 'BSTR地址

Private nMaxLen As Long 'BSTR最大字节数

'让本字串指向特定地址

Public Sub Attach(Addr As Long, Optional nLen As Long)

pStr = Addr

'修改BSTR描述符指针，使其指向Addr

CopyMemory ByVal VarPtr(sString), Addr, 4

If IsMissing(nLen) Then Exit Sub

'设定最大字串字节数

nMaxLen = nLen

End Sub

'还原本字串原BSTR描述符

Public Sub Detach()

CopyMemory ByVal VarPtr(sString), 0, 4

End Sub

'让本字串指向源字串

Public Sub AttachStr(sStr As String)

Attach StrPtr(sStr), LenB(sStr)

End Sub

'data为缺省属性

Public Property Let data(sVal As String)

Dim c As Long

c = LenB(sVal)

'超过最大字串数，抛出错误。

If c nMaxLen Then Err.Raise vbObjectError + 3000, _

"CString::Let Data", "溢出"

'写字串长度

CopyMemory ByVal (pStr - 4), c, 4

'写字串

Mid(sString, 1) = sVal

End Property

'可以通过公有变量sString来读字串，效率更高

Public Property Get data() As String

data = sString

End Property

Private Sub Class_Terminate()

Call Detach

End Sub

用法如下，假设我们已通过VitualAlloc，HeapAlloc，MapViewOfFile这样的内存管理API得到了一个4k个字节的可读写的内存地址baseAddr：

Dim sShare As New clsBSTR

'留下前4个字节用于BSTR保存字串字节数

sShare.Attach(baseAddr+4, 4096-4)

'下面的字串"Test"会直接写到baseAddr+4字节处

sShare = "Test"

Dim y As String

'读字串时可以用sString属性或缺省属性

y = sShare.sString

'用AttachStr方法Attach到一个字串。

'必须要先Detach

sShare.Detach

sShare.AttachStr(y)

sShare = "Hahaha"

Debug.Print y

'一旦AttachStr到字串y后，对sShare的修改就相当于对y的修改。

'并且以后对y的修改也只能用Mid语句

Mid(y, 1) = "xxxxx"

'不能直接赋值，这样VB会将原来y所指（也是sShare所指）内存释放，

' 重新分配y。这样在访问sShare时会出错。

'y = "Test"

我也不在这里讲这个类的详细原理，可以参考我前面说的两篇文章。

使用这个类有几个需要注意的地方。

1、读字串时可以用sString属性来读，更快。

读sShare有两种方法，一种是用缺省属性Data来读，一种是直接用sString属性来读。用sString属性不重新分配内存，要快得多。

2、不要直接给sString赋值，应使用缺省的data属性来赋值。

之所以把sString属性暴露出来，是为了效率和方便。我们可以用Mid语句对其进行修改，但不要直接用"="来赋值。

3、注意Attach的第二个参数，表示字串的最大字节数，不要让它超过已经分配的内存。

4、用AttachStr将本字串对象Attach到某个字串（比如上面的y）上后，不能再对这个字串y重新赋值，也不能将其传递到会对其重新赋值的过程。

哇，这么多需要注意的问题，用起来岂不是更不方便。的确，用它的之前要考虑是不是必须的。因为建立这个类也一样有开销。所以还有一个需要注意的问题：

5、它主要的应用还是在于将字串安放在指定内存处。虽然它也可以让同一个进程内几个的字串达到共享的目的，但是如果只是两三个很小的字串这样时做反而慢了。

后计：

数组指针和字串指针我们已经谈过了，对于普通的数值类型变量的指针没有什么Hack的必要，但是它关系到一个有用的技术，下篇文章再谈。

本文和下篇文章的代码，以及用这个类来实现的共享内存的代码，我会发布到CSDN共享软件上，名字是《内存共享和指针》。

9:38 添加评论 固定链接 引用通告 (0) 记录它 VisualBASIC

固定链接

添加评论VB真想不到系列四

VB真是想不到系列之四：VB指针葵花宝典之SafeArray

作者:AdamBear 来源:CSDN

VB .NET如何在计算过程中加入进度条？

VB.Net中提供了ProgressBar控件，用于显示进度条

我建议你不要用进度条显示剩余时间而是显示执行进度

这样比较好控制

设置ProgressBar的Minimum和Maximum属性为循环的起始和终止数值

然后在代码的循环体中计算当前循环的进度，然后设置进度条的Value属性，

将进度显示在进度条上

比如,简单的例子:

Dim Progress As Integer

ProgressBar1.Minimum = Min

ProgressBar1.Maximum = Max

For i As Integer = Min To Max

'执行计算.......

Progress = i \ Max '计算进度

ProgressBar1.Value = Progress '显示进度

My.Application.DoEvents() '使用Doevents防止窗体假死使进度条看不到，但是会严重降低运行速度

Next

这里的优化技巧是，可以设置为每隔N次循环才更新进度条

If Not Progress Mod N Then ProgressBar1.Value = Progress

不然进度条的更新也许比计算的速度还要慢很多

vb.net 怎么调用cmd执行多行语句

shell "cmd /c dir c:\*.*",1

msgbox("执行完毕")

另外CMD窗口是无法隐藏执行的，当然，你可以换另外一个思路，就是启用一个新线程，然后将线程后台执行CMD语句，这样前台就看不到CMD窗口了

请参考下面的示例

shell "cmd /c dir",1'/c表示执行完即关闭窗口

shell "cmd /k dir",1'/k表示执行完停留

shell "cmd /c dir pause",1'多条语句可用连接

关于cmd的具体用法可以在命令提示符下敲入cmd/?看看

太多了，只列举一些典型的：

CMD [/A | /U] [/Q] [/D] [/E:ON | /E:OFF] [/F:ON | /F:OFF] [/V:ON | /V:OFF]

[[/S] [/C | /K] string]

/C 执行字符串指定的命令然后终断

/K 执行字符串指定的命令但保留

/S 在 /C 或 /K 后修改字符串处理(见下)

/Q 关闭回应

/D 从注册表中停用执行 AutoRun 命令(见下)

/A 使向内部管道或文件命令的输出成为 ANSI

/U 使向内部管道或文件命令的输出成为 Unicode

/T:fg 设置前景/背景颜色(详细信息，请见 COLOR /?)

/E:ON 启用命令扩展(见下)

/E:OFF 停用命令扩展(见下)

/F:ON 启用文件和目录名称完成字符 (见下)

/F:OFF 停用文件和目录名称完成字符(见下)

/V:ON 将 ! 作为定界符启动延缓环境变量扩展。如: /V:ON 会

允许 !var! 在执行时允许 !var! 扩展变量 var。var 语法

在输入时扩展变量，这与在一个 FOR 循环内不同。

/V:OFF 停用延缓的环境扩展。

VB.NET 正则表达式 日期

var reg = /(.{4}年.{2}月.{2}日|.{2}年.{2}月.{2}日|[^\-]{2}\-[^\-]{2}|[^\/]{2}\/[^\/]{2}|[^\\]{2}\\[^\\]{2})/g;

var str = "sdfasf****年**月**日，**年**月**日，**-**，**/**，**\**asdfadf";

str.match(reg);

分享名称：varvb.net的简单介绍
标题链接：http://scyanting.com/article/hpgsjh.html