博客园 - 不平凡总在于坚持!
uuid:24b78886-0ed1-41c2-8670-e3f31dcf42c4;id=184020
2017-12-14T09:09:03Z
不平凡总在于坚持!
https://www.cnblogs.com/yhsc/
feed.cnblogs.com
https://www.cnblogs.com/yhsc/p/4716731.html
VB 核心编程及通用模块开发 笔记1 - 不平凡总在于坚持!
前言:学习任何编程语言、编程工具的目的不外乎解决生活问题,能够快速、高效解决问题的方式就是不错的方式,至于选择什么“工具”,众位看官看着办,本人虽然有过3年vb开发经验,但是一直没有深入学习,现已购买 《张宁著 老兵新传 核心编程及通用模块开发》,深入学习vb开发,继续将vb发扬光大。一、知识准备 ...
2015-08-09T15:33:00Z
2015-08-09T15:33:00Z
不平凡总在于坚持!
https://www.cnblogs.com/yhsc/
【摘要】前言:学习任何编程语言、编程工具的目的不外乎解决生活问题,能够快速、高效解决问题的方式就是不错的方式,至于选择什么“工具”,众位看官看着办,本人虽然有过3年vb开发经验,但是一直没有深入学习,现已购买 《张宁著 老兵新传 核心编程及通用模块开发》,深入学习vb开发,继续将vb发扬光大。一、知识准备 ... <a href="https://www.cnblogs.com/yhsc/p/4716731.html" target="_blank">阅读全文</a>
https://www.cnblogs.com/yhsc/p/4393674.html
Vb.Net Xml文档格式化 - 不平凡总在于坚持!
最近在处理Webservice文档的时候,因为是未格式化的,需要处理,所以有了以下代码。#Region "Xml字符串转换成格式化的XML文件" 'txt_Result.Text = StrToXml(txt_Result.Text) Public Function StrToX...
2015-04-05T01:54:00Z
2015-04-05T01:54:00Z
不平凡总在于坚持!
https://www.cnblogs.com/yhsc/
【摘要】最近在处理Webservice文档的时候,因为是未格式化的,需要处理,所以有了以下代码。#Region "Xml字符串转换成格式化的XML文件" 'txt_Result.Text = StrToXml(txt_Result.Text) Public Function StrToX... <a href="https://www.cnblogs.com/yhsc/p/4393674.html" target="_blank">阅读全文</a>
https://www.cnblogs.com/yhsc/p/4393670.html
VB.Net 字符串加密类 - 不平凡总在于坚持!
Public Class Cls_JM '使用 'Dim Jm As New Cls_JM(2) 'Dim strTmp As String 'Jm.jiemi(strTmp) 'Jm.Jiami(strTmp) Private TripleDes As New ...
2015-04-05T01:52:00Z
2015-04-05T01:52:00Z
不平凡总在于坚持!
https://www.cnblogs.com/yhsc/
【摘要】Public Class Cls_JM '使用 'Dim Jm As New Cls_JM(2) 'Dim strTmp As String 'Jm.jiemi(strTmp) 'Jm.Jiami(strTmp) Private TripleDes As New ... <a href="https://www.cnblogs.com/yhsc/p/4393670.html" target="_blank">阅读全文</a>
https://www.cnblogs.com/yhsc/p/4393663.html
VB.Net 文件处理类 - 不平凡总在于坚持!
1、编写日志2、本地文件的读取和写入3、Base64与图片的互相转换Imports System.IOImports System.TextPublic Class Cls_File#Region "编写日志" '根目录 Public Shared strCurrentPath As S...
2015-04-05T01:49:00Z
2015-04-05T01:49:00Z
不平凡总在于坚持!
https://www.cnblogs.com/yhsc/
【摘要】1、编写日志2、本地文件的读取和写入3、Base64与图片的互相转换Imports System.IOImports System.TextPublic Class Cls_File#Region "编写日志" '根目录 Public Shared strCurrentPath As S... <a href="https://www.cnblogs.com/yhsc/p/4393663.html" target="_blank">阅读全文</a>
https://www.cnblogs.com/yhsc/p/4393655.html
delphi 仅带下划线的TEdit控件 - 不平凡总在于坚持!
在做录入框的时候,很希望有一个只带下划线的文本框,网上介绍的很多,有自己做组件的,须不知Delphi下只需要简单设置几个属性即可达到目的。
2015-04-05T01:45:00Z
2015-04-05T01:45:00Z
不平凡总在于坚持!
https://www.cnblogs.com/yhsc/
【摘要】在做录入框的时候,很希望有一个只带下划线的文本框,网上介绍的很多,有自己做组件的,须不知Delphi下只需要简单设置几个属性即可达到目的。 <a href="https://www.cnblogs.com/yhsc/p/4393655.html" target="_blank">阅读全文</a>
https://www.cnblogs.com/yhsc/p/3874332.html
VB6-AppendToLog 通过API写入日志 - 不平凡总在于坚持!
工作中免不了需要为自己的程序添加日志,我也从网上扒拉了一个老外写的模块,修改修改了下,凑合用吧。 1 Option Explicit 2 '************************************** 3 ' 模块名称: AppendToLog 通过API写入日志 4 '******...
2014-07-28T15:26:00Z
2014-07-28T15:26:00Z
不平凡总在于坚持!
https://www.cnblogs.com/yhsc/
【摘要】工作中免不了需要为自己的程序添加日志,我也从网上扒拉了一个老外写的模块,修改修改了下,凑合用吧。 1 Option Explicit 2 '************************************** 3 ' 模块名称: AppendToLog 通过API写入日志 4 '******... <a href="https://www.cnblogs.com/yhsc/p/3874332.html" target="_blank">阅读全文</a>
https://www.cnblogs.com/yhsc/p/3874328.html
VB6-操作数据库 - 不平凡总在于坚持!
平常搞数据库操作多了就想把经常用的内容放在一起,我也懒,在一本书里的工程例子挑了一个bas,修修改改,凑合这用吧。 1 Public strCnn As String '数据库连接字符串 2 Public AdoCnn As ADODB.Connection '数据库连接 3 Public IsC...
2014-07-28T15:23:00Z
2014-07-28T15:23:00Z
不平凡总在于坚持!
https://www.cnblogs.com/yhsc/
【摘要】平常搞数据库操作多了就想把经常用的内容放在一起,我也懒,在一本书里的工程例子挑了一个bas,修修改改,凑合这用吧。 1 Public strCnn As String '数据库连接字符串 2 Public AdoCnn As ADODB.Connection '数据库连接 3 Public IsC... <a href="https://www.cnblogs.com/yhsc/p/3874328.html" target="_blank">阅读全文</a>
https://www.cnblogs.com/yhsc/p/3874319.html
VS2005打开VS2008 VS2010 VS2012 - 不平凡总在于坚持!
我用vs2005较多,但网上找的代码经常是08 10 或者2012的,总结了以下技巧可以打开工程比较小巧的高版本代码。用记事本打开解决方案文件“解决方案名.sln”,然后修改最上面两行为如下代码:Microsoft Visual Studio Solution File, Format Versio...
2014-07-28T15:15:00Z
2014-07-28T15:15:00Z
不平凡总在于坚持!
https://www.cnblogs.com/yhsc/
【摘要】我用vs2005较多,但网上找的代码经常是08 10 或者2012的,总结了以下技巧可以打开工程比较小巧的高版本代码。用记事本打开解决方案文件“解决方案名.sln”,然后修改最上面两行为如下代码:Microsoft Visual Studio Solution File, Format Versio... <a href="https://www.cnblogs.com/yhsc/p/3874319.html" target="_blank">阅读全文</a>
https://www.cnblogs.com/yhsc/p/3874307.html
Delphi-仿vb里的IIF函数 - 不平凡总在于坚持!
1 //Delphi 函数-IIF 2 // 实例-ChkValue := IIF(TCheckBox(tsPzJz.Controls[i]).Checked, '1', '0');3 function IIF(lExp: boolean; vExp1, vExp2: variant): varia...
2014-07-28T15:10:00Z
2014-07-28T15:10:00Z
不平凡总在于坚持!
https://www.cnblogs.com/yhsc/
【摘要】1 //Delphi 函数-IIF 2 // 实例-ChkValue := IIF(TCheckBox(tsPzJz.Controls[i]).Checked, '1', '0');3 function IIF(lExp: boolean; vExp1, vExp2: variant): varia... <a href="https://www.cnblogs.com/yhsc/p/3874307.html" target="_blank">阅读全文</a>
https://www.cnblogs.com/yhsc/p/3874303.html
vb6-很简单的配置密码验证提示 - 不平凡总在于坚持!
1 '很简单的配置密码验证提示 2 3 Dim add As String 4 add = Trim(InputBox("请输入配置密码", "报表配置")) 5 If add = "" Then 6 MsgBox "密码不能为空,请重新输入!", 64...
2014-07-28T15:08:00Z
2014-07-28T15:08:00Z
不平凡总在于坚持!
https://www.cnblogs.com/yhsc/
【摘要】1 '很简单的配置密码验证提示 2 3 Dim add As String 4 add = Trim(InputBox("请输入配置密码", "报表配置")) 5 If add = "" Then 6 MsgBox "密码不能为空,请重新输入!", 64... <a href="https://www.cnblogs.com/yhsc/p/3874303.html" target="_blank">阅读全文</a>
https://www.cnblogs.com/yhsc/p/3874299.html
VB-获取某字符在其中出现的次数 - 不平凡总在于坚持!
1 '方法1: 2 Dim str As String 3 str = "12345678" 4 MsgBox(UBound(Split(str, "3"))) 5 6 '方法2: 7 Dim n&, j& 8 ...
2014-07-28T15:05:00Z
2014-07-28T15:05:00Z
不平凡总在于坚持!
https://www.cnblogs.com/yhsc/
【摘要】1 '方法1: 2 Dim str As String 3 str = "12345678" 4 MsgBox(UBound(Split(str, "3"))) 5 6 '方法2: 7 Dim n&, j& 8 ... <a href="https://www.cnblogs.com/yhsc/p/3874299.html" target="_blank">阅读全文</a>
https://www.cnblogs.com/yhsc/p/3874296.html
Delphi 文字跑马灯 - 不平凡总在于坚持!
1 //跑马灯 2 procedure Tfr_Main.tme_TitleTimer(Sender: TObject); 3 var 4 strTrim: Widestring; 5 begin 6 strTrim := copy(strScroll, 1, 1); // 获取第1个字符...
2014-07-28T15:04:00Z
2014-07-28T15:04:00Z
不平凡总在于坚持!
https://www.cnblogs.com/yhsc/
【摘要】1 //跑马灯 2 procedure Tfr_Main.tme_TitleTimer(Sender: TObject); 3 var 4 strTrim: Widestring; 5 begin 6 strTrim := copy(strScroll, 1, 1); // 获取第1个字符... <a href="https://www.cnblogs.com/yhsc/p/3874296.html" target="_blank">阅读全文</a>
https://www.cnblogs.com/yhsc/p/3874285.html
VB-获取本机计算机名,登录名、ip地址 - 不平凡总在于坚持!
真的是很简单,执行结果:Computer:不平凡总在于坚持 User:Administrator IP:192.168.0.111 '获取计算机名、用户名、本机ip Dim LocalInfo As String Dim strLocalIP As String Dim winIP As O...
2014-07-28T15:00:00Z
2014-07-28T15:00:00Z
不平凡总在于坚持!
https://www.cnblogs.com/yhsc/
【摘要】真的是很简单,执行结果:Computer:不平凡总在于坚持 User:Administrator IP:192.168.0.111 '获取计算机名、用户名、本机ip Dim LocalInfo As String Dim strLocalIP As String Dim winIP As O... <a href="https://www.cnblogs.com/yhsc/p/3874285.html" target="_blank">阅读全文</a>
https://www.cnblogs.com/yhsc/p/3874267.html
VB6-表格控件MSHFlexGrid 实用代码 - 不平凡总在于坚持!
在vb6中要显示数据虽然有datagrid、msflexgrid、mshflexgrid、vsflexgrid、True dbgrid7.0 可选,不过我在工作中用的最多的还是MSHFlexGrid,以下我会常分享一些使用这个控件的技巧、方法代码,保证拿了就可以用。1、使用MSHFlexGrid的F...
2014-07-28T14:51:00Z
2014-07-28T14:51:00Z
不平凡总在于坚持!
https://www.cnblogs.com/yhsc/
【摘要】在vb6中要显示数据虽然有datagrid、msflexgrid、mshflexgrid、vsflexgrid、True dbgrid7.0 可选,不过我在工作中用的最多的还是MSHFlexGrid,以下我会常分享一些使用这个控件的技巧、方法代码,保证拿了就可以用。1、使用MSHFlexGrid的F... <a href="https://www.cnblogs.com/yhsc/p/3874267.html" target="_blank">阅读全文</a>
https://www.cnblogs.com/yhsc/p/3874255.html
VB6-图像分割利器 Microsoft Picture Clip控件 - 不平凡总在于坚持!
在医院做图像处理时碰到双面扫描仪,需要将扫描到的2张图像分割为一张并打印。在分割图像的过程中总是不得法,后来虽然有CBM666的指导,但给的方法也还是不太方便。无意中在翻一本vb书的时候看到了一个使用Microsoft Picture Clip控件的例子,想要分割图像那是超级简单。分享以下代码,保证...
2014-07-28T14:45:00Z
2014-07-28T14:45:00Z
不平凡总在于坚持!
https://www.cnblogs.com/yhsc/
【摘要】在医院做图像处理时碰到双面扫描仪,需要将扫描到的2张图像分割为一张并打印。在分割图像的过程中总是不得法,后来虽然有CBM666的指导,但给的方法也还是不太方便。无意中在翻一本vb书的时候看到了一个使用Microsoft Picture Clip控件的例子,想要分割图像那是超级简单。分享以下代码,保证... <a href="https://www.cnblogs.com/yhsc/p/3874255.html" target="_blank">阅读全文</a>
https://www.cnblogs.com/yhsc/p/3874240.html
VB6-系统打印常识 - 不平凡总在于坚持!
在一次做图片打印的时候,对位置的调整老是不得法,后来通过CBM666老师的帮助才解决问题,分享以下他给的帮助。'PaintPicture pic, destX, destY, destWidth, destHeight, scrX, scrY, scrWidth, scrHeight'其中Pic:为...
2014-07-28T14:37:00Z
2014-07-28T14:37:00Z
不平凡总在于坚持!
https://www.cnblogs.com/yhsc/
【摘要】在一次做图片打印的时候,对位置的调整老是不得法,后来通过CBM666老师的帮助才解决问题,分享以下他给的帮助。'PaintPicture pic, destX, destY, destWidth, destHeight, scrX, scrY, scrWidth, scrHeight'其中Pic:为... <a href="https://www.cnblogs.com/yhsc/p/3874240.html" target="_blank">阅读全文</a>
https://www.cnblogs.com/yhsc/p/3874210.html
vb delphi7、2010 csharp vb.net空白测试程序 - 不平凡总在于坚持!
工作中难免在网上看到一段不错的代码,希望能够拿来测试一次,为了避免每次测试都要新建一个空白测试程序,索性预先建立好,要用的时候复制一遍,然后打开直接粘贴需要测试的代码进行测试。
2014-07-28T14:25:00Z
2014-07-28T14:25:00Z
不平凡总在于坚持!
https://www.cnblogs.com/yhsc/
【摘要】工作中难免在网上看到一段不错的代码,希望能够拿来测试一次,为了避免每次测试都要新建一个空白测试程序,索性预先建立好,要用的时候复制一遍,然后打开直接粘贴需要测试的代码进行测试。 <a href="https://www.cnblogs.com/yhsc/p/3874210.html" target="_blank">阅读全文</a>
https://www.cnblogs.com/yhsc/p/3874198.html
Pascal、VB、C#、Java四种语法对照表 - 不平凡总在于坚持!
因为工作原因,自学会了vb后陆续接触了其它语言,在工作中经常需要与各家使用不同语言公司的开发人员做程序对接,初期特别需要一个各种语法的对照比,翻看了网络上已有高人做了整理,自己在他基础上也整理了一下,摘抄如下(最后附上原作,网上也可以找到):类别Vb6 & Vb.NetDelphiC#语法不区分大小...
2014-07-28T14:15:00Z
2014-07-28T14:15:00Z
不平凡总在于坚持!
https://www.cnblogs.com/yhsc/
【摘要】因为工作原因,自学会了vb后陆续接触了其它语言,在工作中经常需要与各家使用不同语言公司的开发人员做程序对接,初期特别需要一个各种语法的对照比,翻看了网络上已有高人做了整理,自己在他基础上也整理了一下,摘抄如下(最后附上原作,网上也可以找到):类别Vb6 & Vb.NetDelphiC#语法不区分大小... <a href="https://www.cnblogs.com/yhsc/p/3874198.html" target="_blank">阅读全文</a>
https://www.cnblogs.com/yhsc/p/3750783.html
【分享】 高级Visual Basic 编程 清晰pdf+随书源代码光盘 - 不平凡总在于坚持!
搞vb6的可能不多,博客园也大多是。net java,近日在网上找到这本好书,想要成为vb高手,这本书不要错过,学完你会发现win32下,vb6还真是无所不能。可贵的是本书的作者是当时vb6 IDE的开发人员,在本书分享了大量你没用过的技巧和理论,教你如何在vb中使用汇编、使用C等等。建议有一定基础...
2014-05-25T01:43:00Z
2014-05-25T01:43:00Z
不平凡总在于坚持!
https://www.cnblogs.com/yhsc/
【摘要】搞vb6的可能不多,博客园也大多是。net java,近日在网上找到这本好书,想要成为vb高手,这本书不要错过,学完你会发现win32下,vb6还真是无所不能。可贵的是本书的作者是当时vb6 IDE的开发人员,在本书分享了大量你没用过的技巧和理论,教你如何在vb中使用汇编、使用C等等。建议有一定基础... <a href="https://www.cnblogs.com/yhsc/p/3750783.html" target="_blank">阅读全文</a>
https://www.cnblogs.com/yhsc/p/3710801.html
给疯狂下资料的朋友们提个醒 - 不平凡总在于坚持!
给疯狂下资料的朋友们提个醒(转自栖息谷论坛) 来家园的日子不短了,在这里不但下载了资料,也学到了许多东西。因为喜欢这里所以很认真地去思考能为这个家做点什么,否则总是载别人的东西,却一点也不知回报,良心上也过不去。这些日子,我发现家园里有两个比较奇怪的现象:现象一,很多朋友虽然疯狂下载资料,却并没有去...
2014-05-06T01:18:00Z
2014-05-06T01:18:00Z
不平凡总在于坚持!
https://www.cnblogs.com/yhsc/
【摘要】给疯狂下资料的朋友们提个醒(转自栖息谷论坛) 来家园的日子不短了,在这里不但下载了资料,也学到了许多东西。因为喜欢这里所以很认真地去思考能为这个家做点什么,否则总是载别人的东西,却一点也不知回报,良心上也过不去。这些日子,我发现家园里有两个比较奇怪的现象:现象一,很多朋友虽然疯狂下载资料,却并没有去... <a href="https://www.cnblogs.com/yhsc/p/3710801.html" target="_blank">阅读全文</a>