将《VB6编程IEEE浮点算法实践》中的Function封装成OCX

前面就Activex DLL和ActiveX EXE做了笔记和程序演练，今天将《VB6编程IEEE浮点算法实践》文中的代码封装成 OCX控件。

《VB6编程IEEE浮点算法实践》详见：

VB6编程IEEE浮点算法实践_Mongnewer的博客-CSDN博客

首先认识一下我们要做的任务

1. 原程序是数个 Function，完成 mkx和cvx转换。

2. 做成的ocx不需要event，也不需要 property， 因此，与propertybag无关。

开始动手

1. 打开VB6， 点击actvex 控件

 2. 进去后的模板什么也不改动，保持原样。

 3. 将《VB6编程IEEE浮点算法实践》代码MKx.BAS的Function全部贴到ocx代码框中

 4. 给工程改个名字便于以后调用

 5. 在菜单栏中选中生成ocx

 此时，Mbus.ocx就生成了，做新的project时填加这个ocx即可。如下所述：

1. 建VB6 标准 EXE 程序

 2. 找到生成的ocx后确定

 3. 工具栏中多了个ocx，将其放到窗体上。

 因为没做icon，默认的灰底辨识度很低，以后自己改icon吧。

4. 在窗体上放一个command1，再放一个text1，编写command1的click代码。

当输入到 Text1.text = UserControl1. 的时候，ocx中封装的function就都列出来了，还有VB做ocx时自己加的其它一些通用功能。找到函数，把它写完整 Text1.text = UserControl1.MKS(1121.321)

5. 运行程序，并点击command1

 MKS函数计算出的十六进制字符串就显示到文本框中了。