2009年04月_lyserver

12月 11月 10月 09月 08月 07月 06月 05月 04月

原创用鼠标实现屏幕绘图

一般说来，在屏幕上绘图，许多朋友首先想到的是先抓取屏幕图形到窗口，然后在窗口中进行绘图，这种思路最大的缺点是，当窗口切换时，会出现明显的闪烁现象（因为屏幕抓图和应用程序窗口再置顶这些操作比较费时），有没有更好的解决办法，从而实现更快捷的屏幕绘图呢？其实，既然窗口支持半透明，为什么不利用此特点，创建一个置顶的接近完全透明的窗口，然后再在此窗口内绘图呢？为此，我写下了这个代码，经测

2009-04-28 00:43:00 2898 1

转载转贴：白盒测试中的六种覆盖方法

http://www.csai.cn　作者：谷剑芳　来源：希赛网　2006年6月8日　发表评论　进入社区　　摘要：白盒测试作为测试人员常用的一种测试方法，越来越受到测试工程师的重视。白盒测试并不是简单的按照代码设计用例，而是需要根据不同的测试需求，结合不同的测试对象，使用适合的方法进行测试。因为对于不同复杂度的代码逻辑，可以衍生出许多种执行路径，只有适当的测试方法，才能帮助我们从代码的迷

2009-04-25 13:35:00 1312

原创 VB判断指定的WORD文档是否已被打开

判断指定的WORD文档是否被打开的函数代码如下： Function WordDocIsOpen(ByVal strDocName As String) As Boolean Dim objWordApp As Object Dim objWordDoc As Object On Error Resume Next 此句不能少

2009-04-24 11:49:00 5202 1

原创 VB快速查找大型文件中包含的字符串

关于查找大型文件中包含的字符串，一般都把文件内容读入到内存，然后在内存里进行比较，却不知这种办法有一个致命的弱点，那就是由于大量的内存申请和释放导致的内存颠簸，会使系统性能下降，严重影响了查找的速度。特别是在递归中对多个文件进行查找时，这个问题会更加突出，有时甚至会导致VB程序挂掉。为避免这种情况，同时加快大型文件中字符串的查找速度，俺基于内存影射文件和VB模拟指针技术，编写了一个通用字符

2009-04-24 11:23:00 11064 12

原创在VB中如何让背景图片铺满整个MDIForm

在VB中，如何让背景图片铺满整个Form是一件不难的事，网上也很许多现成的代码，在回答一个csdn网友的问题时，我就写了一段这样的代码： Private Sub Form_Paint() Dim i As Long, j As Long, w As Long, h As Long Me.ScaleMode = vbPixels Me.Im

2009-04-22 20:12:00 8795 3

原创用VB编写的一个可在屏幕上移动的十字架

前几天一位朋友问如何绘制一个可在屏幕上移动的十字架，俺编写了一个，后来又有朋友问到这个问题，故把代码贴了出来，供大家指正：* ****************************************** ** 程序说明：一个可在屏幕上拖动的十字架 ** 作者：lyserver ** ****

2009-04-22 17:10:00 2840

原创 VB多用户Winsock控件通讯实例

有一位CSDN的朋友不明白如何利用Winsock控件进行多用户之间的网络通讯，于是俺写了一个，希望对有此方面需要的朋友有所帮助！本代码可以同时支持多个客户端的连接、识别和通讯，主要思路是在连接成功后，由客户主动发送一个用户名，服务器端以此用户名对客户进行区分，为防止同名客户，服务器端在用户名后加了一个后缀。由于写得匆忙，难免有失误，恳请指正！服务器代码如下：Op

2009-04-22 12:43:00 8268 5

原创获得VB数组的维数

在VB中如何获得数组维数，本来是一个简单的问题，但还是有朋友不断问起，为了省事，于是把有关代码片断贴了出来，具体实现过程如下： Option ExplicitPrivate Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, _ Source As An

2009-04-20 15:43:00 4386 1

原创儿子的造句题

今天下午我躺着沙发上看报纸，老婆在身旁检查儿子的作业，其中有两道造句题，老婆念着念着，忍不住笑了起来，我也笑得不行，为作纪念，现把句子抄了下来：一、全国大地的每一个所有的地方都有许多人。二、假山上有许多水，还在那儿玩。

2009-04-16 18:11:00 1056

原创 VB如何快带比较两幅位图

虽然VB可以使用Point函数或API函数GetPiexl获得像素颜色，但速度较慢，同时，CSDN论坛里有几个朋友提出了图像比较的问题，为此，写了以下代码，希望能给有此需要的朋友一些启发：Option Explicit* ************************************************************** ** 程序名称：for

2009-04-16 11:08:00 3897

原创用HTA编写简单的应用程序

好久没有写新文章了，前几天刚好用HTA帮一个写了一个简单的投票辅助程序，能够自动地刷新IP和跳转投票页面，感兴趣的朋友可以看一下。由于程序在应用时需要作一些未知的现场调整，而朋友机器上又没有编程语言，所以不想采用编译型代码，最初打算用VBS的，可是VBS里事件控制比较麻烦，于是用了HTA。HTA是HTML APPLICATION的缩写，出现有好几年了，一直没有真正用它写过什么程序，没想到这

2009-04-02 17:12:00 3013