04 2016 档案

摘要:Private Sub Form_Load() Picture1.OLEDragMode = 1 Text1.OLEDropMode = 1 End Sub Private Sub Picture1_OLEStartDrag(Data As DataObject, AllowedEffects As Long) AllowedEffects = 1 Data.Clear Data.SetDat... 阅读全文
posted @ 2016-04-23 01:53 一个码农的蹉跎岁月 阅读(288) 评论(0) 推荐(0)
摘要:上面只是显示出来查看,如果要文件操作,也可以: 阅读全文
posted @ 2016-04-22 14:50 一个码农的蹉跎岁月 阅读(2351) 评论(0) 推荐(0)
摘要:根据网络资料整改,来源未知,已调试通过. 测试代码: 阅读全文
posted @ 2016-04-12 05:28 一个码农的蹉跎岁月 阅读(6480) 评论(0) 推荐(1)
摘要:在进行十六进制字符串转换为byte()的时候,比网络常见的下面这种代码快一倍以上,以空间换时间吧... 直接下面完整代码,不解释了: 阅读全文
posted @ 2016-04-12 04:46 一个码农的蹉跎岁月 阅读(7706) 评论(0) 推荐(0)
摘要:算法图示: 运行效果: 详细代码: 阅读全文
posted @ 2016-04-07 04:10 一个码农的蹉跎岁月 阅读(1060) 评论(0) 推荐(0)
摘要:如上图,当进行连续判断的时候,即使第一个已经不符合条件了,后面的依然会计算.这点一定要记住,除非你所有的函数都有必要执行,否则会导致效率降低. 减代码不一定能提高效率,对于IIF和连续判断写法,貌似很多人都不知道funcA,funcB,funcC都会执行 代码如下,有兴趣的可以去试试 or 是否也像 阅读全文
posted @ 2016-04-02 19:00 一个码农的蹉跎岁月 阅读(398) 评论(0) 推荐(0)