index1.txt

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

1,在程序中自己用函数注册ActiveX Dll 
我想在程序中自己用函数注册一个ActiveX Dll。请问怎么实现？ 
<END>
2,如何以picturebox为样板动态添加控件并包含有picturebox中的所有控件 
已有一个容器控件picturebox,其上含有其他控件，如何以该picturebox为样板动态添加一个容器控件，使新添加的容器控件包含有样板picturebox中的所有控件。用load语句，不能添加picturebox包含的控件,有何良策？ 
<END>    
3,在分布式程序中用withevens定义对象后为何出错 
问题：在分布式程序中用withevens定义对象后为何出错? 
    问题: 我的客户端测试程序是这样的 （testEvent.exe 在服务器端） 
    Option Explicit 
    Dim WithEvents x As testEvent.Class1 
    Private Sub Form_Load() 
    Dim l As Long 
    Set x = testEvent.Class1 
    x.test 
    Set x = Nothing 
    End Sub 
     
    Private Sub x_testEvent(Err_Module As String, err_Function As String, err_Number As Long, err_Desc As String) 
     MsgBox Err_Module & vbCrLf & err_Function & vbCrLf & _ 
     "Error Number: " & err_Number & vbCrLf & _ 
     "Error Desc: " & err_Desc & vbCrLf, vbCritical, "Error" 
    End Sub 
    但程序总是执行到Set x = testEvent.Class1时出错，有时是permission denied ,有时是 
    Automation Error ! 但如果我不用withEvents来定义就正常，不知何故？
<END>
4,如何调用matlab程序 
问题：我现在在做个关于用matlab进行计算机仿真的毕业设计。我的工业自动化的同学负责用matlab实现例如自控方面的设计，而我负责实现能在网络上调用其用matlab编写的程序段。我选择用vbscript进行网络编程，不知如何调用matlab程序，需要将参数传递给matlab程序，并且要将运行结果（如曲线，结果值）返回。 
<END>    
5,打包方式为什么列不出param片段呢 
问题: 《VB编程晋级：ACTIVEX控件》一书我终于买到，但我还是看不懂ACTIVEX控件的属性如何“导出”，即在HTML中能列出制做的控件属性，像如下格式： 
    <object classid="clsid:EAE501EB0-4A62-11CE-BED6-00AA00611080" id="TabStrip1" width="192" height="144"> 
     <param name="ListIndex" value="0"> 
     <param name="BackColor" value="16777215"> 
     <param name="ForeColor" value="0"> 
     <param name="Size" value="5080;3810"> 
     <param name="Items" value="Tab1;Tab2;"> 
     <param name="MousePointer" value="0"> 
     ....... 
     ....... 
    </object> 
    并能用VBSCRIPT来修改它们。按照打包方式为什么列不出<param ...片段呢？ 
    我要做的事是把某值“传入”控件，以便控件根据该值来进行某种操作。假如制做的控件显示目录中的文件，我希望在外部（HTML）指定目录名，但不知怎样与控件“交流”？ 您在书中提到的ACTIVEX控件接口向导结束时曾说：“至此，调用向导建立属性的步骤已经结束，但控件的设计工作才刚刚开始。”我也不懂是什么意思？通过ACTIVEX控件接口向导的每步设置直至完成就能把控件的属性“导出”吗？怎样才能做到“......使外部程序尽可能灵活地控制控件”呢？盼专家在百忙中多多指教，请原谅我说的一些外行话，再次感谢！ 
<END>    
6,如何在VB6中的类模块中定义可读写的属性数组 
问题: 如何在VB6中的类模块中定义可读写的属性,这个属性是一个数组? 
<END>
7,ActiveX EXE工程中的如何设置主界面 
我 现 在 使 用 Ｖ Ｂ 开 发 一 些 Web页 中 使 用 的 ActiveX控 件 ， 要 求 能 够 操 纵 和 存 取 服 务 器 上 的 各 资 源 ， 如 ： 数 据 库 ＼ 二 进 制 文 件 ＼ 文 本 ＼ 串 口 等 ， 我 手 揣 的 是 您 编 写 的 ＜ Visual Basic编 程 晋 级 ： ActiveX＞ 一 书 ， 但 我 还 是 有 一 些 问 题 需 要 请 教 阁 下 ． 
    　 　 (1)ActiveX控 件 的 可 读 写 属 性 的 实 现 ,这 些 可 读 写 属 性 是 否 就 是 <object></object>标 记 中 
    <param name="a Property" value="a Value"> 所 指 的 属 性 ？ 
    　 　 (2)一 般 DLL中 公 共 导 出 函 数 的 导 出 及 调 用 。 
    　 　 (3)ActiveX EXE工 程 中 的 如 何 设 置 主 界 面 。 
    　 　 (4)ActiveX EXE工 程 如 何 设 置 多 线 程 ， 以 让 多 个 用 户 访 问 ， 并 保 持 一 些 共 同 分 享 的 ＂ 友 元 ＂ 变 量 ． 
