很无聊的结果

[ 本帖最后由 益西翁登 于 2013-2-11 06:16 编辑 ]

代码简单没那么复杂:
Private Sub Form_Load()
Combo1.Clear
Combo1.AddItem "挨星下卦"
Combo1.AddItem "挨星替卦"
Combo1.AddItem "下拉3"
Combo1.ListIndex = 0 '(这句可加可不加、作用自己试)
Combo2.AddItem "下拉1"
Combo2.AddItem "下拉2"
Combo2.AddItem "下拉3"
'同理-------------
Combo3.AddItem "下拉1"
Combo3.AddItem "下拉2"
Combo3.AddItem "下拉3"
'同理-------------
End Sub
请问你这是做的什么软件?是算命软件吗?

[ 本帖最后由 曙光电子 于 2013-2-9 13:05 编辑 ]

谢谢！好奇，弄个飞星工具；
按楼上老师指导，改了之后，还是不执行，总是排一个固定的八运子山午向盘，其余大运和其余山向的都排不出来
也就是说跟没改之前效果是一样的，谁会弄加我的QQ452105239帮我修收一下，先谢了！

[ 本帖最后由 益西翁登 于 2013-2-11 06:17 编辑 ]

做好了把源发到论坛上大家看看!

gm是什么？

gm 是挨星下卦或挨星替卦

有两个Combo1_Change()。
貌似不用这么复杂即可达到目的

其实就是combo1、combo2、comho3的内容关联随着改变问题，作者好象不愿拿出源码？

这个程序的源码我一年前就打包发上来过，下载的人不少，但后来不了了之，至今没见有人发布正确结果，时隔一年我又想起此事，发上来看看有会弄的没有？

话说，应该是点击 _click() 事件吧。