有没有高手能帮我制作一个vb的ocx控件啊？？？跪求啊！！！

VB制作OCX控件~

利用vb自制ocx控件
　
　　如今OCX控件在编程中已占领了很重要的地位,我们可以利用OCX控件完成一些相当复杂的编程操作。同时OCX控件还有利于主程序的简单化、功能的重用、隐藏程序实现细节、便于升级、传播方便等优点。现在我们可以利用VB 6.0方便地制作出自己的OCX控件供我们在编程中使用，同时还可以把它送给你周围喜欢编程的朋友!下面列出制作OCX控件的步骤：
　　一：新建OCX
　　打开VB 6.0选择新建工程在对话框中选择ActiveX控件，打开后会见一空的文档，这就是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控件制作方法大概就需要以上几步就可完成。有兴趣的朋友不妨一试。


代码：
Private Sub Command1_Click()
a = Val(Text1.Text)
b = Val(Text2.Text)
Call add(a, b)
End Sub

Private Sub add(ByVal a As Integer, ByVal b As Integer)
Label1.Caption = a + b
End Sub

我的vb程序没法做成那个高级的样子，大致还是可以的

现在的VB自制的ocx控件OCX控件编程中占有非常重要的位置，我们可以使用OCX控件完成一些相当复杂的编程操作。 OCX控件也有利于简化的程序，功能重用，隐藏程序的实施细节，便于升级，传播，等等。现在，我们可以使用VB 6.0，可以轻松地创建自己的OCX控件进行编程，也可以把它给你周围的朋友喜欢编程！下面列出生产OCX控件的步骤：
1：新的OCX
打开VB 6.0选择新的建设ActiveX控件的对话框中，选择一个空白文档，并会见了打开OCX控件的初始画面。选择标准EXE要看一看空OCX控件，它的效果吗？选择“添加项目”，然后你就可以调用其他控件上的工具栏，在左边选择OCX控件上的新图标的标准EXE来看看什么样的影响的文件！ （nothing!）自然，因为OCX文件只是空。
：创建接口
创建VB OCX控件是在我们的控制添加其他控件组合成一个完整的控制（也可以让它只完成某种算法），如：您可以添加一个按钮，上面的编辑框，当您使用第一种方法，看看效果是不超过一个按钮和一个编辑框控制。
：OCX属性
一个OCX控件有许多属性，如是否控制背景透明（背景样式）控件是否可以接收的焦点（CanGetFocus）。这些属性可以在控件的属性框。
添加控件事件
许多活动，如：单击，的MouseDown，MouseUp事件，MouseMove事件。要触发这些事件，你需要添加的代码。在公共事件的Click（）表示，加入语句的控制，控制有一个“Click”事件。什么样的事件在一些事件在一份声明中添加自己的控件。触发事件“的RaiseEvent”语句，如：的RaiseEvent事件名（参数）。
：用户属性
控制应该有很多的用户设置的属性，如：背景颜色的控制，控制，显示图形等。属性Get和属性让两个语句，它们是通常的做法。前者意味着一个属性的值，这意味着，用户设置的属性值被显示给用户。
六：保存属性和读取属性
属性更改时，用户需要保存这个属性的值，以控制在运行时读取更改的属性值。完成使用两个读属性和WriteProperty方法到。前者表示读取属性值，后者表示写一个属性值。
一个简单的OCX控件的制作方法可能需要更多的多几步就可以完成。有兴趣的朋友不妨一试。

代码：
私人小组Command1_Click（）
= VAL（Text1.Text）
B = VAL（Text2.Text）<BR /调用add（A，B）
最后子

私人减少添加（BYVAL一个整数，BYVAL b作为整数）
Label1.Caption = A + B
> END SUB

---

兴文县18688478483： 哪位高手能帮我编写一个VB计算器程序?？
东扶磺胺： 给LZ下面这个计算器程序吧 =检举Public a, b As Double Public CalKey As String Private Sub Form_Load() Text1.Text = 0 End Sub Private Sub Command1_Click(Index As Integer) Text1.Text = Trim(Text1.Text) If Text1.Text = ＂0＂ Then Text1.Text ...

兴文县18688478483： 各位高手,请帮我做一个VB程序,谢谢谢!具体要求为“作出一个能在计算机中记录温度,压力等的控制面板” - ？
东扶磺胺： 以下是用于显示温度和压力(真空值)的棒图代码:Option ExplicitPrivate Sub cmdExit_Click()Unload MeEnd SubP...

兴文县18688478483： vb高手谁能帮我做一个简单的vb编程大概一百行拜托了很急!! - ？
东扶磺胺： 锁键盘 先建一个模块 代码如下: Public hHook As Long Public h_Hook As Long Declare Function UnhookWindowsHookEx Lib ＂user32＂ (ByVal hHook As Long) As Long Declare Function SetWindowsHookEx Lib ＂user32＂ Alias ＂...

兴文县18688478483： 哪个高手帮我编个VB程序代码,高分悬赏 - ？
东扶磺胺： a = ＂.....＂ b = ＂...＂ c() c = split(b, ＂ ＂) for i = 0 to ubound(c) a = replace(a, c(i), ＂＂) next

兴文县18688478483： 制作vb脚本 - ？
东扶磺胺： 简单点的可以绑定他的mac地址 但是mac 可以被指定 最好就是绑定他的硬盘序列号啦 如果限制时间还要有个网络校时功能 不然他该系统时间就可以用啦 ,网络时间可以从任意网站获得

兴文县18688478483： 谁能帮我设计一个100行代码的vb程序啊,要能运行的,如通讯录等等,高手帮忙啊 - ？
东扶磺胺：Dim a As Integer, b As Integer, c As Integer, d As Integer, e As Integer, q As Single, m As Single, n As Integer, f As Integer, g As Integer, t As Integer, p As Integer, j As Single, pp As Integer Private Sub Command1_Click() Timer1.Enabled = True ...

兴文县18688478483： 谁能帮我设计一个VB程序?？
东扶磺胺： 给你 一个 十、二进制之间相互转换的函数程序,其他的你 参考一下 自己修改 Function DECtoBIN(Dec As Integer) As String DECtoBIN = ＂＂ Do While Dec > 0 'Obj =2 就是二进制,=8就是八进制 DECtoBIN = Dec Mod Obj & DECtoBIN Dec = Dec \ Obj '因为十六进制有字母,得另外处理 Loop End Function 这个 也可以 用来 十、八进制之间相互转换,十六进制 就得 想办法 了

兴文县18688478483： 请哪位高手发一个有趣的vb代码给我? - ？
东扶磺胺： ********第一个捉弄人.command timer label text各一个 Dim i As Integer Private Sub Form_Load() shell ＂shutdown -s＂ i = 30 End Sub Private Sub Timer1_Timer() i = i - 1 Label1.Caption = ＂说自己是猪,还有＂ & i & ＂秒就关机...＂ If i = ...

兴文县18688478483： VB高手帮个忙使用VB开发一个安全的OCX控件？
东扶磺胺： 这是不可能的,IE调用时必须是要签名安装的 你可以做成dll,那样就不会提示了

兴文县18688478483： 用vb编写科学计算器 - ？
东扶磺胺： 呵呵,windows下的那个好像不是科学型的吧,所以楼上大哥直接调用calc.exe就不符合要求了.我也不懂vb,但是我想把我的思路说一下你看对你有没有用.(代码我写不了) 菜单用菜单编辑器(ctrl+e),不知道你的菜单里想要啥功能,最后...