Question

VB.NET中API函数问题

代码如下 Private Declare Function GetPrivateProfileString Lib "kernel32" _ Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, _ ByVal lpKeyName As Long, ByVal lpDefault As String, _ ByVal lpReturnedString As String, ByVal nSize As Long, _ ByVal lpFileName As String) As Long Private Declare Function WritePrivateProfileString Lib "kernel32" _ Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, _ ByVal lpKeyName As Any, ByVal lpString As Long, _ ByVal lpFileName As String) As Long'我先宣告这两个函数 到这里呼叫时 Private Sub But1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButQQ.Click Dim success As Long success = WritePrivateProfileStringA("path", "strQQPath", " C:\Program Files\Tencent\QQ\Bin\QQ.exe", "D:\程序精灵\path.ini") 为什么他说我WritePrivateProfileStringA

Answer 1

success = WritePrivateProfileStringA改成success = WritePrivateProfileString 另外vc6里的long在vc.net里要换成integer，你这样调用会出错的