精华
VB编程技巧之接口处理
在编写html解析程序的时候,我们会遇到遍历节点的问题。
我们基于HtmlDocument这个类的实例对象dom
我们给dom.body.innerHTML赋值后,就可以开始获取解析的结果了。
我们执行:
Dim o
set o = dom.childNodes
发现得到的o的类型是:DispDOMChildrenCollection
我们想在定义o的时候,标明类型,这样我们就可以使用"o."来触发 ...
精华
【推荐】VB6的自动化测试
http://comunit.sourceforge.net/
我曾经一直以为单元测试不会眷顾VB6这种老掉牙的东西,不过事实证明还是会的。
闲话少说,如何用它?
1、打开上面的网站,下载这个工具
2、安装它
3、正常打开VB,在新建工程的时候选择“ComUnit Test Project”
4、开始写测试
有任何问题,欢迎留言。
如图是单元测试的效果图
...
分享GDI+实现划线除锯齿
https://github.com/greatbody/vb6-gdiplus-demo
代码在GitHub中。
一些体会
使用gdi的第一步就是GdiplusStartup,结束了所有的绘图,最后一步才是GdiplusShutdown
如果在中间创建了Pen,没有delete Pen就直接GdiplusShutdown,会导致VB崩溃
推荐使用类来封装操作,这样可以确保操作隔离,逻辑隔离,而且删除资源(例如P ...
分享:VB6如何判断数组是否初始化
破烂玩意:开源自己写的一堆库水货的很
https://gitee.com/greatbody-vb6/vb6-classes
自己写的一堆库,水货的很,欢迎吐槽。
无须PictureBox的全API截屏代码
使用方式
1、复制以上代码
2、VB6中创建一个类,删除默认的代码
3、以刚才复制的代码粘贴到新建的类中,将类命名为CScreenCliper
4、代码用法
精华
VB绘制带箭头直线的代码
VB绘制带箭头直线的代码
我们在绘图时常常需要画带箭头的直线,以前我在自编的程序上画箭头时,都是先画一条直线,然后在线端点的两边各画一条短斜线,这样不但麻烦,而且画出来的箭头不标准,不好看。于是我就决定在程序中增加画箭头的代码。
新建一个窗体,上面只放置一个Line控件。代码如下:
Option Explicit ...
【原创】获取本机已登录QQ号
经过研究,发现现在腾讯已经不使用插件来获取已登录的QQ进行快速登录了,那么是怎么做的呢?
经过研究,发现腾讯是通过一个本地服务器提供服务:
构造一个如下的请求:
就会返回本地的已登录QQ信息:
如此,可以通过VB本地构造HTTP请求,直接获取到已登录的QQ。而且可以获取Session哦!
本贴经过实际VB编码验证通过。
...
新人帖
VB6自定义类型的特性
自定义类型,就是我们常见的 Type 定义的类型。可以帮助我们有效的组织数据,而不需要创建大量的类。
VB6中的 Type 定义的自定义类型,类似于 C 语言中的 typedef
如下图所示,我们的 ABC 就是使用 Type 定义的一个自定义类型。
自定义类型可以标记为Private 或 Public。但要注意,在私有模块中,例如 form 的代码中,我 ...
新人帖
VB自动绘制直线端点垂直线段的代码
我们绘图时常常需要在直线的端点自动绘制垂直线段(以下简称端线),这事看起来简单,编起程来竟然还有点复杂,经过一天的冥思苦想和反复实验,终于获得成功!
新建一个窗体,上面只放置一个Line控件。代码如下:
Option Explicit
Dim editX As Single '画线时鼠标的初始X坐标
Dim editY As Single '画线时 ...
新人帖
超级模仿Windows画图工具
发个超级模仿Windows画图工具源码。