关于一个函数的参数的问题!(在线等待...)

[hahadi]

我想用函数:
Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" _
( _
ByVal lpApplicationName As String, _
ByVal lpKeyName As Any, _
ByVal lpDefault As String, _
ByVal lpReturnedString As String, _
ByVal nSize As Long, _
ByVal lpFileName As String _
) As Long
定义了一个变量:Dim StrPath As String
这么调用:
i = GetPrivateProfileString("OpenFilePath", "Path", "", StrPath, 1024, "KeyDataPro.ini")
Text1.Text = StrPath
出现错误!
我的意图很明显,获取特定文件特定字段的指,传递给SstrPath,在Text1中显示出来.
请问该怎样定义StrPath?

[leolan]

dim strPath as string
strPath = string(1024,chr$(0))

[hahadi]

懂的人帮个忙啊

[tztz520]

应该这样:


Private Sub Command1_Click()
Dim X As Long, StrPath As String * 128, i As Integer

X = GetPrivateProfileString("OpenFilePath", "Path", "", StrPath, 128, "f:\abc.ini")
i = InStr(StrPath, Chr(0))
MsgBox Trim(Left(StrPath, i - 1))
End Sub

[hahadi]

揭贴