一个码农的蹉跎岁月

摘要： Option Explicit Private Type RGBTYPE R As Byte G As Byte B As Byte X As Byte End Type Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal y As Lon... 阅读全文

摘要： VB里面用WINSOCK进行一对多连接的TCP连接时,经常需要群发消息给所有已连接的客户端.代码类似如下: 运行上面的代码发现,有时只有最后一个WINSOCK的客户端收到了消息,其他都没有收到. PS:郁闷了好久,意外的发现当点击以下暂停,然后再点击运行,其他客户端又收到了消息... 网络上没有搜到 阅读全文

摘要： 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... 阅读全文

摘要： 上面只是显示出来查看,如果要文件操作,也可以: 阅读全文

摘要： 根据网络资料整改,来源未知,已调试通过. 测试代码: 阅读全文

摘要： 在进行十六进制字符串转换为byte()的时候,比网络常见的下面这种代码快一倍以上,以空间换时间吧... 直接下面完整代码,不解释了: 阅读全文

摘要： 算法图示: 运行效果: 详细代码: 阅读全文

摘要： 如上图,当进行连续判断的时候,即使第一个已经不符合条件了,后面的依然会计算.这点一定要记住,除非你所有的函数都有必要执行,否则会导致效率降低. 减代码不一定能提高效率,对于IIF和连续判断写法,貌似很多人都不知道funcA,funcB,funcC都会执行 代码如下,有兴趣的可以去试试 or 是否也像 阅读全文

摘要： 通过执行一段VBS代码来操控窗体内的控件 也可以使用AddObject方法添加自己的类,那么在动态VBS代码中也一样可以使用 在增加程序扩展性或是有脚本化需求的时候,这个方法还是不错的. >>>运行效果如下图<<< 阅读全文

摘要： 我自己就老是撞到这个墙...整理这个图才发现ACCESS的关键词从A~Y开头的都有,Z开头的没有. 以后命名就用"z"开头算了,绝对不会撞墙. 阅读全文