摘要：
工作中免不了需要为自己的程序添加日志，我也从网上扒拉了一个老外写的模块，修改修改了下，凑合用吧。 1 Option Explicit 2 '************************************** 3 ' 模块名称: AppendToLog 通过API写入日志 4 '******... 阅读全文
摘要：
平常搞数据库操作多了就想把经常用的内容放在一起，我也懒，在一本书里的工程例子挑了一个bas，修修改改，凑合这用吧。 1 Public strCnn As String '数据库连接字符串 2 Public AdoCnn As ADODB.Connection '数据库连接 3 Public IsC... 阅读全文
摘要：
我用vs2005较多，但网上找的代码经常是08 10 或者2012的，总结了以下技巧可以打开工程比较小巧的高版本代码。用记事本打开解决方案文件“解决方案名.sln”，然后修改最上面两行为如下代码：Microsoft Visual Studio Solution File, Format Versio... 阅读全文
摘要：
1 //Delphi 函数-IIF 2 // 实例-ChkValue := IIF(TCheckBox(tsPzJz.Controls[i]).Checked, '1', '0');3 function IIF(lExp: boolean; vExp1, vExp2: variant): varia... 阅读全文
摘要：
1 '很简单的配置密码验证提示 2 3 Dim add As String 4 add = Trim(InputBox("请输入配置密码", "报表配置")) 5 If add = "" Then 6 MsgBox "密码不能为空，请重新输入！", 64... 阅读全文
摘要：
1 '方法1： 2 Dim str As String 3 str = "12345678" 4 MsgBox(UBound(Split(str, "3"))) 5 6 '方法2： 7 Dim n&, j& 8 ... 阅读全文
摘要：
1 //跑马灯 2 procedure Tfr_Main.tme_TitleTimer(Sender: TObject); 3 var 4 strTrim: Widestring; 5 begin 6 strTrim := copy(strScroll, 1, 1); // 获取第1个字符... 阅读全文
摘要：
真的是很简单，执行结果：Computer:不平凡总在于坚持 User:Administrator IP:192.168.0.111 '获取计算机名、用户名、本机ip Dim LocalInfo As String Dim strLocalIP As String Dim winIP As O... 阅读全文
摘要：
在vb6中要显示数据虽然有datagrid、msflexgrid、mshflexgrid、vsflexgrid、True dbgrid7.0 可选，不过我在工作中用的最多的还是MSHFlexGrid，以下我会常分享一些使用这个控件的技巧、方法代码，保证拿了就可以用。1、使用MSHFlexGrid的F... 阅读全文
摘要：
在医院做图像处理时碰到双面扫描仪，需要将扫描到的2张图像分割为一张并打印。在分割图像的过程中总是不得法，后来虽然有CBM666的指导，但给的方法也还是不太方便。无意中在翻一本vb书的时候看到了一个使用Microsoft Picture Clip控件的例子，想要分割图像那是超级简单。分享以下代码，保证... 阅读全文
摘要：
在一次做图片打印的时候，对位置的调整老是不得法，后来通过CBM666老师的帮助才解决问题，分享以下他给的帮助。'PaintPicture pic, destX, destY, destWidth, destHeight, scrX, scrY, scrWidth, scrHeight'其中Pic:为... 阅读全文
摘要：
工作中难免在网上看到一段不错的代码，希望能够拿来测试一次，为了避免每次测试都要新建一个空白测试程序，索性预先建立好，要用的时候复制一遍，然后打开直接粘贴需要测试的代码进行测试。 阅读全文
摘要：
因为工作原因，自学会了vb后陆续接触了其它语言，在工作中经常需要与各家使用不同语言公司的开发人员做程序对接，初期特别需要一个各种语法的对照比，翻看了网络上已有高人做了整理，自己在他基础上也整理了一下，摘抄如下（最后附上原作，网上也可以找到）：类别Vb6 & Vb.NetDelphiC#语法不区分大小... 阅读全文