index1.txt

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

    Private Sub UserControl_WriteProperties(PropBag As PropertyBag) 
     Call PropBag.WriteProperty("Picture", Picture, Nothing) 
    End Sub 
    编 译 后 发 现 ， 在 控 件 属 性 窗 口 Picture属 性 中 可 设 定 各 种 图 片 ， 但 在 代 码 窗 口 中 却 不 能 使 用 UserControl.Picture=LoadPicture([stringexpression]) 
    语 句 ， 也 不 能 使 用 UserControl.Picture=object.Picture语 句 。 请 问 是 原 因 ， 如 何 解 决 。 谢 谢 ！ 
<END>    
28,VFP6中引用VB编写的ActiveX控件，报告找不到.value属性 
问 题 : 您 好 ， 我 用 vb6建 立 了 一 个 TextBox ActiveX控 件 和 一 个 ComboBox ActiveX控 件 ， 但 在 VFP6中 引 用 此 ActiveX控 件 时 ， 无 法 用 .value属 性 去 捕 获 这 些 ActiveX控 件 的 值 ， 请 问 我 该 如 何 解 决 ？ 
    我 建 立 这 个 控 件 的 方 法 是 ： 
    打 开 vb6， 在 “ 新 建 工 程 ” 窗 口 中 选 择 “ ActiveX控 件 ” ,然 后 进 入 到 vb6设 计 界 面 ， 我 是 直 接 在 工 具 栏 上 拖 了 一 个 TEXTBOX到 表 单 上 ， 调 整 好 大 小 和 填 写 了 相 应 过 程 代 码 ， 我 所 填 写 的 代 码 如 下 ： 
    Private Sub Text1_GotFocus() 
     Text1.SelStart=0 
     Text1.SelLength=Len(Trim(Text1.Text)) 
    End Sub 
     
    Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) 
     If KeyCode = 13 Then 
     SendKeys "{Tab}" 
     End If 
    End Sub 
    然 后 在 文 件 菜 单 中 选 择 “ 生 成 工 程 1.ocx” 选 项 来 把 此 工 程 连 编 成 .ocx文 件 。 然 后 在 VFP6的 调 用 方 法 是 ： “ 工 具 ->选 项 ->控 件 ->ActiveX控 件 ->添 加 ” 的 顺 序 来 把 此 .ocx文 件 引 用 ， 然 后 再 把 此 .ocx的 控 件 添 加 到 VFP6的 表 单 上 ， 但 就 是 找 不 到 .value属 性 ！ ！ ！ 请 问 我 能 用 什 么 方 法 在 VFP6中 去 捕 获 这 些 自 定 义 控 件 的 值 ？ 谢 谢 ！ 
    然 后 ， 我 打 算 如 果 这 个 控 件 使 用 成 功 的 话 ， 我 会 用 ComBox做 一 个 ActiveX控 件 ， 实 现 输 入 时 的 增 量 查 询 功 能 ， 以 用 在 VFP6上 ， 用 来 弥 补 VFP6中 的 ComBox控 件 的 不 足 ！ 因 为 我 觉 得 Text和 ComBox的 捕 获 值 的 方 法 都 应 该 是 一 样 的 。 
<END>    
29,能否为自定义的类定义事件 
问 题 ： 能 否 为 自 定 义 的 类 定 义 事 件 ？ 我 在 activex dll中 建 立 一 个 新 的 类 ,该 类 有 一 个 Excel.Range类 型 的 属 性 ， 我 想 为 这 个 类 定 义 一 个 事 件 ， 当 光 标 离 开 这 个 类 的 对 象 的 Range时 触 发 该 事 件 ， 但 我 不 想 在 worksheet的 selectionchange事 件 中 处 理 ， 因 为 这 样 的 话 对 每 一 个 单 元 都 会 触 发 该 事 件 。 如 何 做 到 ? 
<END>
30,如何在主模块和ActiveX DLL中传递文件句柄 
问 题 : 本 人 向 生 成 一 个 类 协 同 操 作 一 个 文 件 由 于 某 些 特 殊 的 原 因 必 须 要 将 其 编 写 成 ActiveX Dll， 但 是 本 人 将 在 主 文 件 中 生 成 的 文 件 编 号 传 递 到 ActiveX DLL中 却 产 生 了 却 不 能 被 识 别 。 其 原 因 似 乎 是 每 个 模 块 单 独 维 护 一 个 文 件 号 序 列 。 
    请 问 如 何 在 其 之 间 同 时 对 一 个 文 件 操 作 ， 即 如 何 把 在 exe中 打 开 的 文 件 句 柄 传 递 到 ActiveX DLL中 。 
