朽木充栋梁鲤鱼乡:我在vb里建了个ActiveX dll

来源：百度文库 编辑：杭州交通信息网 时间：2024/05/08 12:50:57
我在vb里建了个ActiveX dll
然后添加了个窗体 ft1
里面有
text1，text2 两个文本框
cmda 按钮
然后定义了
Public testnn1 As String
Public testnn2 As String
按扭上命令是
testnn1=Me.text1
testnn2=Me.text2
然后我在类模块里添加个
testdll
代码里放
Function showw(cc1,cc2)
Ft1.Show vbModal
cc1 = Ft1.testnn1
cc2= Ft1.testnn2
End Function
我怎么在脚本里读出这个变量cc2??

这是以上最后一句话：
“我怎么在脚本里读出这个变量cc2??”

请问您所说的脚本是什么？
方案一：
如果是想在程序里面读出，那么你只要把cc1和cc2传给一个类的公共变量就可以了。比如你设一个public c2
将代码改为
Function showw(cc1,cc2)
Ft1.Show vbModal
cc1 = Ft1.testnn1
cc2= Ft1.testnn2
c2=cc2
End Function
您只要调用
classname.showw a,b
msgbox classname.c2
就可以实现了。
方案二
VB默认的传值方式是byref 即是按引用传值
您的原程序如下
Function showw(cc1,cc2)就等于
Function showw(byref cc1,byref cc2)
End Function
计算完毕后您的cc2已经是修改好的值了，直接读出就可以了；
建议：
建议您在编程时把使用到的变量都预先申明，在代码前加上这个吧
Option Explicit，既然是写函数，就养成声明函数类型和返回值(没有就是vbnull)的习惯，相信对提高您的编程水平是有帮助的。

我在vb里建了个ActiveX dll vb中的ActiveX DLL工程，让我头痛 用VB编写ActiveX DLL实现ASP编程之问题 在使用优化大师时，有个“沉余DLL清理”和“ActiveX清理”，我想知道DLL和ActiveX分别是什么意思啊？ 雅虎助手到底在IExplorer和Explorer进程里加载了多少个DLL。 为什么在联众里老是出现ACTIVEX什么的，问是否，按了一次又一次，老是删不掉。 电脑里安装了VC++（有VB）后起机时，在桌面有一个小框说加载najebote.dll模块出错，请问这是怎么回事？ VB 在WIN98里如何引用WINXP或WIN2K的kernel32.dll 我用VB做了个放大镜，但测试时提示：实时错误'453': 找不到DLL入口点GetDc in user32,请问是怎么回事？ vb里dlg是个什么控件?在哪找到?