前面就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函数计算出的十六进制字符串就显示到文本框中了。