我们知道在DOS下我们可以利用批处理文件来执行一些基本的系统和文件操作。而为了让用户能在Windows下同样得到功能，微软提供了Windows Script Host。在本文中我向大家介绍的是如何在VB中使用Windows Script Host对象来丰富自己的程序。 打开VB，点击菜单中的Project|References项，在弹出的References列表中如果有一项：Windows Script Host Object Modle。那么说明你的系统中已经安装了Windows Script Host对象，选中该对象然后再按确定键就可以将Windows Script Host对象加入到自己的工程中了。 1、获得Windows下一些特殊目录…
今天我们举一个简单的例子说下怎么在Visual Basic6.0中自定义一个类并使用。运行"Microsoft Visual Basic 6.0 中文版"，选择"标准EXE"： 选择"工程"菜单下"添加类模块"： 将类模块名称改为"mzwu"： 打开类模块代码窗口，定义一个方法add，此方法返回其两个参数之和，代码如下： 在Form1中添加一个label和Command，界面如下： 双击Command1，打开代码窗口，输入代码： F5运行程序，单击Command1，结果如下图示： OK，一个简单的Visual Basic6.0类这样就好了。 附："实时错误91 对象变量或With块变量未设置"错误…
方法一： 1.以下代码放在通用部分： Option Explicit Dim num As String, temp As Integer, i As Integer Private Const SWP_NOSIZE = &H1 Private Const SWP_NOMOVE = &H2 Private Const SWP_NOZORDER = &H4 Private Const SWP_NOREDRAW = &H8 Private Const SWP_NOACTIVATE = &H10 Private Const SWP_FRAMECHANGED = &H20 Private Const SWP_SHOWWINDOW = &H40…
Visual Basic作为应用程序的开发“利器”也表现在数据库应用程序的开发上，它良好的界面和强大的控件功能使数据库编程变得简单多了。但即便如此，数据库应用程序的开发仍然算得上是VB编程中的难点，这是因为你不仅要熟悉VB中关于数据库编程方面的知识（当然这是十分简单的）还要了解数据库的知识。所以我们先介绍一下数据库的基本知识，算是学习数据库编程前的热身运动吧！ 一、热身运动 首先需要声明是，我们这里介绍的数据库知识都是指的关系数据库。所谓关系数据库就是将数据表示为表的集合，通过建立简单表之间的关系来定义结构的一种数据库。 不管表在数据库文件中的物理存储方式如何，它都可以看作一组行和列，与电子表格的行和列类似。在关系数据库中，行被称为记录，而列则被称为字段。下面是一个客户表的例子。…
本文介绍了利用VisualBasic开发IIS应用程序的方法和步骤。使用这种开发方法不但大大简化了IIS应用程序的开发过程，而且使我们的Web站点具有更强的功能和更大的灵活性。 一、概述 大家知道，IIS(Internet Information Server)应用程序是VisualBasic应用程序，它在动态的、基于浏览器的应用程序中使用HTML和已编译的VisualBasic代码。IIS应用程序驻留在Web服务器上，接受来自浏览器的请求，运行与请求相关联的代码并返回响应到浏览器。IIS应用程序可以使用VisualBasic代码来完成以前用脚本、CGI处理和其他方法完成的功能。IIS应用程序可以在任何浏览器上运行，因此它很容易得到广泛的应用。对用户来说，一个IIS应用程序好象是由一系列的HTML页面组成。对开发者来说，一个IIS应用程序是由一些被称为Webclass的特殊类型对象组成。而Webclass包含一系列称为Webitem的资源。Webclass作为应用程序的核心，处理来自浏览器的数据并向用户发送信息。Webitem是Webclass为响应一个请求发送给浏览器的HTML页面和其他数据。…
看这段代码： Private Sub Command1_Click() Shell "control.exe" End Sub 一个简单的按钮，执行一句shell，就打开了控制面板。 如果我们这样子做写，也打开了控制面板： Shell "rundll32.exe Shell32.dll,Control_RunDLL", 1 看到了，这便是系统调用，比用API函数好用多了。 当然，如果想打开控制面板中相应的内容，则可以这样子写： Shell "rundll32.exe Shell32.dll,Control_RunDLL appwiz.cpl" 说明：appwiz.cpl是添加删除文件组件，是专用控制面板打开。当然，你想更简单写，就这样子：…
31 Then Err.Raise 6 End If If (lValue And m_l2Power(31 - iShiftBits)) Then LShift = ((lValue And m_lOnBits(31 - (iShiftBits + 1))) * m_l2Power(iShiftBits)) or &H80000000 Else LShift = ((lValue And m_lOnBits(31 - iShiftBits)) * m_l2Power(iShiftBits)) End If End Function Private Function str2bin(varstr)…
一、运行服务器网页 新建立一个模块 然后再其中添加如下代码 ： Option Explicit Public Const email = "support@online.com" Public Const URL = "http://blog.csdn.net/flm2003/" Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long…