描述:
我为控件定义了一个方法
[id(1)] boolean ReadSpecFile(BSTR lpszPathName);
lpszPathName参数是用来传递文件路径的
///////////////////////////////////////////////////////////////
BOOL COpenGLTestCtrl::ReadSpecFile(BSTR lpszPathName)
{
// TODO: Add your dispatch handler code here
CStdioFile f1;
char* bufTemp=_com_util::ConvertBSTRToString(lpszPathName);
if( !f1.Open(bufTemp, CFile::modeRead | CFile::typeText ) )
{
#ifdef _DEBUG
afxDump << "Unable to open file" << "\n";
#endif
exit( 1 );
return FALSE;
}
f1.close();
return TRUE;
}
在VB里添加一个该控件 testOCX
Private Sub Command1_Click()
On Error GoTo Err
Dim strFile As String
strFile = "D:\27.DAT"
testOCX.ReadSpecFile strFile
Exit Sub
Err:
MsgBox Err.Description
End Sub
一直提示说
Wrong number of arguments or invalid property assignment
请大家帮我分析一下,问题出在什么地方,谢谢大家了,急
另外,好象在VC里写文件路径的时候,要写成 "D:\\20.DAT"
而VB里为“d:\20.dat”
请问在传递参数的时候,这个问题如何解决,谢谢大家
解决方案1:
fsaf