VB 字节数组和字符串的转换问题 (StringByte)
VB 字节数组和字符串的转换问题 (String<>Byte)
Posted by JiaJia 16 March,2009 (2)Comment
一、 前言
数据类型转换在编程中经常用到，VB6提供了一整套类型转换的函数。但是，在进行类型转换时，有时候仅仅依靠VB提供的函数是不能达到自己的目的的。因此，需要考虑用其他的方法来完成数据类型转换。本文仅谈VB6中字节数组和字符串的相互转换过程中应注意的问题及其解决办法。
在Visual Basic中使用Byte数组主要是为了32位API函数的参数传递和函数的返回。在32位的Visual Basic版本中，字符串被假定为Unicode字符，其中每个字符占用两个字节。系统自动地将Unicode的两个连续字节转换成1个字节的ANSI字符。但是，如果该字符串包含二进制数据，其内容将变得很难理解。例如，一个汉字是两个字节，在Visual Basic 6.0中的长度就只是1，这将给我们计算单个汉字的国标码带来一些麻烦。有了Byte数组，这些问题就将迎刃而解。
另外，Visual Basic中的字符串和C语言中的字符串有一些不同，本文将给出一个函数，把C字符串转换成Visual Basic字符串。
二、 用Byte数组代替字符串
Byte数组包含的是0－255之间的ASCII码字符，它不会象字符串那样被系统作预处理。你可以在很多API函数中用来Byte数组代替字符串。
例如，下面的代码中用GetSystemDirectory这个Windows API函数来取得Windows的系统路径。一共有两段代码，一段代码是传递一个字符串来存储函数返回的系统路径，另一段代码是传递一个Byte数组来代替字符串。
为了更好地比较，两段代码的不同部分都用黑体标出。读者可以仔细比较这两段代码的差异，这样您会更深入地理解Byte数组和字符串的差别。
把这两段代码的任何一段放入一个窗体中运行，但击窗体的空白区域，你将会在窗体中看到Windows的系统路径。
下面是使用字符串的代码：
Private Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Private Sub Form_Click()
Dim n As Integer
Dim str As String
str = Space$(256)
n = GetSystemDirectory(str, 256)
str = Left$(str, n)
Print str
End Sub
在上面这段代码中，字符串参数lpBuffer返回Windows的系统路径。在函数调用之前，将变量预定义成256个字符，并在函数返回时清除多余的字符。
注�
相关文档：
VB软件工程师：
职位描述：
1、进行编码、测试；
2、在规定时间内提交源代码。
岗位要求：
1、熟悉MS SQL数据库；
2、熟悉VB 6.0；
3、有业务系统开发经验；
4、具备良好的团队合作精神，勤奋、上进；
5、大专或者以上学历；
6、具有1年或者以上相关工作经验 ；
7、熟悉C#优先。
VB新手、初级程序员公司提供专� ......
'大小写字母转换器vb
'界面包括 command、command1、command2、command3 和一个 text 文本框
'command 为“互转”按钮，command1 为“转大”按钮，command2 为“转小”按钮，command3 为“清除”按钮
Private Sub Command_Click()
Dim i As Integer, n As Integer
Dim x As S ......
我用VB执行DOS命令，生成文本文件随即打开
但是由于文本文件生成需要一段时间，
还未等文件生成完毕VB就打开了这个文件
请问如何让程序等待DOS命令执行完毕再打开这个文本文件啊
最好还能加上一个等待的进度条显示文本文件的生成过程
代码如下：
Shell "cmd /c dir /s /b e:\ dir.txt"
Open "dir.txt" ......
SQLDMO（SQL Distributed Management Objects，SQL分布式管理对象）封装 Microsoft SQL Server 2000 数据库中的对象。SQL-DMO 允许用支持自动化或 COM 的语言编写应用程序，以管理 SQL Server 安装的所有部分。 SQL-DMO 是 SQL Server 2000 中的 SQL Server 企业管理器所使用的应用程序接口 (API);因此使用 SQL-DMO 的� ......
Option Explicit
Private Type BROWSEINFO
hOwner As Long
pidlRoot As Long
pDisplayName As String
lpTitle As String
ulFlags As Long
lpfn As Long
lParam As Long
iImage As Long
End Type
Private Declare Function SHGetPathfromIDList Lib "shell32.dll" Alias _
"SHGetPa ......
