摘要：
前言：学习任何编程语言、编程工具的目的不外乎解决生活问题，能够快速、高效解决问题的方式就是不错的方式，至于选择什么“工具”，众位看官看着办，本人虽然有过3年vb开发经验，但是一直没有深入学习，现已购买 《张宁著 老兵新传 核心编程及通用模块开发》，深入学习vb开发，继续将vb发扬光大。一、知识准备 ... 阅读全文
posted @ 2015-08-09 23:33
不平凡总在于坚持！
阅读(976)
评论(0)
推荐(0)
摘要：
最近在处理Webservice文档的时候，因为是未格式化的，需要处理，所以有了以下代码。#Region "Xml字符串转换成格式化的XML文件" 'txt_Result.Text = StrToXml(txt_Result.Text) Public Function StrToX... 阅读全文
posted @ 2015-04-05 09:54
不平凡总在于坚持！
阅读(621)
评论(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
不平凡总在于坚持！
阅读(1078)
评论(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
不平凡总在于坚持！
阅读(999)
评论(0)
推荐(0)
摘要：
在做录入框的时候，很希望有一个只带下划线的文本框，网上介绍的很多，有自己做组件的，须不知Delphi下只需要简单设置几个属性即可达到目的。 阅读全文
posted @ 2015-04-05 09:45
不平凡总在于坚持！
阅读(404)
评论(0)
推荐(0)
摘要：
工作中免不了需要为自己的程序添加日志，我也从网上扒拉了一个老外写的模块，修改修改了下，凑合用吧。 1 Option Explicit 2 '************************************** 3 ' 模块名称: AppendToLog 通过API写入日志 4 '******... 阅读全文
posted @ 2014-07-28 23:26
不平凡总在于坚持！
阅读(1348)
评论(0)
推荐(0)
摘要：
平常搞数据库操作多了就想把经常用的内容放在一起，我也懒，在一本书里的工程例子挑了一个bas，修修改改，凑合这用吧。 1 Public strCnn As String '数据库连接字符串 2 Public AdoCnn As ADODB.Connection '数据库连接 3 Public IsC... 阅读全文
posted @ 2014-07-28 23:23
不平凡总在于坚持！
阅读(1205)
评论(1)
推荐(1)
摘要：
我用vs2005较多，但网上找的代码经常是08 10 或者2012的，总结了以下技巧可以打开工程比较小巧的高版本代码。用记事本打开解决方案文件“解决方案名.sln”，然后修改最上面两行为如下代码：Microsoft Visual Studio Solution File, Format Versio... 阅读全文
posted @ 2014-07-28 23:15
不平凡总在于坚持！
阅读(480)
评论(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
不平凡总在于坚持！
阅读(352)
评论(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
不平凡总在于坚持！
阅读(439)
评论(0)
推荐(0)
浙公网安备 33010602011771号