ITPub博客

用VB函数Dir实现递归搜索目录 我在很久以前就实现了这个方法了.它没有采用任何的控件形式.也没有调用系统API函数FindFirst,FindNext进行递归调用,和别人有点不同的就是我用的是VB中的Dir()函数.事实上,直接采用Dir()函数是不能进行自身的递归的调用的,但我们可以采用一种办法把Dir将当前搜索目录的子目录给保存下来,然后在自身的search(strPathName)递归函数中依次进行递归的调用,这样就可以把指定的目录搜索完毕. 具体代码如下: '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Q :--怎样在我的程序中实现文件下载 　　Re: 　　一个例子：一个Command，两个Text 代码如下： 　　　　　Private Declare Function DoFileDownload Lib "shdocvw.dll" (ByVal lpszFile As String) As Long 　　　Private Sub Command1_Click() 　　　　　Dim sDownload As String 　　　　　sDownload = StrConv(Text1.Text, vbUnicode) 　　　　　Call DoFileDownload(sDownload) 　　　　　End Sub 　　　Private Sub Form_Load() 　　　　　Text1.Text = "http://www6.50megs.com/audiograbber/demos/cr-ag161.zip&quo

　'文件名SourceDB.ini文件 　　Private Declare Function GetPrivateProfileString Lib "kernel32" Alias 　　"GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal 　　lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal 　　lpFileName As String) As Long 　　Private Declare Function WritePrivateProfileString Lib "kernel32" Alias 　　"WritePrivateProfileStringA" (ByVal lpApplicationName As String

4、调试IIS应用程序 　　调试一个IIS应用程序的方法和调试其他VisualBasic应用程序一样，都是通过进入运行模式来进行的。VisualBasic为IIS应用程序创建虚拟目录，使用浏览器打开相应.asp文件启动Webclass。调试时，可以使用VisualBasic的所有工具来调试你的工程。如设置断点、查看变量、调试语句等。 　　5、部署IIS应用程序 　　可以使用VisualBasic打包和展开向导来包装和部署你的IIS应用程序。打包和展开向导将工程的.DLL文件和所有相关的文件包装到一个“压缩包”或.cab文件中。然后可以部署这个压缩包文件和相关文件到一个Web服务器上

Private Sub SearchTpl_Respond() 　　　 SearchTpl.Write Template End Sub 　　与SearchTpl模板关联的SearchCondition页面让用户输入检索条件。其内容如下： 　　 　　＜HTML＞ 　　 ＜head＞ 　　　 ＜metahttp-equiv="Content-Type" content="text/HTML；charset=gb_2312-80"＞ 　　　 ＜title＞检索条件＜/title＞ 　　 ＜/head＞ 　　 ＜body bgcolor="#FFFFFF"＞ 　　　 ＜form action="SearchData_Webclass.asp？WCI=SearchResult" method="POST"＞ 　　　　 ＜p＞起始日期＜i

3、添加自定义的Webitem到Webclass 　　自定义的Webitem允许你通过VisualBasic代码动态地向浏览器发送响应。自定义的Webitem通常是一组过程代码。IIS应用程序中的大多数处理发生在自定义Webitem的事件过程中。IIS应用程序接收HTML页面的请求，与Webitem的事件进行匹配，并运行相应的事件过程代码。例如，我们添加一个名为SearchResult的自定义Webitem。它使用Request对象在SearchCondition页面窗体中获取用户输入的查询条件，然后建立一个连接到ADO公文数据库，创建记录集并从中检索满足条件的信息。 　　Private Sub SearchResult_Respon

本文介绍了利用VisualBasic开发IIS应用程序的方法和步骤。使用这种开发方法不但大大简化了IIS应用程序的开发过程，而且使我们的Web站点具有更强的功能和更大的灵活性。 　　一、概述 　　大家知道，IIS(Internet Information Server)应用程序是VisualBasic应用程序，它在动态的、基于浏览器的应用程序中使用HTML和已编译的VisualBasic代码。IIS应用程序驻留在Web服务器上，接受来自浏览器的请求，运行与请求相关联的代码并返回响应到浏览器。IIS应用程序可以使用VisualBasic代码来完成以前用脚本、CGI处理和其他方法完成的功能。IIS应用程

