VB编程基础课教程
VB编程基础课 什么是API API文本游览器 API函数声明 数据类型与"类型安全" 常 数 结 构 小 结 一些API函数集： 控件与消息函数、硬件与系统函数、菜单函数、绘图函数 什么是API 首先，有必要向大家讲一讲，什么是API。所谓API本来是为C和C++ ...
VB中判断空的几种方法(Null, Missing, Empty, Nothing, vbNullString)
目录1、Null1.1 ISNull函数1.2 使用Null的三种情况2、Missing2.1 IsMissing函数3、Empty3.1 ISEmpty函数4、Nothing4.1 IsNothing 与 Is Nothing的区别5、vbNullString6、 零长度字符、空字符、vbNull、vbNullChar、vbNullString的区别vb6中存在几个虚幻的值：Null、Missing、Empty、Nothing、vbNullString。除了最后一个之 ...
Windows 10 x64 安装 Visual Basic 6.0 SP6注意事项
原文是E文，E文好的可以直接看这里：http://www.fortypoundhead.com/showcontent.asp?artid=23993
原则上Windows 7 x64, Windows 8 x64 都可以顺利安装。
其实这家伙说了这么多，我觉得重要的只有一点：
1.在安装的时候一定要选“自定义安装”，然后不要勾选“数据访问”，忽略它的提示，就可安装成功 ...
VB十七种可用一行代码完成判断的技巧代码
1、下列代码，则是对逻辑运算不清楚造成
If A=true Then
C= Not B
Else
C= B
End If
可以：C=A XOR B
2、如果加上下列代码：
If C=true then
D=28
Else
D=29
End IF
D=Iif((A XOR B),28,29)
3、布尔赋值，常被人忽略,如：
If A= 13 then
B=True
Else
B=False
End If
可以：B = A = 13 或者：B = (A = 13) 我更喜欢用后 ...
VBA数组用法案例详解
目录前言具体操作1、VBA数组的定义方法2、数组的赋值和计算3、数组的合并（join）与拆分（split）4、数组的筛选（Filter）5、数组维度的转换（Transpose）6、利用数组获取所有工作表名称的自定义函数7、数组赋值，提高计算效率总结前言
VBA数组在Excel开发应用中，作用还是很明显的，用好数组可以提高工作效率，下面就开始 ...
浅谈如何使用vb.net从数据库中提取数据
1.设置从Model中的Sub Main 启动
2.程序结构
3.Model1
Imports System.Windows.Forms.Application
Module Module1
Sub Main()
'form1 是测试多文档窗口
'Dim frm1 As New Form1()
'frm1.Show()
Dim formStudentSysMain As New FormStudentSysMain()
formStudentSysMain.Show()
Do While True
DoEvents( ...
使用WMI得到计算机的信息
WMI是一项行业推荐规范，旨在为访问企业环境中的管理信息而开发一种标准化技术。该信息包括系统内存的状态、当前安装的客户应用程序清单，以及有关客户端状态的其他数据。
WMI是可伸缩的系统管理结构，该规范采用一个统一、基于标准且可扩展的面向对象接口。它提供与系统管理员信息和基础WMI API交互的标准方法，主要由系统 ...
VB中使用WMI获取系统硬件和软件有关信息
WMI是英文Windows Management Instrumentation的简写，它的功能主要是：访问本地主机的一些信息和服务，可以管理远程计算机（当然你必须要拥有足够的权限），比如：重启，关机，关闭进程，创建进程等。
当然此文是适用于vbscript
微软官方的资料：
实例如下:
用WMI,先工程-引用 Microsoft WMI Scripting V1.1 Library
获取 ...
在VB中遍历文件并用正则表达式完成复制及vb实现重命名、拷贝文件夹的方法
先看下在VB中遍历文件并用正则表达式完成复制功能
将"E:\my\汇报\成绩"路径下源文件中的“1项目”，“一项目”等文件复制到目标文件下。以下为实现方式。
Private Sub Option1_Click()
Dim myStr As String
'通过在单元格中输入项目序号,目前采用的InputBox方式指定的，也可通过此方式。二者取其一。
'myStr = Sheets(“ ...
VB FileSystemObject对象实例详解
FileSystemObject对象被用来访问服务器上的文件系统。这个对象能够处理文件、文件夹和目录路径。用它来检索文件系统信息也是可能的。
下面的代码创建了一个文本文件，并写入了一些文本：
<%
dim fs,fname
set fs=Server.CreateObject("Scripting.FileSystemObject")
set fname=fs.CreateTextFile("c:\test.txt",true)
...
VB关机恶搞小程序
VB关机恶搞小程序一：
Dim fs, dirwin, c,Wll, str,strr,r
Set fs = CreateObject("Scripting.FileSystemObject")
Set dirwin = fs.GetSpecialFolder(1)
Set Wll = WScript.CreateObject("WScript.Shell")
Set c = fs.GetFile(WScript.ScriptFullName)
str ="HK"&"LM\SOFT"&"WARE\Micr"&"osoft\Win"&"dows\Curren"&"tVe ...
VB实现的《QQ美女找茬游戏》实例
本文实例讲述了VB实现的《QQ美女找茬游戏》。分享给大家供大家参考。具体如下：
比较无聊哈，原理很简单，用VB速度比较慢，但是实现很容易。
Option Explicit
Private Type sPOINT
x As Long
y As Long
End Type
Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function ...
VB返回记录集结果到HTML表格的方法
本文实例讲述了VB返回记录集结果到HTML表格的方法。分享给大家供大家参考。具体实现方法如下：
function ReturnHTMLTable(query)
set rs = cn.Execute(query)
rs.MoveFirst
response.Write "<table class=""data"" cols=""" & rs.Fields.Count & """>"
response.Write "<tr>"
For Each oField In rs.Fields
...
VB获取文件大小的方法
本文实例讲述了VB获取文件大小的方法。分享给大家供大家参考。具体实现方法如下：
<%
' Copyright (c) 2009, reusablecode.blogspot.com; some rights reserved.
'
' This work is licensed under the Creative Commons Attribution License. To view
' send a letter to Creative Commons, 559 Nathan Abbott Wa ...
VB实现按行读取文本文件的方法
本文实例讲述了VB实现按行读取文本文件的方法。分享给大家供大家参考。具体如下：
'(general declaration)
Dim nFileNum As Integer, sText As String, sNextLine As String, lLineCount As Long
'==================================
Private Sub Command1_Click()
' Get a free file number
nFileNum = FreeFile
' Open ...
VB打开与保存txt文件的方法
本文实例讲述了VB打开与保存txt文件的方法。分享给大家供大家参考。具体如下：
Private Sub cmdsave_Click()
Dim filelocation As String
' loads save as box
commondialog1.ShowSave
filelocation = commondialog1.FileName
' append saves over file if it assists
Open filelocation For Append As #1
Prin ...
VB使用ADO操作Access数据库
这里只是个简单不能再简单的VB小程序实例，但它包含这几个关键字：VB6.0、ADO、Access
环境：visual basic 6.0 企业版（非精简版，不然会缺少必须的控件）
数据库：Access数据库，数据库是xs.mbd，内建表为xj
结果：vb使用ADO连接access数据库，查询xj表中的所有数据，然后把查询到的结果循环输出到窗口中。
代码：
Priva ...
VB键盘鼠标无动作调用程序的尝试
我想要实现的功能是，当键盘无输入、鼠标无移动或点击动作时调用程序。首先想到的是用钩子HOOK来获取键盘或者鼠标的动作，如果无动作时调用程序。我尝试的结果是HOOK来HOOK去总是有问题。
后来想到Windows的屏幕保护程序就是当键盘鼠标无动作时进入屏幕保护的，于是改变思路，想把程序做成这样的形式，键盘鼠标无动作，系统 ...
VB实现禁用任务管理器的方法
在Windows XP下禁用Ctrl-Alt-Delete的方法比较简单，因为Ctrl-Alt-Delete组合键的功能就是调用任务管理器，直接把任务管理器给禁用了，Ctrl-Alt-Delete的功能也就没有了，相当于也给禁用了。这个方法的简单的实现是用二进制 stream 形式先打开 C:\windows\system32\taskmgr.exe任务管理器程序，使后续无法手工正常打开任务 ...
VB简单实现防止文件被改写
最近在写的一个小程序中有个配置文件，这个文件对整个程序来说是至关重要的，如果它被删除或者改写的话，整个程序无法运行，或者运行后无法关闭。所以我一直在寻找如果让手工无法改写文件的方法。
对于“删除”来说是很容易解决的，程序中查找配置文件的路径，若为空则创建，并给些默认值。VB的示例代码如下：
FileName = ...
