user-interface - OpenEdge Progress-4GL 如何与 ActiveX tabstrip 组件一起使用？

Question

我想在我的 OpenEdge Progress-4GL 环境中使用标签条，但我无法让它工作。

“没问题：Progress 网站上有一个示例。 ”，您可能会说，并且确实在此 URL上有一个 tabstrip 示例（您可能需要下载提到的“TabStrip_sample.zip”），其中放置了一个 Listview其中一个选项卡和另一个选项卡上的 Treeview。（不要害怕：压缩文件只包含源代码、位图和自动创建的*.wrx文件，不会损害您的计算机）

现在的问题是：他们到底是怎么做到的？

在文件“dbtest.w”中，让我们在设计时查看两个选项卡（在调整 Listview 的大小之后）：

很明显，所有组件都放在 TabStrip 组件上，因此选项卡和组件之间的链接应该在运行时完成（正如 URL 中提到的），但这里有一个问题：

代码中似乎没有任何事件处理程序ON ... CFTabStrip或任何内容。
的属性编辑器中提到的各个选项卡页的键（“Db_tbl”和“Db_sch”）或索引（1 和 2）CFTabStrip在代码中无处可见。

谁能解释一下他们是怎么做到的？
提前致谢

标签： user-interfaceactivexopenedgeprogress-4gltabpage

Answer 1

“魔术”是 in PROCEDURE CFTabStrip.TabStrip.MouseDown，它检查水平位置 (x) 是否意味着第一个选项卡或右侧选项卡，然后隐藏/显示一个或另一个。

相当笨重，但如果你看一下标题，这个例子是近 20 年前创建的，用于与 Progress 8 一起工作。