<END>    
31,已注册的共享控件安装到client 时是否也要注册 
问 题 : 我 想 请 教 一 般 网 上 都 可 找 到 一 些 共 享 的 activex 控 件 ,很 多 都 要 注 册 才 能 正 常 运 作 ,如 果 我 真 的 注 册 了 ,是 否 代 表 当 我 把 程 式 安 装 到 client 时 ,是 否 也 要 再 注 册 一 次 ? 如 果 不 需 要 的 话 , 是 否 代 表 在 client 端 的 ocx 是 巳 注 册 的 版 本 , 那 么 这 台 机 器 上 的 ocx 就 可 以 任 由 其 它 人 去 用 了 吗 ?? 
<END>
32,能否使ActiveX DLL库在引用后直接以“函数名”的方式使用 
我 在 vb6的 菜 单 “ 工 程 ” -->“ 引 用 ” 和 “ 对 象 浏 览 器 ” 中 发 现 原 来 VB的 内 部 函 数 都 是 从 动 态 库 Ｖ Ｂ Ａ ５ 。 Ｄ Ｌ Ｌ 中 引 用 而 来 ， 所 以 对 于 VB的 内 部 函 数 都 可 以 通 过 “ 函 数 名 ” 或 “ Ｖ Ｂ Ａ 。 函 数 名 ” 来 使 用 ， 如 Ｖ Ａ Ｌ （ ） ＝ ＝ Ｖ Ｂ Ａ 。 Ｖ Ａ Ｌ （ ） 。 但 是 我 自 己 做 的 ActiveX DLL 库 只 能 先 Ｄ Ｉ Ｍ Ｘ Ｘ Ａ Ｓ Ｎ Ｅ Ｗ Ｃ Ｌ Ａ Ｓ Ｓ １ ， 再 用 “ Ｘ Ｘ 。 函 数 名 ” 的 方 式 来 引 用 ， 在 “ 对 象 浏 览 器 ” 中 进 一 步 发 现 ， Ｖ Ｂ Ａ 库 中 的 所 有 函 数 等 既 都 可 在 “ <全 局 >” 中 看 到 ， 又 可 在 相 应 的 类 及 模 块 中 看 到 ， 而 我 做 的 Ｄ Ｌ Ｌ 中 的 函 数 只 能 在 相 应 的 类 及 模 块 中 看 到 ， “ <全 局 >” 中 什 么 也 没 有 ， 我 想 ， 这 大 概 就 是 为 什 么 我 做 的 ActiveX DLL 库 只 能 用 “ 库 名 。 函 数 名 ” 的 方 式 来 引 用 的 原 因 吧 ！ 
    问 题 ： 我 该 怎 么 做 才 能 使 我 做 的 ActiveX DLL 库 在 引 用 后 像 Ｖ Ｂ Ａ 的 函 数 一 样 能 无 须 事 先 定 义 个 变 量 ， 而 直 接 能 以 “ 函 数 名 ” 的 方 式 来 使 用 。 
