将《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函数计算出的十六进制字符串就显示到文本框中了。
CSDN-Ada助手: 不知道 C 技能树是否可以帮到你:https://edu.csdn.net/skill/c?utm_source=AI_act_c
Mongnewer: 有益就好。谢谢!
江城开朗的豌豆: 博文使用通俗易懂的语言,避免了过于专业术语的使用,并提供了清晰的解释和说明,使读者能够轻松理解和跟随。支持
CSDN-Ada助手: 恭喜你这篇博客进入【CSDN每天值得看】榜单,全部的排名请看 https://bbs.csdn.net/topics/617368974。
梓木竹: 赞,成功了!