<END>
8,在模块中调用usercontrol中的自定义事件或方法 
问 题 : 请 教 各 位 高 手 ： 我 用 VB写 了 一 个 OCX控 件 ， 其 中 有 一 个 模 块 ， 我 想 在 模 块 中 调 用 usercontrol中 的 自 定 义 事 件 或 方 法 ， 却 不 知 怎 样 调 用 ,望 各 位 高 手 指 点 ! 
<END>    
9,VC写了个COM组件，但在VB中调用时提示Z类型不匹配 
问 题 : 我 在 VC中 用 ATL写 了 一 个 COM组 件 ， 它 只 提 供 一 个 方 法 ： MyThod（ int x， int y， int* z),该 组 件 在 用 VC写 的 客 户 机 调 试 通 过 ， 但 在 VB中 调 用 时 : 
    dim z as integer 
    objMyvcdemo.MyThod 1, 7, Z 
    其 中 objMyvcdemo为 组 件 的 实 例 对 象 。 
    总 是 提 示 Z类 型 不 匹 配 ， 请 问 专 家 是 怎 么 回 事 ？ 怎 么 解 决 ？
<END>
10,如何在vb6.0中如何调用Matlab中的数学函数库 
问 题 : 如 何 把 Matlab中 的 数 学 函 数 库 编 为 可 为 vb6.0调 用 的 Dll， 在 vb6.0中 如 何 调 用 。 
<END>    
11,怎样用VB编写ACTIVEX，才能够让HTML直接访问和调用函数和属性 
问 题 : 怎 样 用 VB编 写 ACTIVEX， 才 能 够 让 HTML直 接 访 问 和 调 用 ACTIVEX的 内 部 函 数 和 属 性 ？ 
<END>    
12,在VFP中如何调用VB编写的.DLL或.EXE文件 
问 题 : 请 教 高 手 ,在 VFP中 如 何 调 用 VB编 写 的 .DLL或 .EXE文 件 ？ 在 这 两 种 文 件 中 ,我 定 义 了 函 数 和 过 程 .我 想 在 VFP中 调 用 它 ,该 如 何 办 ? 
<END>    
13,在运行时如何通过调出Form窗体来设置控件的属性值 
问 题 ： 控 件 里 包 含 了 一 个 Form窗 体 ,在 Form窗 体 里 应 该 怎 样 编 写 代 码 连 到 控 件 在 运 行 时 可 以 通 过 调 出 Form窗 体 来 设 置 控 件 的 属 性 值 。 谢 谢 !!! 
<END>    
14,PropertyPage对象是一个ocx，或是dll组件吗 
问 题 : PropertyPage对 象 是 一 个 ocx， 或 是 dll组 件 吗 ?或 者 有 其 它 更 好 的 解 答 。 
<END>
15,如何能使ActiveX控件属性可以象image控件一样直接用等号赋值 
问题: 用制作ActiveX控件，如果需要实现图形类型的属性如mouseicon、picture等，目前我只能定义成object类型，然后用propery set来实现，这样用户调用的时候必须使用set语句。 
    如何能使这些属性可以象image控件一样直接用等号赋值。 
<END>    
16,Active控件和dbgrid控件放在同一form上如何编写的控件能够读取dbgrid的数据 
问 题 ： 我 想 编 写 一 个 active控 件 ,将 其 和 一 dbgrid控 件 放 在 同 一 form上 ,我 想 实 现 我 编 写 的 控 件 能 够 读 取 dbgrid的 数 据 ? <END>
17,在编写组件是应该从那些方面入手 
我 想 知 道 在 编 写 组 件 是 应 该 从 那 些 方 面 入 手 ？ 
<END>
18,用vb6.0开发ActiveX控件，如何填加一个数组属性 
问 题 : 用 vb6.0开 发 ActiveX控 件 ,想 填 加 一 个 属 性 ,它 可 以 输 入 数 组 ,就 象 MSChart控 件 的 ChartData属 性 。 能 否 给 出 填 加 属 性 过 程 的 例 子 ? 
    MSDN中 "运 用 属 性 过 程 "一 节 提 到 ,但 省 略 了 原 码 : 
    Public Property Let Things(ByVal X As Integer, _ 
    ByVal Y As Integer, ByVal Thing As Variant) 
     '（ 省 略 给 数 组 元 素 赋 值 的 代 码 。 ） 
    End Property 
    Public Property Get Things(ByVal X As Integer, _ByVal Y As Integer) As Variant 
     '（ 省 略 从 数 组 取 值 的 代 码 。 ） 
    End Property 
    读 写 根 本 没 有 提 。 