<END>
33,怎么在自制的（简单）控件上加方法和事件 
问 题 : 怎 么 在 自 制 的 （ 简 单 ） 控 件 上 加 方 法 和 事 件 ？ 如 方 便 请 举 例 解 答 。 多 谢 。 
<END>
34,如何制作可以弹出的控件 
问 题 ： 请 教 一 个 问 题 ： 我 在 做 一 个 控 件 --向 Combo一 样 ， 按 下 按 钮 可 以 弹 出 一 个 东 西 --比 如 Grid， 但 Combo的 下 拉 框 可 以 超 出 Combo所 在 窗 体 ， 而 且 总 是 在 最 前 面 ， 不 知 是 如 何 作 到 。 还 有 ， 如 果 下 拉 框 会 超 出 屏 幕 下 方 ， 那 应 该 从 控 件 上 方 弹 出 ， 但 如 果 将 弹 出 框 方 在 控 件 内 ， 则 很 难 实 现 ， 如 果 你 对 以 上 问 题 能 解 决 ， 请 尽 快 给 我 回 复 --我 很 急 着 ， 要 解 决 它 。 先 谢 谢 了 ， 拜 托 ！ 
<END>
35,如何制作一个能将背景设为透明的容器控件 
我 想 自 己 做 个 ActiveX 控 件 ， 要 像 Frame 控 件 一 样 是 个 容 器 ， 而 且 要 可 以 将 它 的 背 景 设 为 透 明 （ Frame 控 件 没 有 这 个 属 性 ） ， 我 将 UserControl 的 BackStyle 设 为 透 明 ， 但 这 样 ， 放 上 去 的 其 他 控 件 也 看 不 见 了 。 问 题 ： 如 何 制 作 一 个 能 将 背 景 设 为 透 明 的 容 器 控 件 ？ 
<END>
36,如何设置ActiveX控件的属性为几种可选值 
在 建 立 ACTIVEX控 件 中 ,如 何 设 置 像 BORDERSTYLE那 样 的 属 性 ,可 以 选 择 几 种 属 性 值 ? 
<END>
37,如何实现ActiveX控件在VB环境可以编译，但一运行就提示没有许可 
有 个 ActiveX控 件 注 册 时 生 成 .lic文 件 ， 在 VB环 境 下 ， 不 注 册 可 以 试 用 ， 编 译 时 也 无 问 题 ， 但 一 运 行 就 提 示 没 有 许 可 ， 然 后 程 序 退 出 。 不 知 是 如 何 实 现 的 。 另 外 ， 如 何 让 控 件 结 束 呢 ， 就 象 上 述 问 题 一 样 。 
<END>
38,为何有的自动化对象可以在类型库中看到，却无法New或CreateObject创建 
为 何 有 的 自 动 化 对 象 可 以 在 类 型 库 中 看 到 ， 却 无 法 在 VB中 用 New或 CreateObject创 建 ? 
<END>     
39,用VC开发的ActiveX控件的方法使用了字符指针，在VB中如何声明 
我 用 VC6.0开 发 了 一 个 ActiveX控 件 ,在 控 件 中 的 方 法 消 息 中 使 用 了 几 个 字 符 指 针 变 量 作 为 参 数 ,请 问 在 VB6.0中 如 何 声 明 与 之 对 应 的 参 数 。 谢 谢 ! 
<END>     
40,如何检查编译后控件的合法性 
商 业 控 件 是 如 何 实 现 注 册 的 ？ 关 键 在 于 如 何 检 查 编 译 后 控 件 的 合 法 性 ？ 如 何 做 到 设 计 时 检 查 license文 件 ， 而 分 发 后 却 不 用 检 查 。 
<END>
41,怎样使用ActiveX DLL 来封装窗体Form为DLL文件 
问 题 :怎 样 使 用 ActiveX DLL 来 封 装 窗 体 Form为 DLL文 件 ,并 在 代 码 中 正 确 调 用 ?比 如 MsgBox框 的 实 现 方 式 ， 只 需 输 入 相 关 的 参 数 ， 窗 体 自 动 显 示 并 处 理 ， 返 回 所 需 的 结 果 值 ？ 
<END>
42,如何定义象ListItems那样的属性 
问 :在 listview中 有 一 个 属 性 ListItems,当 listitems不 带 index时 返 回 一 个 对 象 有 add等 方 法 ,而 使 用 listitems(index)时 返 回 一 个 listitem对 象 ,我 如 何 编 写 像 这 样 的 属 性 。 
    如 :我 只 能 在 类 中 定 义 一 个 有 同 名 的 属 性 而 不 能 如 此 定 义 
    property get listitems() as 对 象 名 
    property get listitems(index) as listitem 
    共 存 的 现 象 。 
    两 者 只 能 有 一 ? 
