vfp6中引用vb编写的activex控件，报告找不到.value属性.txt

VB技巧问答10000例 VB技巧问答10000例

从 你 上 面 的 叙 述 中 ， 我 没 有 发 现 你 添 加 Value属 性 的 步 骤 。 除 了 Height、 Width等 几 个 最 基 本 的 属 性 ， VB不 会 自 动 地 为 控 件 添 加 属 性 。 你 必 须 手 工 为 自 己 的 控 件 添 加 一 个 Value属 性 。 添 加 属 性 的 基 本 方 法 是 在 控 件 的 代 码 窗 口 选 择 菜 单 “ 工 具 |添 加 过 程 ” ， 在 对 话 框 中 的 “ 类 型 ” 选 择 “ 属 性 ” 单 选 框 ， 并 设 定 属 性 名 称 为 Value。 这 样 VB会 在 代 码 中 添 加 
    Public Property Get Value() As Variant 
     
    End Property 
     
    Public Property Let Value(ByVal vNewValue As Variant) 
     
    End Property 
    其 中 ， 你 应 该 在 两 个 过 程 中 添 加 代 码 ， Property Get是 当 程 序 访 问 控 件 的 Value属 性 发 生 ， 而 Property Let是 当 用 户 给 该 属 性 赋 值 发 生 。 
<END>