水晶报表（Crystal Report）是业内最专业、功能最强的报表系统，它除了强大的报表功能外，最大的优势是实现了与绝大多数流行开发工具的集成和接口。在VS.Net平台做过报表开发的程序员，一定都对水晶报表强大、高效、集成等特性留下了深刻印象。除了开发新程序外，在工作中我们常需要接触到很多较早的软件系统报表功能升级的需求，如果能结合水晶报表这一强大的工具，往往能事半功倍。 　　 VB是以前流行的数据库开发平台，用其开发的C/S系统在社会上有非常大的保有量，但VB超弱的报表功能往往让程序员面对客户的升级要求一筹莫展。本文并不

　　 第二步： 　　 点击Crystal Report设计器的"数据库字段"，选定"数据库专家…"，然后点"创建新连接"，再点"仅字段定义"，创建"数据库定义"文件，字段名和宽度和原数据库表保持一致。最后，在数据库字段中获得了相应字段，将其置于报表上，按水晶报表的要求配置。　　 第三步： 　　 该步骤非常关键，添加一个Modual到工程文件中，定义全局的ADODB变量，实现数据库和水晶报表的动态连接。代码如下： Public conn As New ADODB.Connection Public rs As New ADODB.Recordset 　　 第

（三） 类的方法、事件和属性的编程实例 ； 　　 本程序的设计目的是，通过类控制窗体中文本框的内容的全部大写、小写和逆向排序转化。 　　 为了方便代码的书写和调用，我在类中引用了枚举的编程方法。 　　 以下代码在类Class1： 　　 Option Explicit 　　　 Private WithEvents myTXT As TextBox 　　　 '方法的参数接口 　　　 Public Enum sTYLE 　　　　 Lcaseit'小写属性 　　　　 Lbigit'大写属性 　　　　 Nlogoit'逆向排序属性 　　　 End Enum 　　 '自定义枚举，用来实现属性的自动赋值 　　 Private mvarBiaozhi As sTYLE 　

（四） 窗体代码的引用编程 ； 　　 在窗体FORM1中添加文本控件TEXT1、下拉列表控件COMBO1、命令按钮COMMAND1（CAPTION="开始转化"），调整三个控件到适当位置。 　　 Dim myT As New Class1 　　 '类的引用 　　 Private Sub Form_Load() 　　　 Combo1.Clear 　　　 Combo1.AddItem "字符串大写转化" 　　　 Combo1.AddItem "字符串小写转化" 　　　 Combo1.AddItem "字符串逆向排序" 　　　 Combo1.ListIndex = 0 　　　 '在列表框中添加属性选项 　　 End Sub 　　 Private Sub Command1_Cli

（2） 类的引用 ； 　　 已经编写完成的类可以经过两种格式进行引用，第一种方式：Private（public或者dim) myCLS（指定的类名） As New cls（编写完成的类名）；第二种方式较多用于程序编写风格较“老”的程序员：首先在窗体代码中进行模块级声明——Dim myCLS As cls,然后在具体代码过程中进行具体定义—— Set mycls = New cls。这两种方式的效率和代码的简洁性方面可能会有所差别，但在笔者的编程实践中，并没有什么特别的感觉，不过我较多使用第一种方式，因为它书写起来更加方便。另外，在代码结束的时候，使用 Set myCLS = Nothing

在Visual Basic 6.0类的技术与应用（上）（以下简称上文）中，我们讨论了类的理论、类的创建和类的方法的编程实践，实际上，类之所以能够在软件工程中广泛应用，最主要的一点是它可以非常方便的封装许多编程需要的属性，这不仅使程序员在一定程度上克服控件（ocx）和链接库（dll）设计和调试中的复杂性，而且能够提高程序代码的简洁和高效性——本文将讨论完整的类的编程，包括方法、属性和基本事件。 　　 （一） 类的属性的特征和定义 ； 　　 类似于标准控件的属性，类的属性允许用户在指定的数据范围内进行赋值，这些值被类内的各个代

对程序员和编程爱好者来说，VB中类的技术是学习中的一个难点，在大型软件的开发过程中，模块（Moudle)、控件（Active ocx)、链接库（Active dll)和类（Class moudle)构成了系统化、高效化的软件工程，而类的技术是控件和链接库技术的基础，因此掌握类的理论和编程方法是非常有意义的。 （一） 类的基本定义和应用概述 ； 　　 类是包含了方法、属性、数据成员的高级代码模块，它既在模块的范畴之内，又是一个没有图形界面的Active ocx，程序员可以象使用控件一样使用它，但却不能看到它，值得注意的是，类是不能继承的。 类能够使我们高效

