摘要: 最近在处理Webservice文档的时候,因为是未格式化的,需要处理,所以有了以下代码。#Region "Xml字符串转换成格式化的XML文件" 'txt_Result.Text = StrToXml(txt_Result.Text) Public Function StrToX... 阅读全文
posted @ 2015-04-05 09:54 不平凡总在于坚持! 阅读(614) 评论(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 不平凡总在于坚持! 阅读(1049) 评论(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 不平凡总在于坚持! 阅读(986) 评论(0) 推荐(0) 编辑
摘要: 在做录入框的时候,很希望有一个只带下划线的文本框,网上介绍的很多,有自己做组件的,须不知Delphi下只需要简单设置几个属性即可达到目的。 阅读全文
posted @ 2015-04-05 09:45 不平凡总在于坚持! 阅读(372) 评论(0) 推荐(0) 编辑