驽马十驾 才定不舍

iamlaosong文想做一个简单的延时函数，于是想到VB中Time函数和Timer函数，二者都可以做延时函数，但略有不同。Time是时间函数，取得是当前时间，如：15:16:14，和其它日期时间函数的内容差不多，如Now是获取系统当前日期和时间，如：2016-06-15 15:23:34；Time只是获取系统的时间部分，如：15:23:34，不显示当前日期；Date只是获得系统的日期部分，如：2...

iamlaosong评：VB6.0是1998年推出的，距今将近20年了，虽然其后推出了VB.NET，但因其难度大大增加，反而用到人不多，导致VB6一直在用，网上甚至有很多人在讨论如何在win10上面安装VB6。虽然很多人鄙视VB6，但存在即道理，够用就好，VB6自然有其过人之处。本人也经常用VB或者VBA做些小工具，VBA其实也是VB的一个翻版，所以有人说，只要Excel还在，VB就会在。下面是一...

iamlaosong文在用Excel的VBA连接数据库查询数据时往往会针对不同的数据采用不同的表头，笨办法是一个一个的给单元格赋值，这种办法在列数增加到几十个时就是恶梦了。聪明的办法是是将表头名称用空格（或其他符号）隔离后串在一起，然后赋给一个变量，再用split函数分离成一个数组，最后再用这个数组给单元格赋值，代码如下：

iamlaosong文做了一个邮件重量稽核工具，即在集散中心随机抽取一定量的邮件，进行重量复核并记录在案。工具本身没什么新技术，但用到的技术比较多，如Excel文件操作、INI文件的读取、串口通信、拍照、图像格式转换、网页抓取等。工具操作很简单，将邮件放到电子秤上，用扫描枪扫描条码后，计算机完成抓取实际重量、抓取收寄重量（根据邮件号码上网站抓取）、拍照（摄像头对准邮件和电子秤）、保存为JPG格式、增加图片链接、数据保存到Excel文件、显示本邮件的重量误差等一系列工作，然后换上新邮件重复上面的工作。

iamlaosong文经常会用到错误捕捉，防止程序意外中断。有三种捕捉方式：On Error GoTo 0表示禁止当前过程中任何已启动的错误处理程序，测试发现用-1居然也可以，和0效果相同。On Error Resume Next说明当一个运行时错误发生时，控件转到紧接着发生错误的语句之后的语句，并在此继续运行。访问对象时要使用这种形式而不使用 On Error GoTo。

iamlaosong文用VB编写一个小工具，用来抓取网页信息。正常情况下网址是固定的，但有时需要改变，作为一个小工具，做个配置文件吧，用起来就不方便，因为EXE文件还得拖个配置文件，所以就想到用命令行参数的方式，如果没有参数，就用默认网址，否则，怎使用命令行带的网址。VB获取命令行参数的函数是Command函数，使用起来很简单，即：CmdLine = Command()这样CmdL

作者：iamlaosong主要叙说一下StrConv 函数conversion参数最后两个值的含义和用途，并举例说明。1、语法StrConv(string, conversion, LCID)StrConv 函数的语法有下面的命名参数：部分 说明string 必要参数。要转换的字符串表达式。conversion 必要参数。Integer。其值的和

(1)vb打开Excel     用EXCEL对象读取EXCEL文件中数据.然后通过ADODB连接SQL进和导入    下面是EXCEL对象的详解1 前言     做为一种简捷、系统的 Windows应用程序开发工具，VB具有强大的数据处理功能，提供了多种数据访问方法，可以方便地存取Microsoft SQL Server、Oracle、XBase等多种

作者：iamlasong1、环境Visual Basic 6.0精简版，因为只做一些小工具，觉得这个已经够了。我觉得，编程语言、数据库等东西，不一定要用最新的，适合、够用就好，比如Win8都出来几年了，我们很多人还在用XP，日常办公，够用了。2、数组定义中发现的问题定义数组 Dim a(n) as type A是一个type型的数组，这个

作者：iamlasong一、编码规则 编码规则网上很多，为了文章的完整性，这里简单的叙述一下。Base64编码的思想是是采用64个基本的ASCII码字符对数据进行重新编码。它将需要编码的数据拆分成字节数组。以3个字节为一组。按顺序排列24 位数据，再把这24位数据分成4组，即每组6位。再在每组的的最高位前补两个0凑足一个字节。这样就把一个3字节为一组的数据重新编码成了4个字节。当所要...

作者：iamlaosong在程序中，对文本框中文本内容进行选择时，用SelStart、SelLength、SelText属性3个属性来标识用户选中的正文。这些属性没有列在属性窗口中，但在程序中可以使用这些属性。SelStart：选定正文的开始位置，第一个字符的位置是0。Selcength：选定正文长度。SelText：选定正文内容。设置了SelStarl和SelI~ength属

iamlaosong文写个小工具，想在Form_Unload事件中做些退出处理，结果发现，用End退出时，Form_Unload事件并不发生，无法执行其中的代码。点击窗体右上角的叉（关闭窗口）是会触发Form_Unload事件的，但是因为一些原因我关闭了右上角按钮的显示（属性ControlBox=False），怎么办呢？解决办法就是用unload me退出。End和Unload m

本程序用四个按钮实现对摄像头视频的监控、截图、录像，可以分别保存为图片文件和视频文件。保存的视频文件可以用媒体播放机（Windows Media Player）、 暴风影音等软件进行播放，轻松实现家庭录像制作。　　利用电脑配备的 USB 摄像头进行视频控制，要用到两个 API 函数：capCreateCaptureWindow 和 SendMessage。　　capCreateCaptur

iamlaosong文对不存在的串口进行操作会报错，如下图所示，那么是不是先检测一下再操作呢？Windows系统并没有提供什么检测功能，但是，可以对出错进行捕获，像上图中的8002代码，表示无效端口号，所以，用以下代码就可以检查你机器有几个COM口？哪些COM口可用？检测的原理是依次打开COM端口，如果不出错，则COM端口可用，否则，根据错误代码判断是被占用还是不存在。

作者：iamlaosong以前曾做个稽核重量的称重拍照软件，现在有部门要使用，说是用不起来，只好再捡起来试用一下。试用发现Win7环境下串口无法使用（Error 8015---Could Not Set Comm State…）。难道是电脑串口坏了？为确定问题所在，电脑恢复了XP镜像，软件使用没有问题，说明串口是好的。怀疑是串口驱动问题（虽然设备管理中提示设备正常），恢复成Win7系统，也...