这是以前指导过我的一个专家给我的代码，发出来给大家分享一下。作用和用法请查看代码里的注释。 　　这是以前指导过我的一个专家给我的代码，发出来给大家分享一下。作用和用法请查看代码里的注释。 　　[vb]viewplaincopyprint? 　　'*******************************************************************************************************************************