<END>    
19,如何设置OLE的滚动条 
问 题 ： 我 在 用 VB6.0编 程 ， 用 OLE的 方 法 嵌 入 Excel可 是 OLE对 象 没 有 滚 动 条 ， 这 样 当 EXCEL表 格 比 较 大 时 ， 就 无 法 完 全 显 示 。 请 问 ， 如 何 设 置 OLE的 滚 动 条 ?谢 谢 ！ ！ ！ 
<END>    
20,如何把控件外部数据源的信息传进自定义控件 
我 正 打 算 自 已 基 于 vb中 的 image控 件 自 定 义 一 个 符 合 我 要 求 的 控 件 .但 我 不 知 道 该 的 image中 。 即 如 何 将 字 段 绑 进 自 定 义 的 image中 ,请 高 手 指 点 。 
<END>    
21,如何让控件将文件写在引用此控件工程的路径下 
问 题 : 我 是 想 编 一 个 算 法 复 杂 的 控 件 myname.ocx， 用 来 在 引 用 此 控 件 的 工 程 或 exe所 在 路 径 中 写 入 一 个 文 件 。 
    但 在 控 件 编 辑 中 写 了 
    open app.path & "\aaa.txt" for output as #f 
    print #f,"xxxx" 
    close #f 
    ， 并 生 成 myname.ocx 。 但 在 另 一 个 工 程 bbb.vbp中 加 入 了 此 控 件 ， 一 运 行 ， 可 是 aaa.txt写 在 了 myname.ocx所 在 路 径 ， 并 不 是 在 bbb.vbp的 路 径 下 。 我 该 怎 么 写 才 能 让 暗 暗 aaa.txt写 在 引 用 此 控 件 工 程 的 路 径 下 。 谢 谢 
<END>
22,cab文件是怎么制作的 
我 有 一 个 问 题 请 教 ： 
    我 的 网 页 中 有 mschart, 那 么 codebase="/myweb/mschart.cab" 这 里 的 mschart.cab 是 怎 么 做 的 ？ 我 的 机 器 中 有 vb6 的 mschart.ocx ( vb6 的 是 mschrt20.ocx), 怎 么 打 包 成 mschart.cab (或 mschrt20.cab)?还 有 ， 在 浏 览 器 中 下 载 ， 怎 么 才 能 在 没 设 置 安 全 特 性 许 可 的 情 况 下 也 能 下 载 和 安 装 ？ 
<END>
23,如何用VC编AutomationServer使其可以被GetObject得到句柄
问 题 : 如 何 用 VC编 写 一 个 Automation Server（ exe),使 其 运 行 中 可 以 被 VB的 GetObject得 到 句 柄 ？ 
    利 用 VC的 Wizard可 以 很 容 易 的 做 一 个 支 持 不 同 Method的 Automation Server， 在 Client方 可 以 用 CreateObject产 生 实 例 并 调 用 Method， 但 用 GetObject却 失 败 ， 如 何 处 理 Server？ 请 教 各 位 高 手 ！ 
<END>
24,怎样把DELPHI的VCL控件转变成VB的控件 
问 题 : 怎 样 把 DELPHI 5.0 的 VCL控 件 转 变 成 VB6.0的 控 件 ？ 
<END>    
25,如何在浏览器一打开htm文件就能将程序自动下载到客户端运行
问 题 : 十 万 火 急 !我 想 做 一 类 似 于 插 件 的 东 西 (是 否 可 以 为 .exe),在 htm或 asp中 调 用 ,在 浏 览 器 一 打 开 该 htm文 件 ,就 能 将 此 程 序 自 动 下 载 到 本 地 客 户 端 运 行 。 请 告 详 细 内 容 或 努 力 方 向 。 
<END>
26,如果有一个新的控件放入容器控件时，是否有事件发生 
遇 到 的 问 题 (请 尽 可 能 详 细 ): 
    我 想 编 一 个 控 件 作 为 容 器 使 用 。 在 设 计 状 态 时 ， 如 果 有 一 个 新 的 控 件 放 入 时 ， 最 好 有 一 个 事 件 发 生 ， 这 样 我 可 以 对 该 子 控 件 的 位 置 进 行 调 整 。 问 题 是 在 设 计 状 态 时 ， 有 没 有 这 样 的 事 件 ， 如 果 VB没 有 该 事 件 ， 那 么 Windows系 统 有 没 有 该 事 件 。 如 果 有 的 话 ， 它 是 什 么 ？ 谢 谢 ！ 
<END>
27,为什么无法为自己设计的控件的Picture属性赋值 
问 题 : 我 将 Image放 置 在 UserContro上 ， 并 使 用 下 列 代 码 让 Image显 示 输 入 的 图 片 ， 
    Public Property Get Picture() As Picture 
     Set Picture = Image1.Picture 
    End Property 
     
    Public Property Set Picture(ByVal New_Picture As Picture) 
     Set Image1.Picture = New_Picture 
     PropertyChanged "Picture" 
    End Property 
     
    Private Sub UserControl_ReadProperties(PropBag As PropertyBag) 
     Set Picture = PropBag.ReadProperty("Picture", Nothing) 
    End Sub