<END>
43,如何让自定义控件设计时可见而运行时不可见 
如 何 让 自 定 义 控 件 设 计 时 可 见 而 运 行 时 不 可 见 ？ 如 何 让 自 定 义 控 件 获 得 所 在 窗 体 的 句 柄 ？ 
<END>
44,在网页上放置VB编写的控件，但每次运行都提示控件不安全 
问 题 : 我 想 在 网 页 上 放 置 VB编 写 的 控 件 ， 但 每 次 运 行 都 提 示 控 件 不 安 全 ， 如 何 在 VB编 程 中 使 其 不 出 现 ， 网 页 是 给 别 人 看 的 所 以 要 在 编 程 中 实 现 ？ 
<END>
45,如何能得到控件所在的容器的hwnd 
在 设 计 一 个 控 件 时 ， 如 何 能 得 到 它 所 在 的 容 品 （ 父 窗 口 或 PICTUREBOX） 的 hwnd? 
<END>     
46,编写数据源控件时，如何在数据源发生变化时刷新绑定控件 
在 VB中 编 写 自 定 义 的 数 据 绑 定 控 件 时 ， 在 数 据 源 发 生 变 化 时 怎 样 刷 新 数 据 以 使 得 和 该 控 件 绑 定 的 显 示 控 件 能 够 重 新 显 示 正 确 的 数 据 。 
    我 知 道 在 VB中 数 据 绑 定 控 件 都 有 GetDatamember事 件 来 处 理 数 据 源 和 控 件 的 绑 定 ， 但 是 我 不 知 道 怎 样 触 发 该 事 件 。 
<END>
47,如何避免编译ActiveX DLL后重新编译调用它的程序 
我 设 计 了 一 个 ActiveX DLL程 序 ， 并 设 计 了 一 个 主 程 序 调 用 他 。 而 当 我 修 改 编 译 DLL程 序 后 ， 必 须 重 新 编 译 调 用 他 的 主 程 序 ， 否 则 主 程 序 无 法 调 用 修 改 后 的 DLL程 序 ， WHY？ ？ 如 何 解 决 ？ ？ 
<END>
48,如何在Web站点上安装ActiveX控件 
请 问 ,如 何 使 ActiveX文 档 和 ActiveX控 件 正 确 放 置 于 网 页 上 使 用 户 能 够 正 确 下 载 ,并 注 册 ?如 何 向 WEB站 点 上 载 并 向 用 户 分 发 ActiveX文 档 ? 我 在 本 地 试 行 ActiveX控 件 时 ,由 于 本 地 已 有 注 册 ,故 直 接 在 浏 览 器 上 执 行 ,在 其 它 客 户 端 上 试 行 ,不 能 执 行 。 我 在 HTM文 件 中 只 使 用 的 OBJECT做 标 记 。 
<END>
49,ActiveX控件的对象属性为什么没有出现在属性窗口中 
我 在 控 件 代 码 窗 口 中 加 入 如 下 代 码 : 
     Dim m_Connection As ADODB.Connection 
     Public Property Get Connection() As ADODB.Connection 
     Set Connection = m_Connection 
     End Property 
     
     Public Property Set Connection(ByVal New_Connection As ADODB.Connection) 
     Set m_Connection = New_Connection 
     PropertyChanged "Connection" 
     End Property 
     
     'Load property values from storage 
     Private Sub UserControl_ReadProperties(PropBag As PropertyBag) 
     
     Set m_Connection = PropBag.ReadProperty("Connection", Nothing) 
     End Sub 
     
     'Write property values to storage 
     Private Sub UserControl_WriteProperties(PropBag As PropertyBag) 
     
     Call PropBag.WriteProperty("Connection", m_Connection, Nothing) 
     End Sub 
    即 :加 入 Connection属 性 ,但 在 使 用 该 控 件 时 ,该 属 性 却 没 有 显 示 在 属 性 页 中 。 我 在 procedure attribute中 并 没 有 将 don't show in property browser选 中 。 
