zzy1254-CSDN博客

原创下载文件函数

函数名 :DownFile 函数功能:下载文件传入参数:URL网络文件地址，FileName:文件路径，Prog：进度条对象返回值 :无制作人 :zzz 制作日期:2007-04-10 说明 : Public Sub DownFile()Sub DownFile(ByVal URL As String, By

2008-03-11 11:46:00 557

原创验证传入的身份证号是否有效

函数名 :CheckCIDInfo 函数功能:验证传入的身份证号是否有效(18位) 传入参数:18位的身份证号码返回值 :所属地区,出生年月,男女制作人 :zzz 制作日期:2007-04-10 说明 :无 ===================================================================

2007-06-26 10:22:00 1256

原创时间的相加和相减

过程名称：TimeAndTimeSum 功能描述：两个时间的相加接收参数：时间字串返回参数：相加后的时间字串创建人员及日期：zzz@2007-06-20 注意事项：字符串的格式需要为##:## ===================================================================================

2007-06-26 10:19:00 3873 1

转载以VB操作EXCEL(转贴)

在用VB做程序的时候,它本身的报表并不太好使用,因此应用Excel输出数据,是一个好方法,以下是一组操纵Excel的函数据.Excel VBA控制函数检测文件Function CheckFile()Function CheckFile(ByVal strFile As String) As BooleanDim FileXls As ObjectSet FileXls = CreateO

2007-06-05 08:19:00 1440

原创对Ini文件进行操作的类

Module IniWorkModule IniWork Friend Class clsIniFileClass clsIniFile 模块名称 clsIniFile 功能描述提供对Ini文件的一些操作创建日期 20031026 开发机构石家庄天海科技有限公司声明API函数 Priva

2007-05-22 10:10:00 1203

原创自己写的数据库基类(VB.NET_WinForm)

过程名称: clsDataBase功能描述：数据库的相关操作创建人员及日期：zzz2006-11说明: 在实例化本类后,切记要记住释放Public Class clsDataBaseClass clsDataBase 数据库类型定义 Public Enum eDBTypeEnum eDBType DB_OLEDB = 0 DB_SQL

2007-05-21 15:48:00 1122

原创将传入的文件设置为自启动程序

函数名 :OptionRun 函数功能:将传入的文件设置为自启动程序传入参数:要设置的可执行文件返回值 :True:设置成功，False：设置失败制作人 :zzz 制作日期:2007-04-10 说明 :此函数需要有Microsoft.Win32的引用 Public Function OptionRun()F

2007-05-21 11:28:00 764

原创将汉字转换为大写的拼音首字母

函数名 :GetSpellCode 函数功能:将汉字转换为大写的拼音首字母传入参数:Cnstr:待转换的汉字字符串返回值 :拼音字符串制作人 :zzz 制作日期:2007-02-10 说明 :对于U、V无法转换 Public Function GetSpellCode()Function GetSpellCo

2007-05-21 11:27:00 4791

原创将传入的DateTimePicker对象转成"####-##-##"格式的日期字串

函数名 :GetDTPDataValue 函数功能:将传入的DateTimePicker对象转成"####-##-##"格式的日期字串传入参数:需要转换的DateTimePicker对象返回值 :"####-##-##"字串制作人 :zzz 制作日期:2007-04-10 说明 : Public Functi

2007-05-21 11:27:00 1337

原创将数据对象加载到下拉列表中

函数名 :DataAddToCombobox 函数功能:将传入的对象添加至下拉列表中传入参数:objInfo:数据对象，CmbObj:下拉列表框对象,AddColName:要添加的列名,IsAll:是否添加"全部"字段返回值 : 制作人 :zzz 制作日期:2007-04-10 说明 : Public Sub

2007-05-21 11:25:00 876

原创使远程计算机重新启动

函数名 :ResetComputer 函数功能:使远程的机算机重新启动传入参数:sUserName:登录用户名，sPassWord:登录密码,sURL:要重启的机算机IP 返回值 :Ture:成功,False:失败制作人 :zzz 制作日期:2007-01-08 说明 :此函数需要有System.Management

2007-05-21 11:24:00 959

原创打开TXT文件

函数名 :ReadFileInfo 函数功能:打开TXT文件传入参数:sFilePath带有文件路径的文件名返回值 :文件的内容制作人 :zzz 制作日期:2006-11-15 说明 :此函数需要有System.IO的引用 Private Function ReadFileInfo()Function Rea

2007-05-21 11:23:00 880

原创备份和还原SQL数据库

过程名称：BackUpDataBase 功能描述：备份数据库接收参数：需要备份的路径及文件名返回参数：Ture,False 是否成功创建人员及日期：zzz@2006-11-15 Public Function BackUpDataBase()Function BackUpDataBase(ByVal sDBName As String) A

2007-05-21 11:22:00 964

原创调用Excel中的宏

过程名称：ExcelFl 功能描述：调用EXCEL表的宏接收参数：sExcelPath:Excel文件的路径，MacroName：调用宏的名称返回参数：Ture:执行成功，False：执行失败创建人员及日期：zzz@2007-01-15 注意事项:暂无 Public Function ExcelFl()Function ExcelF

2007-05-21 11:21:00 1031

原创得到文件的版本号

过程名称：GetFileVersions 功能描述：得到传入文件的版本号接收参数：sFilePathName:带有路径的文件名返回参数：文件的版本号字符串创建人员及日期：zzz@2006-03-08 注意事项:传入的文件名需要为*.exe,*.dll,*.ocx Public Function GetFileVersions()Fu

2007-05-21 11:20:00 628

原创 DataTable导为Excel

过程名称：ExportToExcel 功能描述：将传入的表格导出为Excel表接收参数：p_InfoTable 要导出的表格返回参数：创建人员及日期：zzz@2006-11-02 注意事项:使用此函数需要引用Microsoft Excel 11.0 Object Library 并且附加上frmWaiting窗体

2007-05-21 11:18:00 1552 1

zzy1254的专栏