回 帖 发 新 帖 刷新版面

主题:查找的借用

我用向导生成了一个新表单,有一个命令按钮组,其中有一个查找按钮,我看功能不错,想借用一下到我的其它表单,代码如下:LOCAL oSearchDlog
LOCAL lVisChange,lStateChange

IF EMPTY(ALIAS())
    RETURN
ENDIF

* Check if SDI Window
IF THISFORM.ShowWindow = 2 
    IF !_VFP.Visible
        _VFP.Visible = .T.
        lVisChange = .T.
    ENDIF
    IF _SCREEN.WindowState = 1
        _SCREEN.WindowState = 0
        lStateChange = .T.
    ENDIF
ENDIF

oSearchDlog = CREATE("searchform")
oSearchDlog.SHOW()

IF m.lVisChange
    _VFP.Visible = .F.
ENDIF
IF m.lStateChange 
    _SCREEN.WindowState = 1
ENDIF

IF THISFORM.ShowWindow = 2 
    Activate Window (THISFORM.Name)
ENDIF提不找不到searchform类,请问我可以借用吗?怎样处理

回复列表 (共5个回复)

沙发

添加 Wizbtns.vcx 到项目中

板凳

moz老师,按您楼上的方法在运行至oSearchDlog = CREATE("searchform")仍提示找不到searchform类,可能是路径问题吧
若我不建项目,仅在用一个表单中,怎样处理?

3 楼

如果我是你,我会从向导生成的表单中把那个<FIND>按钮剪切复制过来用.

4 楼

moz老师,因为父类,不能复制或剪切,我也处理了问题.

5 楼

坦白说,我不懂,
不过换成是我,我估计会自己另外写一个表单来用.

我来回复

您尚未登录,请登录后再回复。点此登录或注册