yy.dllVB中这样调用dim xx as object
set xx=createobject("yy.c1")
xx.myindex
set xx=nothing在WIN2000下OK,在WIN98下运行到“set xx=createobject("yy.c1")”出错:
出错提示:
运行时错误‘429’:
ActiveX部件不能创建对象。http://expert.csdn.net/Expert/topic/2538/2538558.xml?temp=.9808008
set xx=createobject("yy.c1")
xx.myindex
set xx=nothing在WIN2000下OK,在WIN98下运行到“set xx=createobject("yy.c1")”出错:
出错提示:
运行时错误‘429’:
ActiveX部件不能创建对象。http://expert.csdn.net/Expert/topic/2538/2538558.xml?temp=.9808008
Set comYourDll = frmParent.Controls.Add("YourDll.yy", "comjfcbb", frmParent.Pic)我一向这样用,2000,xp,98 都没有问题啊
你试试我的方法
Set comYourDll = frmParent.Controls.Add("YourDll.yy", "comjfcbb", frmParent.Pic)
With frmParent!comjfcbb
.Visible = True
End With
作用:对vfp表重新建立索引,供VB调用
下面是yy.dll的全部代码:
DEFINE CLASS c1 AS CUSTOM OLEPUBLIC
function myindex
use k:\Messhall\mhbtmone.dbf
reindex
use
endfunc
ENDDEFIN