（二） 类的方法的实现 ； 　　 类的方法类似于动态链接库的接口函数，它能够接受其他窗体代码的指定类型参数，并且传递到类中。一般来说类的方法是能够指定是否有返回值的。它在类中通常是一个public过程。请看下面的代码示例，它使一个密码框拒绝非字母的输入： 　　 （1）类cls的代码； 　　 Option Explicit'变量检查 　　 　 Private WithEvents mytxt As TextBox 　　　 '本类中的方法接受和控制一个text密码框 　　 　 Dim isNUM As Boolean 　　 　 '类的模块级变量 　　 　 Public Sub Attach(itTEXT As TextBox) 　　 　 '接受外

很多软件都有保存用户设置的功能，以便用户下一次启动时其程序界面及相关设置都是自己最中意和习惯的，这使得软件具有人性化，用户用起来感到亲切。用VB编写的软件可以通过多种途径实现此功能，这里介绍用数据库方法来保存用户的个性化设置。 　　 假设我们已经完成了一个用TextBox做编辑栏的字处理程序，该程序提供了让用户对编辑栏背景色和字体的设置菜单，现在我们想让用户所作的设置能保存下来。怎么办呢？ 　　 第一步：给窗体添加一个Data控件。 　　 第二步：用Access建立一个名为Pad的数据库，在库中建立一个表Myset，给表添加四个

我不是VB熟练工，最近刚刚用VB做完一个程序，其中控制部分没费太大周折，倒是报表部分颇让我费了一翻脑筋。在网上找了半天，也没找到关于VB6的 DataReport的详细介绍，于是想借鉴"前辈"们的经验，用CrystalReport或EXCEL，感觉也不省劲，于是决定回头再去"啃"DataReport，别说，还真让有所收获，下面就简单的介绍一下我的体会，希望对大家能有所帮助。 　　 首先介绍一下DataReport对象的几个常用属性。一是DataSource，用于设置一个数据源，通过该数据源，数据使用者被绑定到一个数据库；二是DataMember，从DataSour

尽管vb5是apprent single-thread(单线程)的.但用addressof加上一些API,就可以非常容易的做多线程.(比VC容易的多,做出来的东西也一样快,因为都是用API). 每一个县城(线程,下同)约占用20毫秒的时间片. vb5有一个主线程.我们可以另外加一个工作线程.对于不清楚什么是单/多线程的程序元,我们用一个简单的列子来说明一下. 再form里加上两个timer控件. 吧interval属性设成5000(5秒),然后在两个timer1_timer事件中放一个大loop, 如for 10000 next. 运行. 你会看到第二个timer控件不会在五秒后执行,除非timer1的for-next结束. 同样,如果你的程序中

简言之，递归过程就是子程序自己调用自己。在编程有时采用递归的思路进行编程往往能够起到事半功倍的作用。 　　Win95的资源管理器具有界面直观、 操作简便的特点，深受广大电脑爱好者的欢迎和喜爱。 　　下面就采用递归过程模拟Windows的资源管理器。 　　递归过程实现的思路： 　　由于磁盘上的目录是树形结构，而树形的节点和节点级数是不受限定的，如把目录名放入一维或多维数组中则难度较大，不易实现。如采用VB的TreeView控件的Node对象，那就比较方便了。编一子程序，给定目录，并建立当前节点，加入Node对象中，根据Dir1控件判断给

语言上的改进 长期以来，在喜欢Visual Basic的程序开发者和喜欢另外一些更“复杂”的语言的程序员之间的关系一直都很紧张。我不止一次的为我所最爱的编程语言反驳诸如”玩具语言”之类的控诉，他们认为Visual Basic缺乏OOP的特征。 好，那么猜猜发生了什么？下一个版本的Visual Basic将最终结束他们的抱怨。Microsoft计划加入面向对象编程的三大特性：继承性、多态性和重载。这还不是所有！另外一些结构，包括结构化的错误处理和浏览也将被引入Visual Basic语言。 继承性的特性允许你设计一个基类，然后编写一些派生类，它们继承基类的功能