第一个 Visual Basic 应用程序创建 Visual Basic 应用程序是很简单的事。有多简单？为回答这个问题，试着创建下面的 Hello , Visual Basic 和 Firstapp 应用程序。 你好，Visual Basic 创建 Visual Basic 应用程序有三个主要步骤： 1. 创建应用程序界面 2. 设置属性 3....

2008-02-23 07:02:04

语法：Set objectvar = {[New] objectexpression | Nothing} Nothing 为选择性引数。停止 objectvar 和任何特定物件的关连。指定 objectvar 为 Nothing，会在没有其它变数引用时，释放所有与先前物件有关的系统和内存资源。 当 objectvar 设定成 FormName 时，会将该 Fo...

2008-02-23 07:02:04

由于 Bug，在使用 Internet Transfer Control 时，Username 及 Password 必须设定在 URL 之后，否则无效！以下的程序码是错的： Inet1.Password = "Chicken_Feet" Inet1.UserName = "JohnnyW" Inet1.URL = FTP://ftp.32X.com Inet1.Text = Inet1.OpenURL 但是如果改成以...

2008-02-23 07:02:01

假设我们要让使用者在“方程式”栏位中自由输入方程式，然后利用方程式进行计算，则引用ScriptControl控件可以很方便地做到。 ( ScriptControl 控件附属于VB 6.0，如果安装后没有看到此一控件，可在光盘的 CommonToolsVBScript 目录底下找此一控件， 其.文件名为Ms...

2008-02-23 07:02:02

Visual Basic 概念 为了理解应用程序开发过程，先要理解 Visual Basic 赖以创建的一些关键概念。因为 Visual Basic 是 Windows 开发语言，所以有必要与 Windows 环境保持一定的相似性。如果不熟悉 Windows 编程，就需要明白在 Windows环境下编程和在其它环境下编程的一...

2008-02-23 07:02:01

这个问题，您一定无法想像有多容易，您可以产生任何形状的 Form，但必须借助 CreateEllipticRgn 及 SetWindowRgn 二个 API ，例如： Private Declare Function CreateEllipticRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long...

2008-02-23 07:02:00

我想声明 a,b,c 三个字串变量 Dim a, b, c as string * 4 (错的) 这样的声明在 VB 中，结果可能和您要的不同！ 有些程式语言，例如 C，类似以上的声明表示三个字串变量。 但是在 VB 中却不是如此！ 以上的声明在 VB 中表示声明了 a,b 2 个 variant (不定形态变量)，以及...

2008-02-23 07:01:59

大型应用系统启动运行的时间需要很长时间,其时间会根据需要初始化的数量和用户系统的速度变化,因此在主窗口显示前,应显示一个初始化窗口,使应用程序看起来更具吸引力,因为当装载程序时不断可以向用户显示一些信息，而且可产生美观的视觉效果。例如VB、Delphi在启动时均...

2008-02-23 07:01:57

Sub Form1_Load() Dim db As Database Dim ds As Snapshot Dim iNum As Integer '总笔数 Dim wsql As String 'SQL字串 wsql = "Select Count (*) from Authors Where AU_ID 10" Set db = OpenDatabase("c:VBbiblio.mdb") Set ds = db.CreateSnapshot(wsql) iNum = ds(...

2008-02-23 07:01:58

参数 : 1：要检查的字串 [准备移除其中某些字符] 2：要移除的字符 (数字/中英文) 程序码 Function StringCleaner(s As String, Search As String) As String Dim i As Integer, res As String res = s Do While InStr(res, Search) i = InStr(res, Search) res = Left(r...

2008-02-23 07:01:56