100分求个VB创建简单OCX方法
新人，粗懂VB语法，想学学VB开发ocx的小经验，目前就要求实现如下简单方法就行javascript调个ocx里定义好的sum函数，传入两个数字，获得这2个数字相加的结果就行.
目前知道VB新建个activeX Dll工程
知道如何生成dll
知道regsvr32注册该控件
html代码应该是这样的吧
<HTML>
<BODY>
<OBJECT id=control classid="clsid:AE7EFF2D-68DC-4C8C-94BB-092C68FC7B22"></OBJECT>
<script>
var str = control.sum("10","20");
alert(str);
</script>
</BODY>
</HTML>
但是不清楚如何在vb里定义这个sum函数，以及如何接收javascript传过来的值，并且如何将值返回给javascript
望大家将VB里的源代码都贴出来给我看看，谢了 --------------------编程问答-------------------- http://tieba.baidu.com/f?kz=259214383 --------------------编程问答-------------------- 打开vb
新建一个ocx
设置窗体visable=false
在代码框输入下面代码
Public Function he(i As Integer, j As Integer) As Long
he = i + j
End Function
运行。。。
调用controls.he(10,20)
--------------------编程问答-------------------- 如果是 activeX Dll 就不是 OCX。
只要在工程中添加一个 Public 的 Class，Public 的 sum() 函数就加在该 Class 中。
clsid 就是注册后该 Class 的 GUID。 --------------------编程问答-------------------- 进来才发现是DLL，不是OCX
在类模块里，定义一个加法的函数即可 --------------------编程问答-------------------- 是OCX啊
我打开VB，新增了个ActiveX Controll,导出的时候就是OCX文件啊 --------------------编程问答-------------------- 谁能提供一个简单的范例给我？就要求里面里面定义一个方法，将源代码+生成的ocx+调用ocx的html页面打个包一起发给我吧，谢了,分不够可再加
qinli6482@sohu.com --------------------编程问答-------------------- 关注一下. --------------------编程问答--------------------
郁闷，你到底要OCX还是DLL啊 --------------------编程问答-------------------- dll比OCX简单,OCX还有一大堆属性填充. --------------------编程问答-------------------- 一个控件有很多事件如：Click、MouseDown、MouseUp、MouseMove等。要触发这些事件都需要你加入代码。在控件的声明处加入Public Event Click()就表明该控件有一“Click”事件。自己编写的控件有什么事件就在声明处加几条事件
如今OCX控件在编程中已占领了很重要的地位,我们可以利用OCX控件完成一些相当复杂的编程操作.同时OCX 控件还有利于主程序的简单化、功能的重用、隐常程序实现细节、便于升级、传播方便等优点。现在我们可以利用VB 5.0方便的制作出自己的OCX控件供我们在编程中使用同时还可以把它送给你周围喜欢编程的朋友!
下面列出制作OCX控件的步骤：
一：新建OCX 打开VB 5.0选择新建工程在对话框中选择ActiveX 控件(如图一(map1.gif))打开后会见一空的文档这就是 OCX控件的初始界面。想看一看空OCX控件的效果吗?选择“添加工程”选中标准EXE，这时你就可以像调用其它控件一样在左边的工具栏里选择刚才新建的OCX控件图标放在标准的EXE文档中看一看有什么效果!(什么也没有!) 自然因为刚才的OCX文档是空的嘛(废话太多，数个痰盂向我飞来)!
二：创建界面
一般我们用VB创建OCX控件都是在我们的控件里添加其它的控件来组合成一个完整的控件（也可以让它只完成某种算法）比如：你可以在上面添加一按钮、编辑框这时你再用第一部的方法看一看效果，是不是控件上多了一个按钮和一个编辑框。
三：OCX属性
一个OCX控件有许多的属性，比如控件背景是否透明（BackStyle），控件是否可以获得焦点 (CanGetFocus)等。这些属性都可以在控件的“属性框”中找到。
四：添加事件
一个控件有很多事件如：Click、MouseDown、MouseUp、MouseMove等。要触发这些事件都需要你加入代码。在控件的声明处加入Public Event Click()就表明该控件有一“Click”事件。自己编写的控件有什么事件就在声明处加几条事件。关于触发事件是使用“RaiseEvent”语句来完成的如：RaiseEvent 事件名（参数）。 五：用户属性
一个控件应有许多属性供用户设置如：控件的背景色、控件要显示的图形等。它们通常用Property Get和 Property Let两条语句来完成。前者表示给用户显示一个属性的值，后者表示用户设置一个属性的值。 六：保存属性和读取属性
当属性被用户更改后需要将该属性值保存，以便控件运行时读取更改后的属性值。它们分别用 ReadProperty和WriteProperty两种方法来完成。前者表示读取一个属性值，后者表示写入一个属性值。
好了一个简单的OCX控件制作方法大概就需要以上几步就可完成。下面本人将编写一个简单的OCX控件供大家参考。此控件的功能是在控件中显示一个圆，当鼠标移到控件上的时候控件上的圆便会在鼠标不离开控件的前提下跟随鼠标移动。 --------------------编程问答-------------------- 学习 --------------------编程问答-------------------- 1）找开VB6.0，新建ActiveX Dll工程；比如将工程名改为AAA,类模块名改为BBB,并将类模块属性Instancing改为GlobalMultiUse；
2）在类模块中定义求和函数：
Public Function Sum(lpNumber1 As Long,lpNumber2 As Long) As Long
If Not IsNumeric(lpNumber1) Or Not IsNumeric(lpNumber2) Then
Sum = 0
Else
Sum = lpNumber1 + lpNumber2
End If
End Function
3)保存工程，并生成AAA.Dll文件。
4）用regsvr32注册AAA.Dll文件。
5）JavaScript应用
<script>
var num1=1,num2=2;
var vbdll = new ActiveXObject("aaa.bbb");
var qh= vbdll.sum(num1,num2);
</script> --------------------编程问答-------------------- 留个书签 --------------------编程问答-------------------- 帮顶...... --------------------编程问答-------------------- mk.............. --------------------编程问答-------------------- .......一年前的帖了...
补充：VB , 基础类
