随笔分类 - VB空间
摘要：Sub AddMenuSheet()'Check if sheet exists already; direct where to go if not.On Error GoTo Nosheet Sheets("Menu").DeleteNosheet: 'Add sheet as the first sheet in the workbook. Sheets.Add before:=Sheets(1)On Error GoTo 0 ActiveSheet.Name = "Menu" With Sheets("Menu"
阅读全文
摘要：VB6.0如何使用正则表达式引用了Microsoft VBScript Regular Expressions 5.5 后就可以声明正则相关对象了。主要有三个对象：RegExp、MatchCollection、Match。 1. RegExp 这是VB使用正则表达式匹配模式的主要对象了。其提供的属性用于设置那些用来比较的传递给 RegExp 实例的字符串的模式。 其提供的方法以确定字符串是否...
阅读全文
摘要：名称 类型 说明 abort 函数 引起放弃的意外处理 abs 函数 绝对值函数 addexitproc 函数 将一过程添加到运行时库的结束过程表中 addr 函数 返回指定对象的地址 adjustlinebreaks 函数 将给定字符串的行分隔符调整为cr/lf序列 align 属性 使控件位于窗口某部分 alignment 属性 控件标签的文字位置 allocmem 函数 在堆栈上分配给定大小...
阅读全文
摘要：'------------------------------------------------------------------------''WIN32API.TXT--Win32APIDeclarationsforVisualBasic''Copyright(C)1994-98MicrosoftCorporation''ThisfileisrequiredfortheVisualBasi...
阅读全文
摘要：MSHFlexGrid MergeCol、MergeRow 属性 返回或设置一个值，决定哪些行和列可以把它们的内容合并。要使用 MergeCells 属性，这些属性必须为 True。 语法 object.MergeCol(number) [=Boolean] object.MergeRow(number) [=Boolean] MergeCol 和 MergeRows 属性的语法...
阅读全文
摘要：Public Sub Delay(PauseTime As Single) Dim Start As Single Start = Timer Do While Timer < Start + PauseTime DoEvents LoopEnd Sub
阅读全文
摘要：'*******************************************************'*函数功能：判断控件是否存在的函数'*参 数：frmObject 窗体名'*strControlsName 待判断的控件名'*lngIndex 控件Index非数组控件可省略该参数'*返 回 值：True存在 False 不存在'****************************...
阅读全文
摘要：============================================'模块功能：取得硬盘的信息'编 程：来自互联网，阿勇修改'更新日期：2005/7/8'调用方法：' GetDiskVolume() 取得逻辑盘的序列号' GetHardDiskInfo() 取得物理盘的型号或序列号'=========================================...
阅读全文
摘要：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...
阅读全文
摘要：如何对文本文件的内容进行排序？问：您好，脚本专家！我有一个包含计算机名称列表的文本文件。如何按照字母顺序对该文件进行排序？-- LR答：您好，LR。如果想偷懒的话，我们就会告诉您：“对不起，您不能这样做。”我们也可以就此脱身，因为 Microsoft 的脚本编写技术中没有一个方法能在打开文本文件后对文件进行排序。不过，嗨，“脚本专家”什么时候偷过懒呢？噢，对了，我们是偷过几次懒，不过希望所有的...
阅读全文
摘要：我决定从遇到许多问题的内容入手：如何在执行 SQL INSERT 后检索 IDENTITY 值。通常，问题不在于如何编写检索值的查询，而在于在哪里以及何时进行检索。在 SQL Server 中，下面的语句可用于检索由最新在活动数据库连接上运行的 SQL 语句所创建的 IDENTITY 值： SELECT @@IDENTITY 这个 SQL 语句并不复杂，但需要记住的一点是：如果这个最新的 SQL ...
阅读全文
摘要：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...
阅读全文
摘要：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) = ...
阅读全文
摘要：其实第一种是不用odbc联系数据库，第二种是使用odbc连接数据库 VB使用ADO数据库可以分为有源数据库和无源数据库，即是否使用了DSN数据源，如下例：1、在连接数据库前首先要在VB菜单中“工程”-“引用”从中选择 microsoft activeX Data objects 2.6 library和 microsoft activeX Data objects recordset 2.6两...
阅读全文
摘要：一般的数据进制包括十进制,二进制,十六进制.十进制就是我们日常生活用到的数据进制,因此也是我们最熟悉和清楚的;二进制是计算机的基础进制,主要是因为便于用物理器件实现二进制;八进制和十六进制因为和二进制的天然的亲密关系,并且表示比二进制更方便,因而也成为计算机的常用表示方法. VB中涉及到的数据进制之间的转换函数主要有如下几个: Hex 函数: 返回代表十六进制数值的 St...
阅读全文
摘要：VB中的字符串函数比较多,也比较方便,就不一一介绍了.本文主要对字符串相关的转换函数做一些小结.字符串转换的函数主要有: Str()和Val()用于字符串和数字的相互转换; Chr()和Asc()用于字符串和AscII码的相互转换; Chrw()和Ascw()用于Unicode码和中文的相互转换; Format()函数用途十分广泛的一个函数,功能十分强大. ...
阅读全文
摘要：'原作者:Snowcloud2002'插入节点'函数名称: NodeInsert(Pos As Integer, Num As Integer, TableName As Variant) As Boolean'参数: Pos As Integer要插入节点的位置,Num As Integer要插入的数值,TableName As Variant线性表名称'返回值: Boole...
阅读全文
摘要：笔者在学习VB中发现利用集合可以进行排序，优化后比冒泡法快得多。下面是完整的函数代码，演示了如何进行数组的升序或降序排列。 Option ExplicitDim X(100) As DoubleDim y(100) As StringPrivate Sub Command1_Click() '演示数字排序Dim a(100) As Double, z(100) As String, i ...
阅读全文
摘要：程序说明: 这个程序比较简单,大家自己看吧 计算机名就是你打开 控制面板-系统-网络标识-完整的计算机名称 程序代码: Form1 Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As ...
阅读全文
摘要：最近因为在使用VB的过程中，发现要使用一些数据结构，虽然不像C里面那样方便，但总结一下，还是可以做的，虽然不是很习惯。以飨各位。 为便于理解数组的作用，我们引入数据项和指针项的概念，在数据项中存放数组中各元素的值，指针项中存放该值在数组中的位置，两者一一对应。指针的上限指向数组第一个元素的位置，下限指向最末一个元素的位置。数组中的元素在内存中是连续的线性的节点序列，这种线性的数据结构是...
阅读全文
