# Re: 回应与挑战

Posted by Arthur on August 04, 1999 at 13:58:40:

In Reply to: 回应与挑战 posted by Sephiroth on August 03, 1999 at 14:45:37:

: 不好意思, 问大家两个问题, 看看有没有人已经悟道了:

: 1. 如何用 VB 写 TabControl
: 2. 当我们 lay 一个 Control 到一个具有 ControlContainer 的使用者控制项时, 如何
: 知道我们 lay 进去的控制项也是具有 Container 的特性呢? 例如: Frame, PictureBox 等...

: 第一个问题在四百行以内的程式码就可以解出来, 只要有对策, 一天之内就可以解决
: 第二个问题其实也只是一种顿悟, 五分钟之内就可以解决这问题

: 想先看看大家的反应如何, 再决定要不要 Publish 我的网页, 都是一些超级难的问题集合, 如果
: 大家没兴趣我也只好藏诸名山了.......啊呀! cww 兄你一定要支持我!

1. 在 VB 3.0 时, 没有 TabControl, 所以我自己写, 用 Picture 物件, 透过 ZOrder (也可以透过 Visible) 做出 Tab 切换的效果, 现在在 vb6.0 以上如果自己要做 TabControl 我想我大概再配合 Load Object Array 动态产生 Tab 再加上绘出线条, ZOrder 或 Visible 控制, 大概可以在四百行以内完成.

2. 这个问题有些难(但没什么用!), 我会用偷懒的方法解决, 我先放一个物件(随便如: CommandButton), 加上 On Error Resume Next, 然后 Set Command1.Container = 要检查的物件, 再判断 Err.Number 是否大于 0 即可.

不晓得我的回答你是否满意?

Follow Ups: