请教下有什么办法把下面bas模块中代码挪到类模块中? [问题点数:400分,结帖人sysdzw]

一键查看最优答案

确认一键查看最优答案?
本功能为VIP专享,开通VIP获取答案速率将提升10倍哦!
Bbs7
本版专家分:29029
版主
Blank
GitHub 绑定GitHub第三方账户获取
Blank
黄花 2011年10月 VB大版内专家分月排行榜第二
2011年3月 VB大版内专家分月排行榜第二
2011年2月 VB大版内专家分月排行榜第二
Blank
蓝花 2011年5月 VB大版内专家分月排行榜第三
2011年4月 VB大版内专家分月排行榜第三
结帖率 95.2%
Bbs9
本版专家分:51462
版主
Blank
签到新秀 累计签到获取,不积跬步,无以至千里,继续坚持!
Blank
名人 2014年 荣获名人称号
2013年 荣获名人称号
2012年 荣获名人称号
Blank
状元 2013年 总版技术专家分年内排行榜第一
Blank
探花 2014年 总版技术专家分年内排行榜第三
Bbs9
本版专家分:51462
版主
Blank
签到新秀 累计签到获取,不积跬步,无以至千里,继续坚持!
Blank
名人 2014年 荣获名人称号
2013年 荣获名人称号
2012年 荣获名人称号
Blank
状元 2013年 总版技术专家分年内排行榜第一
Blank
探花 2014年 总版技术专家分年内排行榜第三
Bbs9
本版专家分:59203
Blank
红花 2019年1月 VB大版内专家分月排行榜第一
2018年12月 VB大版内专家分月排行榜第一
2018年11月 VB大版内专家分月排行榜第一
2018年10月 VB大版内专家分月排行榜第一
2018年7月 VB大版内专家分月排行榜第一
2018年6月 VB大版内专家分月排行榜第一
2018年5月 VB大版内专家分月排行榜第一
2018年4月 VB大版内专家分月排行榜第一
2018年3月 VB大版内专家分月排行榜第一
2018年2月 VB大版内专家分月排行榜第一
2018年1月 VB大版内专家分月排行榜第一
2017年9月 VB大版内专家分月排行榜第一
2017年8月 VB大版内专家分月排行榜第一
2017年7月 VB大版内专家分月排行榜第一
2017年6月 VB大版内专家分月排行榜第一
2017年5月 VB大版内专家分月排行榜第一
2017年4月 VB大版内专家分月排行榜第一
2016年11月 VB大版内专家分月排行榜第一
2016年8月 VB大版内专家分月排行榜第一
2016年7月 VB大版内专家分月排行榜第一
2013年12月 VB大版内专家分月排行榜第一
2013年10月 VB大版内专家分月排行榜第一
2013年9月 VB大版内专家分月排行榜第一
2008年5月 VB大版内专家分月排行榜第一
Blank
黄花 2017年12月 VB大版内专家分月排行榜第二
2017年11月 VB大版内专家分月排行榜第二
2017年3月 VB大版内专家分月排行榜第二
2016年12月 VB大版内专家分月排行榜第二
2016年10月 VB大版内专家分月排行榜第二
2013年11月 VB大版内专家分月排行榜第二
Blank
蓝花 2019年5月 VB大版内专家分月排行榜第三
2016年3月 VB大版内专家分月排行榜第三
2012年9月 VB大版内专家分月排行榜第三
Bbs7
本版专家分:29029
版主
Blank
GitHub 绑定GitHub第三方账户获取
Blank
黄花 2011年10月 VB大版内专家分月排行榜第二
2011年3月 VB大版内专家分月排行榜第二
2011年2月 VB大版内专家分月排行榜第二
Blank
蓝花 2011年5月 VB大版内专家分月排行榜第三
2011年4月 VB大版内专家分月排行榜第三
Bbs9
本版专家分:51462
版主
Blank
签到新秀 累计签到获取,不积跬步,无以至千里,继续坚持!
Blank
名人 2014年 荣获名人称号
2013年 荣获名人称号
2012年 荣获名人称号
Blank
状元 2013年 总版技术专家分年内排行榜第一
Blank
探花 2014年 总版技术专家分年内排行榜第三
Bbs9
本版专家分:51462
版主
Blank
签到新秀 累计签到获取,不积跬步,无以至千里,继续坚持!
Blank
名人 2014年 荣获名人称号
2013年 荣获名人称号
2012年 荣获名人称号
Blank
状元 2013年 总版技术专家分年内排行榜第一
Blank
探花 2014年 总版技术专家分年内排行榜第三
Bbs7
本版专家分:29029
版主
Blank
GitHub 绑定GitHub第三方账户获取
Blank
黄花 2011年10月 VB大版内专家分月排行榜第二
2011年3月 VB大版内专家分月排行榜第二
2011年2月 VB大版内专家分月排行榜第二
Blank
蓝花 2011年5月 VB大版内专家分月排行榜第三
2011年4月 VB大版内专家分月排行榜第三
Bbs9
本版专家分:59203
Blank
红花 2019年1月 VB大版内专家分月排行榜第一
2018年12月 VB大版内专家分月排行榜第一
2018年11月 VB大版内专家分月排行榜第一
2018年10月 VB大版内专家分月排行榜第一
2018年7月 VB大版内专家分月排行榜第一
2018年6月 VB大版内专家分月排行榜第一
2018年5月 VB大版内专家分月排行榜第一
2018年4月 VB大版内专家分月排行榜第一
2018年3月 VB大版内专家分月排行榜第一
2018年2月 VB大版内专家分月排行榜第一
2018年1月 VB大版内专家分月排行榜第一
2017年9月 VB大版内专家分月排行榜第一
2017年8月 VB大版内专家分月排行榜第一
2017年7月 VB大版内专家分月排行榜第一
2017年6月 VB大版内专家分月排行榜第一
2017年5月 VB大版内专家分月排行榜第一
2017年4月 VB大版内专家分月排行榜第一
2016年11月 VB大版内专家分月排行榜第一
2016年8月 VB大版内专家分月排行榜第一
2016年7月 VB大版内专家分月排行榜第一
2013年12月 VB大版内专家分月排行榜第一
2013年10月 VB大版内专家分月排行榜第一
2013年9月 VB大版内专家分月排行榜第一
2008年5月 VB大版内专家分月排行榜第一
Blank
黄花 2017年12月 VB大版内专家分月排行榜第二
2017年11月 VB大版内专家分月排行榜第二
2017年3月 VB大版内专家分月排行榜第二
2016年12月 VB大版内专家分月排行榜第二
2016年10月 VB大版内专家分月排行榜第二
2013年11月 VB大版内专家分月排行榜第二
Blank
蓝花 2019年5月 VB大版内专家分月排行榜第三
2016年3月 VB大版内专家分月排行榜第三
2012年9月 VB大版内专家分月排行榜第三
Bbs7
本版专家分:29029
版主
Blank
GitHub 绑定GitHub第三方账户获取
Blank
黄花 2011年10月 VB大版内专家分月排行榜第二
2011年3月 VB大版内专家分月排行榜第二
2011年2月 VB大版内专家分月排行榜第二
Blank
蓝花 2011年5月 VB大版内专家分月排行榜第三
2011年4月 VB大版内专家分月排行榜第三
Bbs9
本版专家分:51462
版主
Blank
签到新秀 累计签到获取,不积跬步,无以至千里,继续坚持!
Blank
名人 2014年 荣获名人称号
2013年 荣获名人称号
2012年 荣获名人称号
Blank
状元 2013年 总版技术专家分年内排行榜第一
Blank
探花 2014年 总版技术专家分年内排行榜第三
Bbs9
本版专家分:51462
版主
Blank
签到新秀 累计签到获取,不积跬步,无以至千里,继续坚持!
Blank
名人 2014年 荣获名人称号
2013年 荣获名人称号
2012年 荣获名人称号
Blank
状元 2013年 总版技术专家分年内排行榜第一
Blank
探花 2014年 总版技术专家分年内排行榜第三
Bbs7
本版专家分:29029
版主
Blank
GitHub 绑定GitHub第三方账户获取
Blank
黄花 2011年10月 VB大版内专家分月排行榜第二
2011年3月 VB大版内专家分月排行榜第二
2011年2月 VB大版内专家分月排行榜第二
Blank
蓝花 2011年5月 VB大版内专家分月排行榜第三
2011年4月 VB大版内专家分月排行榜第三
Bbs9
本版专家分:51462
版主
Blank
签到新秀 累计签到获取,不积跬步,无以至千里,继续坚持!
Blank
名人 2014年 荣获名人称号
2013年 荣获名人称号
2012年 荣获名人称号
Blank
状元 2013年 总版技术专家分年内排行榜第一
Blank
探花 2014年 总版技术专家分年内排行榜第三
Bbs9
本版专家分:51462
版主
Blank
签到新秀 累计签到获取,不积跬步,无以至千里,继续坚持!
Blank
名人 2014年 荣获名人称号
2013年 荣获名人称号
2012年 荣获名人称号
Blank
状元 2013年 总版技术专家分年内排行榜第一
Blank
探花 2014年 总版技术专家分年内排行榜第三
Bbs6
本版专家分:7167
Bbs7
本版专家分:29029
版主
Blank
GitHub 绑定GitHub第三方账户获取
Blank
黄花 2011年10月 VB大版内专家分月排行榜第二
2011年3月 VB大版内专家分月排行榜第二
2011年2月 VB大版内专家分月排行榜第二
Blank
蓝花 2011年5月 VB大版内专家分月排行榜第三
2011年4月 VB大版内专家分月排行榜第三
Bbs9
本版专家分:59203
Blank
红花 2019年1月 VB大版内专家分月排行榜第一
2018年12月 VB大版内专家分月排行榜第一
2018年11月 VB大版内专家分月排行榜第一
2018年10月 VB大版内专家分月排行榜第一
2018年7月 VB大版内专家分月排行榜第一
2018年6月 VB大版内专家分月排行榜第一
2018年5月 VB大版内专家分月排行榜第一
2018年4月 VB大版内专家分月排行榜第一
2018年3月 VB大版内专家分月排行榜第一
2018年2月 VB大版内专家分月排行榜第一
2018年1月 VB大版内专家分月排行榜第一
2017年9月 VB大版内专家分月排行榜第一
2017年8月 VB大版内专家分月排行榜第一
2017年7月 VB大版内专家分月排行榜第一
2017年6月 VB大版内专家分月排行榜第一
2017年5月 VB大版内专家分月排行榜第一
2017年4月 VB大版内专家分月排行榜第一
2016年11月 VB大版内专家分月排行榜第一
2016年8月 VB大版内专家分月排行榜第一
2016年7月 VB大版内专家分月排行榜第一
2013年12月 VB大版内专家分月排行榜第一
2013年10月 VB大版内专家分月排行榜第一
2013年9月 VB大版内专家分月排行榜第一
2008年5月 VB大版内专家分月排行榜第一
Blank
黄花 2017年12月 VB大版内专家分月排行榜第二
2017年11月 VB大版内专家分月排行榜第二
2017年3月 VB大版内专家分月排行榜第二
2016年12月 VB大版内专家分月排行榜第二
2016年10月 VB大版内专家分月排行榜第二
2013年11月 VB大版内专家分月排行榜第二
Blank
蓝花 2019年5月 VB大版内专家分月排行榜第三
2016年3月 VB大版内专家分月排行榜第三
2012年9月 VB大版内专家分月排行榜第三
Bbs9
本版专家分:51462
版主
Blank
签到新秀 累计签到获取,不积跬步,无以至千里,继续坚持!
Blank
名人 2014年 荣获名人称号
2013年 荣获名人称号
2012年 荣获名人称号
Blank
状元 2013年 总版技术专家分年内排行榜第一
Blank
探花 2014年 总版技术专家分年内排行榜第三
Bbs9
本版专家分:59203
Blank
红花 2019年1月 VB大版内专家分月排行榜第一
2018年12月 VB大版内专家分月排行榜第一
2018年11月 VB大版内专家分月排行榜第一
2018年10月 VB大版内专家分月排行榜第一
2018年7月 VB大版内专家分月排行榜第一
2018年6月 VB大版内专家分月排行榜第一
2018年5月 VB大版内专家分月排行榜第一
2018年4月 VB大版内专家分月排行榜第一
2018年3月 VB大版内专家分月排行榜第一
2018年2月 VB大版内专家分月排行榜第一
2018年1月 VB大版内专家分月排行榜第一
2017年9月 VB大版内专家分月排行榜第一
2017年8月 VB大版内专家分月排行榜第一
2017年7月 VB大版内专家分月排行榜第一
2017年6月 VB大版内专家分月排行榜第一
2017年5月 VB大版内专家分月排行榜第一
2017年4月 VB大版内专家分月排行榜第一
2016年11月 VB大版内专家分月排行榜第一
2016年8月 VB大版内专家分月排行榜第一
2016年7月 VB大版内专家分月排行榜第一
2013年12月 VB大版内专家分月排行榜第一
2013年10月 VB大版内专家分月排行榜第一
2013年9月 VB大版内专家分月排行榜第一
2008年5月 VB大版内专家分月排行榜第一
Blank
黄花 2017年12月 VB大版内专家分月排行榜第二
2017年11月 VB大版内专家分月排行榜第二
2017年3月 VB大版内专家分月排行榜第二
2016年12月 VB大版内专家分月排行榜第二
2016年10月 VB大版内专家分月排行榜第二
2013年11月 VB大版内专家分月排行榜第二
Blank
蓝花 2019年5月 VB大版内专家分月排行榜第三
2016年3月 VB大版内专家分月排行榜第三
2012年9月 VB大版内专家分月排行榜第三
Bbs1
本版专家分:60
Bbs9
本版专家分:59203
Blank
红花 2019年1月 VB大版内专家分月排行榜第一
2018年12月 VB大版内专家分月排行榜第一
2018年11月 VB大版内专家分月排行榜第一
2018年10月 VB大版内专家分月排行榜第一
2018年7月 VB大版内专家分月排行榜第一
2018年6月 VB大版内专家分月排行榜第一
2018年5月 VB大版内专家分月排行榜第一
2018年4月 VB大版内专家分月排行榜第一
2018年3月 VB大版内专家分月排行榜第一
2018年2月 VB大版内专家分月排行榜第一
2018年1月 VB大版内专家分月排行榜第一
2017年9月 VB大版内专家分月排行榜第一
2017年8月 VB大版内专家分月排行榜第一
2017年7月 VB大版内专家分月排行榜第一
2017年6月 VB大版内专家分月排行榜第一
2017年5月 VB大版内专家分月排行榜第一
2017年4月 VB大版内专家分月排行榜第一
2016年11月 VB大版内专家分月排行榜第一
2016年8月 VB大版内专家分月排行榜第一
2016年7月 VB大版内专家分月排行榜第一
2013年12月 VB大版内专家分月排行榜第一
2013年10月 VB大版内专家分月排行榜第一
2013年9月 VB大版内专家分月排行榜第一
2008年5月 VB大版内专家分月排行榜第一
Blank
黄花 2017年12月 VB大版内专家分月排行榜第二
2017年11月 VB大版内专家分月排行榜第二
2017年3月 VB大版内专家分月排行榜第二
2016年12月 VB大版内专家分月排行榜第二
2016年10月 VB大版内专家分月排行榜第二
2013年11月 VB大版内专家分月排行榜第二
Blank
蓝花 2019年5月 VB大版内专家分月排行榜第三
2016年3月 VB大版内专家分月排行榜第三
2012年9月 VB大版内专家分月排行榜第三
Bbs9
本版专家分:59203
Blank
红花 2019年1月 VB大版内专家分月排行榜第一
2018年12月 VB大版内专家分月排行榜第一
2018年11月 VB大版内专家分月排行榜第一
2018年10月 VB大版内专家分月排行榜第一
2018年7月 VB大版内专家分月排行榜第一
2018年6月 VB大版内专家分月排行榜第一
2018年5月 VB大版内专家分月排行榜第一
2018年4月 VB大版内专家分月排行榜第一
2018年3月 VB大版内专家分月排行榜第一
2018年2月 VB大版内专家分月排行榜第一
2018年1月 VB大版内专家分月排行榜第一
2017年9月 VB大版内专家分月排行榜第一
2017年8月 VB大版内专家分月排行榜第一
2017年7月 VB大版内专家分月排行榜第一
2017年6月 VB大版内专家分月排行榜第一
2017年5月 VB大版内专家分月排行榜第一
2017年4月 VB大版内专家分月排行榜第一
2016年11月 VB大版内专家分月排行榜第一
2016年8月 VB大版内专家分月排行榜第一
2016年7月 VB大版内专家分月排行榜第一
2013年12月 VB大版内专家分月排行榜第一
2013年10月 VB大版内专家分月排行榜第一
2013年9月 VB大版内专家分月排行榜第一
2008年5月 VB大版内专家分月排行榜第一
Blank
黄花 2017年12月 VB大版内专家分月排行榜第二
2017年11月 VB大版内专家分月排行榜第二
2017年3月 VB大版内专家分月排行榜第二
2016年12月 VB大版内专家分月排行榜第二
2016年10月 VB大版内专家分月排行榜第二
2013年11月 VB大版内专家分月排行榜第二
Blank
蓝花 2019年5月 VB大版内专家分月排行榜第三
2016年3月 VB大版内专家分月排行榜第三
2012年9月 VB大版内专家分月排行榜第三
Bbs7
本版专家分:29029
版主
Blank
GitHub 绑定GitHub第三方账户获取
Blank
黄花 2011年10月 VB大版内专家分月排行榜第二
2011年3月 VB大版内专家分月排行榜第二
2011年2月 VB大版内专家分月排行榜第二
Blank
蓝花 2011年5月 VB大版内专家分月排行榜第三
2011年4月 VB大版内专家分月排行榜第三
Bbs7
本版专家分:29029
版主
Blank
GitHub 绑定GitHub第三方账户获取
Blank
黄花 2011年10月 VB大版内专家分月排行榜第二
2011年3月 VB大版内专家分月排行榜第二
2011年2月 VB大版内专家分月排行榜第二
Blank
蓝花 2011年5月 VB大版内专家分月排行榜第三
2011年4月 VB大版内专家分月排行榜第三
Bbs9
本版专家分:59203
Blank
红花 2019年1月 VB大版内专家分月排行榜第一
2018年12月 VB大版内专家分月排行榜第一
2018年11月 VB大版内专家分月排行榜第一
2018年10月 VB大版内专家分月排行榜第一
2018年7月 VB大版内专家分月排行榜第一
2018年6月 VB大版内专家分月排行榜第一
2018年5月 VB大版内专家分月排行榜第一
2018年4月 VB大版内专家分月排行榜第一
2018年3月 VB大版内专家分月排行榜第一
2018年2月 VB大版内专家分月排行榜第一
2018年1月 VB大版内专家分月排行榜第一
2017年9月 VB大版内专家分月排行榜第一
2017年8月 VB大版内专家分月排行榜第一
2017年7月 VB大版内专家分月排行榜第一
2017年6月 VB大版内专家分月排行榜第一
2017年5月 VB大版内专家分月排行榜第一
2017年4月 VB大版内专家分月排行榜第一
2016年11月 VB大版内专家分月排行榜第一
2016年8月 VB大版内专家分月排行榜第一
2016年7月 VB大版内专家分月排行榜第一
2013年12月 VB大版内专家分月排行榜第一
2013年10月 VB大版内专家分月排行榜第一
2013年9月 VB大版内专家分月排行榜第一
2008年5月 VB大版内专家分月排行榜第一
Blank
黄花 2017年12月 VB大版内专家分月排行榜第二
2017年11月 VB大版内专家分月排行榜第二
2017年3月 VB大版内专家分月排行榜第二
2016年12月 VB大版内专家分月排行榜第二
2016年10月 VB大版内专家分月排行榜第二
2013年11月 VB大版内专家分月排行榜第二
Blank
蓝花 2019年5月 VB大版内专家分月排行榜第三
2016年3月 VB大版内专家分月排行榜第三
2012年9月 VB大版内专家分月排行榜第三
Bbs9
本版专家分:51462
版主
Blank
签到新秀 累计签到获取,不积跬步,无以至千里,继续坚持!
Blank
名人 2014年 荣获名人称号
2013年 荣获名人称号
2012年 荣获名人称号
Blank
状元 2013年 总版技术专家分年内排行榜第一
Blank
探花 2014年 总版技术专家分年内排行榜第三