2006年8月5日
在VB中如何打开“文件夹选项”对话框？
摘要： Private Type BrowseInfo hWndOwner As Long pIDLRoot As Long pszDisplayName As Long lpszTitle As Long ulFlags As Long lpfnCallback As Long lParam As Long iImage As LongEnd Ty... 阅读全文
posted @ 2006-08-05 16:05 放飞梦想 阅读(3372) 评论(0) 推荐(0)
2006年8月1日
如何对文本文件的内容进行排序？
摘要： 如何对文本文件的内容进行排序？问：您好，脚本专家！我有一个包含计算机名称列表的文本文件。如何按照字母顺序对该文件进行排序？-- LR答：您好，LR。如果想偷懒的话，我们就会告诉您：“对不起，您不能这样做。”我们也可以就此脱身，因为 Microsoft 的脚本编写技术中没有一个方法能在打开文本文件后对文件进行排序。不过，嗨，“脚本专家”什么时候偷过懒呢？噢，对了，我们是偷过几次懒，不过希望所有的... 阅读全文
posted @ 2006-08-01 13:14 放飞梦想 阅读(2299) 评论(1) 推荐(0)
2006年7月26日
从 INSERT 返回 IDENTITY （转）
摘要： 我决定从遇到许多问题的内容入手：如何在执行 SQL INSERT 后检索 IDENTITY 值。通常，问题不在于如何编写检索值的查询，而在于在哪里以及何时进行检索。在 SQL Server 中，下面的语句可用于检索由最新在活动数据库连接上运行的 SQL 语句所创建的 IDENTITY 值： SELECT @@IDENTITY 这个 SQL 语句并不复杂，但需要记住的一点是：如果这个最新的 SQL ... 阅读全文
posted @ 2006-07-26 19:58 放飞梦想 阅读(438) 评论(0) 推荐(0)
数值转化Excel列字母的函数
摘要： Function mfH00R0_GetExcelCol(intCols As Integer) As String Dim strOut As String Dim intI As Integer If intCols > 0 And intCols 26 Then strOut = strOut & Chr(Asc("A") - 1 + IIf(int... 阅读全文
posted @ 2006-07-26 19:22 放飞梦想 阅读(442) 评论(0) 推荐(0)
数字转化罗马数字的函数
摘要： Public Function mfH00R0_Get_RomanNumerals(intNum As Long) As String Dim intArabic(12) As Integer Dim strRoman(12) As String Dim intI As Integer Dim strOut As String intArabic(0) = ... 阅读全文
posted @ 2006-07-26 19:20 放飞梦想 阅读(375) 评论(0) 推荐(0)
VB通过ADO连接SQL数据的两种方法
摘要： 其实第一种是不用odbc联系数据库，第二种是使用odbc连接数据库 VB使用ADO数据库可以分为有源数据库和无源数据库，即是否使用了DSN数据源，如下例：1、在连接数据库前首先要在VB菜单中“工程”-“引用”从中选择 microsoft activeX Data objects 2.6 library和 microsoft activeX Data objects recordset 2.6两... 阅读全文
posted @ 2006-07-26 19:19 放飞梦想 阅读(2237) 评论(3) 推荐(0)
各种进制转换函数
摘要： 一般的数据进制包括十进制,二进制,十六进制.十进制就是我们日常生活用到的数据进制,因此也是我们最熟悉和清楚的;二进制是计算机的基础进制,主要是因为便于用物理器件实现二进制;八进制和十六进制因为和二进制的天然的亲密关系,并且表示比二进制更方便,因而也成为计算机的常用表示方法. VB中涉及到的数据进制之间的转换函数主要有如下几个: Hex 函数: 返回代表十六进制数值的 St... 阅读全文
posted @ 2006-07-26 19:18 放飞梦想 阅读(1845) 评论(0) 推荐(0)
字符串和数字转换函数
摘要： VB中的字符串函数比较多,也比较方便,就不一一介绍了.本文主要对字符串相关的转换函数做一些小结.字符串转换的函数主要有: Str()和Val()用于字符串和数字的相互转换; Chr()和Asc()用于字符串和AscII码的相互转换; Chrw()和Ascw()用于Unicode码和中文的相互转换; Format()函数用途十分广泛的一个函数,功能十分强大. ... 阅读全文
posted @ 2006-07-26 19:17 放飞梦想 阅读(1596) 评论(0) 推荐(0)
线性表节点的插入和删除算法
摘要： '原作者:Snowcloud2002'插入节点'函数名称: NodeInsert(Pos As Integer, Num As Integer, TableName As Variant) As Boolean'参数: Pos As Integer要插入节点的位置,Num As Integer要插入的数值,TableName As Variant线性表名称'返回值: Boole... 阅读全文
posted @ 2006-07-26 19:16 放飞梦想 阅读(858) 评论(0) 推荐(0)
利用集合进行数组的排序
摘要： 笔者在学习VB中发现利用集合可以进行排序，优化后比冒泡法快得多。下面是完整的函数代码，演示了如何进行数组的升序或降序排列。 Option ExplicitDim X(100) As DoubleDim y(100) As StringPrivate Sub Command1_Click() '演示数字排序Dim a(100) As Double, z(100) As String, i ... 阅读全文
posted @ 2006-07-26 19:15 放飞梦想 阅读(291) 评论(0) 推荐(0)