文章分类 - VB Source Code
摘要：: 文件夹创建:Set fso = CreateObject("Scripting.FileSystemObject")If (fso.FolderExists(文件夹全路径名)) Then'存在else'不存在,则创建文件夹Set f = fso.CreateFolder(文件夹全路径名)endif : 判断文件是否存在:Set fso = CreateObject("Scripting.FileSystemObject")if fso.fileexists(全路径文件名) then'存在else'不存在endif :
阅读全文
摘要：VB WaitForSingleObject不假死等待进程怎么做Call WaitForSingleObject(lngPHandle, INFINITE)谢谢，我已经问穷了，没积分了 ！我的目的就是多线程！一个运行完等进程结束后自动调用下个程序，，先谢谢你的回答！TEvent类:Option ExplicitConst INFINITE = &HFFFFConst ERROR_ALREADY_EXISTS = 183&Const WAIT_TIMEOUT = &H102Private Declare Function CreateEvent Lib "ker
阅读全文
摘要：当我们希望类在被初始化时，自动的执行一些操作。比如：为某个成员变量赋初始值。这时候，我们就需要构造函数。当然，这里的构造函数（和下文的析构函数）同样是CPP的叫法。构造函数表示为：引用:Private SubClass_Initialize()End SubBTW：大家可以先在左上端的对象下拉框内选择Class，然后在右边选择Initialize比方说，我们希望在类被初始化，m_strName自动被赋予“IceBear”，只需：引用:Private SubClass_Initialize() m_strName ="IceBear"End Sub说完构造函数，咱再说说析构函
阅读全文
摘要：Event 语句 定义用户自定义的事件。语法[Public] Event procedurename [(arglist)]Event 语句包含下面部分：部分 描述 Public 可选的。指定该 Event 在整个工程中都是可见的。缺省情况下 Events 类型是 Public。应注意，事件只能在所声明的模块中产生。 procedurename 必需的。事件的名称；遵循标准的变量命名约定。 arglist 参数的语法及语法的各个部分如下：[ByVal | ByRef] varname[( )] [As type]部分 描述 ByVal 可选的。表示该参数是按值传递的。 ByRef 可...
阅读全文
摘要：XSL（可扩展样式表语言）是对CSS的一种扩展，功能比CSS强大得多。XML链接是在HTML链接的功能之上加以扩展，可以支持更为复杂的链接，通过XML链接，不仅可以在XML文件之间建立链接，还可以建立其他类型数据之间的链接，其规范分为三个部分：XLink语言，XPointer语言和XML Base. XML标准体系中还有其他很多技术，比如针对DTD的不足而提出的XML Schema,对XML文档进行结构话处理的DOM等，由于篇幅的关系，在这就不一一列举，不熟悉的请参考有关书籍。 好了，现在让我们开始进入正题——对XML的操作。首先，请保证您的电脑中有最新版本的MSXML，微软XML核心...
阅读全文
摘要：一、 VB读写EXCEL表： VB本身提自动化功能可以读写EXCEL表，其方法如下： 1、在工程中引用Microsoft Excel类型库： 从"工程"菜单中选择"引用"栏；选择Microsoft Excel 9.0 Object Library（EXCEL2000），然后选择"确定"。表示在工程中要引用EXCEL类型库。 2、在通用对象的声明过程中定义EXCEL对象：Dim xlApp As Excel.ApplicationDim xlBook As Excel.WorkBookDim xlSheet As Excel.Works
阅读全文
摘要：VB如何获取Excel sheet中的记录数和总列数Sheets("sheet1").usedrange.columns.countSheets("sheet1").usedrange.rows.countDim xlApp As Excel.Application Dim xlBook As Excel.Workbook Dim xlSheet As Excel.Worksheet Set xlApp = New Excel.Application 'Set xlBook = xlApp.Workbooks.Add 'Set xlShe
阅读全文
摘要：Option Explicit '************************************************ '******************COM 端口设置****************** '************************************************ Public Function COMSet(CommObj As MSComm, ByVal mPort As String, ByVal mSet As String) As Boolean On Error GoTo Err If CommObj
阅读全文
