Question

VB编程出现getprivateprofilestring返回值为1

VB编程中调用getprivateprofilestring函数代码如下：
Dim a As Variant
Dim buf As String * 16
a = GetPrivateProfileString("info", "ndate", "0", buf, 16, ".\info.ini")

工程所在目录下的info.ini文件里面有如下的值：
[info]
ndate =2011年03月05日 '（注意此前有空格！）

程序运行后返回的buff值为“2011年03月05日 ”，但是返回的a值却是1！而且拿buff与“2011年03月05日 ”比较，结果也是不相等，请问是怎么回事呢？
Text1.Text = buf
a = MsgBox(CStr(buf = Text1.Text))
结果弹出的信息栏上说False!

谁能告诉我buf真正的值应该是什么？

如果再定义一个buf2 as string * 16，并令：
a = GetPrivateProfileString("info", "ndate", "0", buf2, 16, ".\info.ini")
a = GetPrivateProfileString("info", "ndate", "0", buf, 16, ".\info.ini")
结果是buf不等于buf2

Answer 1

转换函数进行操作，比如，在将integer型的参数保存时可以对该参数进行CStr()一下，在将读出的数值型参数赋予控件属性时，可以对该参数CInt()或CLng()一下。

这样问题就解决了。