VB开发的组件应怎样才能在VC下调用

本人想在VB开发的组件在VC下调用，写了一个简单的函数：  
   
   
  Public   Function   MinValue(ByVal   i   As   Integer,   ByVal   j   As   Integer)  
          If   i   >   j   Then  
                  MinValue   =   j  
          Else  
                  MinValue   =   i  
          End   If  
  End   Function  
   
   
  在VC下调用的方法：  
   
  //   TODO:   Add   your   control   notification   handler   code   here  
  int   fMin;  
  HINSTANCE   hIn;  
   
   
  typedef   int(FunName)(int,int);   FunName   *pMin=0;  
   
   
  VERIFY(hIn=::LoadLibrary("pCDll.dll"));  
   
   
  VERIFY(pMin=(FunName*)::GetProcAddress(hIn,   "MinValue"));  
   
   
  int   f1=7,   f2=21;  
  fMin=(*pMin)(f1,f2);  
   
   
  CString   str;  
  str.Format("The   mini   of   %f   and   %f   is   %f",   f1,f2,fMin);  
  MessageBox(str);  
   
   
  FreeLibrary(hIn);  
   
   
  结果报错，谁能在VB下写一个DLL组件的例子给我，谢谢！  
  问题点数：20、回复次数：1Top

1 楼liuxiaoyi666（MSMVP 小猪妹荣誉马甲之八卦兔子）回复于 2005-06-01 21:45:08 得分 20

http://www.microsoft.com/china/msdn/Archives/techvoice/10.asp  
   
  调用智能接口Top

相关问题

• 组件
• 下调
• vc
• hin
• fmin
• funname
• minvalue
• pmin
• vc下调
• str

• 帖主：CarryLi
• liuxiaoyi666

• Visual C++类图书
• Visual C++类源码下载