摘要: 前言:学习任何编程语言、编程工具的目的不外乎解决生活问题,能够快速、高效解决问题的方式就是不错的方式,至于选择什么“工具”,众位看官看着办,本人虽然有过3年vb开发经验,但是一直没有深入学习,现已购买 《张宁著 老兵新传 核心编程及通用模块开发》,深入学习vb开发,继续将vb发扬光大。一、知识准备 ... 阅读全文
posted @ 2015-08-09 23:33 不平凡总在于坚持! 阅读(890) 评论(0) 推荐(0) 编辑
摘要: 最近在处理Webservice文档的时候,因为是未格式化的,需要处理,所以有了以下代码。#Region "Xml字符串转换成格式化的XML文件" 'txt_Result.Text = StrToXml(txt_Result.Text) Public Function StrToX... 阅读全文
posted @ 2015-04-05 09:54 不平凡总在于坚持! 阅读(607) 评论(0) 推荐(0) 编辑
摘要: 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 ... 阅读全文
posted @ 2015-04-05 09:52 不平凡总在于坚持! 阅读(1035) 评论(0) 推荐(0) 编辑
摘要: 1、编写日志2、本地文件的读取和写入3、Base64与图片的互相转换Imports System.IOImports System.TextPublic Class Cls_File#Region "编写日志" '根目录 Public Shared strCurrentPath As S... 阅读全文
posted @ 2015-04-05 09:49 不平凡总在于坚持! 阅读(975) 评论(0) 推荐(0) 编辑
摘要: 在做录入框的时候,很希望有一个只带下划线的文本框,网上介绍的很多,有自己做组件的,须不知Delphi下只需要简单设置几个属性即可达到目的。 阅读全文
posted @ 2015-04-05 09:45 不平凡总在于坚持! 阅读(346) 评论(0) 推荐(0) 编辑
摘要: 工作中免不了需要为自己的程序添加日志,我也从网上扒拉了一个老外写的模块,修改修改了下,凑合用吧。 1 Option Explicit 2 '************************************** 3 ' 模块名称: AppendToLog 通过API写入日志 4 '******... 阅读全文
posted @ 2014-07-28 23:26 不平凡总在于坚持! 阅读(1293) 评论(0) 推荐(0) 编辑
摘要: 平常搞数据库操作多了就想把经常用的内容放在一起,我也懒,在一本书里的工程例子挑了一个bas,修修改改,凑合这用吧。 1 Public strCnn As String '数据库连接字符串 2 Public AdoCnn As ADODB.Connection '数据库连接 3 Public IsC... 阅读全文
posted @ 2014-07-28 23:23 不平凡总在于坚持! 阅读(1167) 评论(1) 推荐(1) 编辑
摘要: 我用vs2005较多,但网上找的代码经常是08 10 或者2012的,总结了以下技巧可以打开工程比较小巧的高版本代码。用记事本打开解决方案文件“解决方案名.sln”,然后修改最上面两行为如下代码:Microsoft Visual Studio Solution File, Format Versio... 阅读全文
posted @ 2014-07-28 23:15 不平凡总在于坚持! 阅读(462) 评论(0) 推荐(0) 编辑
摘要: 1 //Delphi 函数-IIF 2 // 实例-ChkValue := IIF(TCheckBox(tsPzJz.Controls[i]).Checked, '1', '0');3 function IIF(lExp: boolean; vExp1, vExp2: variant): varia... 阅读全文
posted @ 2014-07-28 23:10 不平凡总在于坚持! 阅读(327) 评论(0) 推荐(0) 编辑
摘要: 1 '很简单的配置密码验证提示 2 3 Dim add As String 4 add = Trim(InputBox("请输入配置密码", "报表配置")) 5 If add = "" Then 6 MsgBox "密码不能为空,请重新输入!", 64... 阅读全文
posted @ 2014-07-28 23:08 不平凡总在于坚持! 阅读(412) 评论(0) 推荐(0) 编辑