northwolves[狼行天下] 的专栏

无知无惧,无欲无敌。

能否判断动态数组有没有被分配过?

       动态数组在VB语言中常能起到出奇制胜的作用。但数组有没有被重新定义或释放,用“is empty”,“is null”,“=" "”等方法都不起作用。所以判断时一般采用侦别错误消息(ON ERROR )的方法。下面给出一个非错误侦别的代码,判断动态字符串数组的分配情...

2004-02-05 00:49:00

阅读数:910

评论数:0

API 更改系统菜单条目

一个运用API 更改系统菜单,复制系统菜单的例子。(需要注意的是:如果要响应菜单项的单击事件,可能要用到钩子函数和更多的代码)Option ExplicitPrivate Declare Function TrackPopupMenu Lib "user32" (ByVal h...

2004-02-02 23:31:00

阅读数:1328

评论数:0

递归与组合

       福利彩票和体育彩票近两年比较火暴,相应在VB论坛上大家讨论也较多。其实选择彩票与集合选择子集相同道理。下面给出一种VB的递归算法(虽然明知存入数组会加快运算速度,但最终也没能满意地实现,请大家多多指教。另外,效率确实不高)Option ExplicitPrivate Sub Comm...

2004-02-01 23:19:00

阅读数:1279

评论数:1

菜单字体颜色可以更改吗?

     一个简单的API语句可以实现更改菜单字体颜色:Private Declare Function SetSysColors Lib "user32" (ByVal nChanges As Long, lpSysColor As Long, lpColorvalues A...

2004-02-01 23:16:00

阅读数:1230

评论数:0

递归方法巧解不定方程

       多元一次方程往往采用循环求解。笔者在与网友们讨论一个问题(http://expert.csdn.net/Expert/topic/2607/2607772.xml?temp=.7494928)过程中,琢磨出一种算法,采用递归进行多元一次方程的求解。并将解分为整数解和 非负整数解两种情...

2004-02-01 23:15:00

阅读数:2384

评论数:0

提示
确定要删除当前文章?
取消 删除
关闭
关闭