<END>
50,怎么样才能取消对控件的注册 
在 学 习 自 编 控 件 中 ， 编 译 后 就 自 动 进 行 了 注 册 ， 但 有 时 不 需 要 了 ， 可 是 怎 么 样 才 能 取 消 对 它 的 注 册 ？ 
<END>
51,如何修改自编控件的名称 
在 学 习 VB中 碰 到 了 一 个 可 能 是 很 简 单 的 问 题 ， 但 是 我 解 决 不 了 ， 特 向 各 位 专 家 请 教 。 
    win98 
    vb6.0 
    自 编 的 控 件 怎 么 样 才 能 把 它 的 名 称 Usercontrol 改 为 ， 比 如 软 按 钮 。 免 得 在 控 件 栏 上 出 来 的 都 是 Usercontrol 。 
<END>
52,如何创建一个在可作为容器的控件上的类 
如何创建一个在可作为容器的控件上的类？(如何设置该类的Container属性) 
<END>
53,如何在OCX中实现PICTURE功能 
我 想 在 自 己 做 的 OCX中 实 现 PICTURE功 能 ， 即 ： 在 OCX中 加 如 了 一 个 IMAGE， 添 加 了 PICTURE属 性 ， 但 是 不 知 如 何 READ， WRITE PICTURE， 把 一 个 PICTURE传 递 给 我 的 IMAGE， 望 能 回 复 ， 谢 谢 ！ 
<END>
54,vb6中开发ActiveX控件能否继承某个已有的类 
vb6中 开 发 ActiveX控 件 能 否 继 承 某 个 已 有 的 类 。 比 如 我 想 开 发 一 个 增 强 的 命 令 按 钮 , 因 此 它 必 须 具 有 原 CommandButton 控 件 的 所 有 属 性 与 事 件 ,方 法 等 。 
<END>
55,VB的ActiveX控件不能在VFP中使用 
我 初 用 VB, 我 试 作 一 ActiveX控 件 ， 结 果 在 VB中 可 用 ， 但 在 vfp中 虽 可 载 入 控 件 工 具 栏 ， 但 一 放 到 表 单 就 出 现 系 统 错 误 ， 不 知 为 何 ， 请 指 点 ， 谢 谢 ！ 
<END>
56,什么是COM接口 
我 和 同 事 共 同 编 写 软 件 ， 他 用 VC， 我 用 VB， 他 告 诉 我 接 口 是 COM的 ， 我 不 大 明 白 ， COM是 怎 么 回 事 。 同 事 不 在 国 内 ， 所 以 无 法 问 他 ? 
<END>
578,页面中的ActiveX控件的下载问题 
我在fp98中做了一个页面,插入了vb6中提供的flexgrid控件,也插入了一些我自己编的控件. 
    显然,别人的机器上没有注册这些控件.为了能够在别人的机器上能够下载,对于我自己编的控件的codebase属性,我照抄了vb6安装向导做的代码,(已经为我做好了inf和cab),对于flexgrid,vbsp3光盘上cabs子目录里有cab,我也引用了一下。结果是下载flexgrid时问我要"标记为defalut"的磁盘,我自己的控件一切正常。我怎么办呢? 
<END>
58,ActiveX文档的安装问题 
我 用 VB 5.0编 了 一 个 很 简 单 的 ActiveX文 档 ， 按 照 微 软 的 提 示 编 译 成 .exe文 件 ， 再 用 setup wizard生 成 Internet下 载 程 序 ， 在 本 机 上 用 IE 4.0浏 览 正 常 ； 但 是 在 LAN上 其 他 机 器 用 IE 4浏 览 时 ， 屏 幕 上 一 个 进 度 条 窗 口 很 快 一 闪 而 过 ， 然 后 浏 览 器 窗 口 什 么 也 不 显 示 。 我 在 微 软 站 点 上 查 找 了 有 关 的 文 章 ， 并 按 其 提 示 修 改 了 有 关 文 件 ， 可 是 仍 然 没 有 效 果 。 不 知 是 什 么 原 因 ？ 
<END>