active控件和dbgrid控件放在同一form上如何编写的控件能够读取dbgrid的数据.txt

来自「以电子书的形式收集了VB一些常见问题解决方法,可以很方便的查找自己需要解决的问题」· 文本 代码 · 共 16 行

在 控 件 中 添 加 对 DBGrid的 引 用 ， 添 加 一 个 只 写 属 性 : 
    dim withevents m_dbgrid as dbgrid 
    public property set FriendDBGrid (pDBGrid as dbgrid) 
     set m_dbgrid=pdbgrid 
    end property 
    在 运 行 时 ,设 置 该 属 性 : 
    private form_load() 
    set me.usrecontrol1.frienddbgrid=me.dbgrid1 
    ... 
    end sub 
    在 控 件 的 Terminate事 件 中 ,set m_dbgrid=nothing 
    在 控 件 需 要 引 用 dbgrid的 地 方 ,需 要 判 断 : 
    if not (m_dbgrid is nothing) then 
     .... 
    end if 
<END>