摘要：
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#语法不区分大小... 阅读全文