[第21期]自定义菜单类

qee用

答题方式：
答案请发送至qeeyong@126.com，邮件主题为“21期VBA竞赛题答案”，并写明自己的论坛ID，然后跟帖占位(内容为“答案已发送”，不得写与答案有关的内容)，答题截止后，由版主将会员答案上传。

agstick

写了两个，一个是api写的，但与演示效果有点差别，

另一个是用label控件模拟的，但mousemove事件太难处理了，没完成，不知题意有没理解错误。

QUOTE:

使用了标准模块和API菜单函数，不符合“自定义类”题意。另一个是用label控件模拟，符合题意，但没有完成。谢谢参与。         --qee用

[此贴子已经被qee用于2007-3-23 10:33:16编辑过]

joforn

    答案已经发送，请版主确认。[em45]

    断断续续做了两天，终于做完了…………

    刚开始想的时候觉得应该很简单，可是做的时候才发现VBA的控件、类和VB中的不太一样，用VB很容易做到的功能VBA就是没办法实现，就是在运行模式中想改变窗体大小都不行…………不过还是做完了，呵，就是有点不太好看。

QUOTE:

构思精巧,不错的菜单!        --qee用

[此贴子已经被qee用于2007-4-21 20:32:20编辑过]

yuanzhuping

今天做了个窗体菜单发在VBA版，Taller版主说这有道题，介绍过来看看. 请qee用兄指点下。

yuanzhuping兄设计精巧，耐人品味。--qee用

[此贴子已经被qee用于2007-6-21 23:54:44编辑过]

willin2000

这题和Andy Pope的这个比较类似,可以参考一下:

http://www.andypope.info/vba/colourdropdown.htm

qee用

不好意思，当初制作这道题的时候，因为急着录制效果图，代码也没加注释。到规定总结的时候正好有事，一段时间上不了论坛，就放下来了，谁知越放越懒，后来想找个时间写个总结，又总是有借口。光发个答案上来意义不大，但现在只能先把那个没有注释的代码（好容易找出来了[em04]）发上来。这道题其实不难。说难是因为朋友们只注重了技巧而忽略了思想。这道题的本意不是技巧，而是类的设计思想。等找时间再和大家细聊。

yecdx

学习.........................

bmdsjxyw

刚好想学习这方面的，谢谢分享

minjiwei

用到了，谢谢！

ypfw

好复杂的赶脚