自定义function很大，用了很多if,编译说过程太大怎么办？！

Question

因为程序中有很多控制量，每个的值改变了，都会影响最后的画图效果，所以控制量的组合数很多，也就是状态数有很多，我的自定义函数中用了很多if...else...end和select case,结果程序一执行到这个函数就说：  complie error:  procedure too large!
请教高手我这个问题该怎么解决呢？   谢谢了！！！！！！！！！

Answer 1

分开控制，分开。。或者用TYPE吧要么嵌套把判断分开

Answer 2

很多if你用select case吧

Answer 3

楼主不要干傻事。就是少用一个线程，或少用一个进程，或优化sleep,timer，或…………都能节省系统资源，拆成更小的过程不是难事，你的程序是面向对象的，不是面向过程的而且拆成若干个小的函数，性能会受点影响，但刚刚说到的节省资源方法用一个就全省下来了。
ps 不能为了省钱不给工人开工资吧，浪费大了编程序切忌钻死牛角尖

Answer 4

谢谢各位的建议！问题已经解决了。我就是把那个1600行的过程，根据判断条件又分成了若干个子过程，这样在调用程序中多用了两三个IF...ELSE...
现在问题应经解决了，可能VB过程的IF...ELSE...在这里面还有SELECT CASE... END SELECT的嵌套不能超过6层，4层IF...ELSE...在加两层SELECT CASE... END SELECT
这个问题如果大家将来遇到了，可以试验去做。我现在认为不能嵌套过多VB的问题吧。