从一个实例开始跟我学Visual Basic

4.

我想看这部教程的应该大部分都 是学生，

如果你想在这方面发展的话，

希望你能够认真

对待你的学习生活

（开个玩笑，

我计算过以现在 的高校收费标准，

一节

100

分钟的课 平

均是

10

元，所以??）

?

大学数学：很多专业都不用学这个了，真的很可惜，现在的数学可能真的

有点变味了，一味的去追求问题的结果，而不是解决问题的方法和步骤。

举个例 子：就像现在的考研数学一样，你敢说一个思维活跃的人一定能拿

高分么！这不一定，应 试是需要练习，不断的练习，以达到一种机械化的

程度——这就是对试题的极大的熟悉， 这样，相信你也一定能在最后的分

数上超过真的猛士的。此时此地，对你而言，你要去领 悟数学的思维，数

学的方法。算法说道地跟“数学”是分不开的。

?

大学语文：很重要，我就没学 过这门课，弄的我现在的语言表达能力是那

个差啊！

?

大学英语、计算机体系结构和汇编 语言、计算机操作系统原理、数据结构

和算法、软件工程、

Wi ndows

程序设计

etc.

日后 ，你会觉的这些东西，真的很有用的，所以，请你不要浮躁，下文的叙述中，

我们会不同 程度上用到上面的知识的；

5.

< /p>

个人认为，无论是什么样的程序语言应该都不是很难，要不

cod er

为何挣的也不是很多

啊，

所以你要 有信心，一定要亲手去做，不要觉得自己会了，实践是检验真理的唯一标

准。

要用到的工具：

1.

Visual Basic 6.0

学习版＋

sp6

学习版就够了，当然其它的两种版本就更好了。

Visual

Basic

学习版让编程人员很容易

地创建功能强大的

Microsoft Windows

和

Windows NT(R) < /p>

应用程序。它包括了所有的

内部控件，

加 上网格、

选项卡、

和数据绑定控件。

与 此版本一起提供的文档包括

Learn VB

Now

（这是一张多媒体

CD-ROM

的标题）

，加上包含了完整联机文档的

Microsoft

Developer Network CD

。

2.

MSDN Library Visual Studio

当然如果你安装的不是精简版，这个基本上就不需要了，

VB

自带的帮助就可以的，要养成有问题自己解决，那么第一步就是 查看帮助文件了。

你还可以

Google

（

v.

）一下，或是

BBS

（

v.

）一下，注意，不要使用以下经典的蠢问 题：

问题：我能在哪找到

X

程序？

问题：我的 程序

/

配置

/SQL

< br>申明没有用

问题：我的

Windows

有问题，你能帮我吗？

问题：我在安装

Linux

（或者

X

）时有问题，你能帮我吗？

问题：我怎么才能

p jroot

帐号

/

窃取

OP

特权

/

读别人的邮件呢？

为什么呢？

For more click

/~esr/faqs/

3.

Windows API

函数

for Visual Basic

http://202. 103.176.81/erun/sealife/

，这个 就和

DOS

时代的

int

一样的重要，

Windows

给

< br>用户的是

ring3

，它不能让用户去动系统的核心

ring0

，而在很多时候是很必要的；我们

知道系统给我操作接口的同时，也给了我们命令接口，用这些已经封装好的

API

（应用

程序接口）

，可以降低我的的编程强 度。

进入正题

我给教程取名为从一个实例 开始，那么首先就让我来描述一下这个实例是用来完成什么的：

需求分析：

?

软件名：光驱使者

?

功能描述：通过按设置好的某个键 ，以达到让光驱弹出，关闭的效果。

（如果你的

机箱是放在地上 的，你会发现这会是非常有用的。

）

在开发一个项目时，

需求分析是非常重要的，

这一个环节出了问 题将会导致后面的环节

进行不下去，

作为教学，

为了方便起见我们做了以上的简化分析。

（注：

我的格 式很不规范，

如果日后你要做软件工程的话，

请你去找一下这些 方面的文档应该如何规范的去写的文章。

）

程序设计及代码编写阶段：

（如果你这是学

VB

的程序设计，

第一节

首先，看一下我们的快速原型 ，以后的开发就会在这个基础上展开：

以上就是我们的快速原型，呵呵。下面我们打开

VB

输入源码（别说你不会进啊！

）

：

〔文件〕

〔新建工程〕< /p>

〔标准〕

，然后在〔查看代码〕中写入源代码并在窗体（通常所说

的窗口）上画一个

Command

（按 钮）

，你先不必知道这些代码是用来干什么的，先让自己有

一点 的成就感再说。

源码见（

001

）

Option Explicit

Private Declare Function CDDoor Lib

( _

ByVal lpstrCommand As String, _

ByVal lpstrReturnString As String, _

ByVal uReturnLength As Long, _

ByVal hwndCallback As Long _

)

As

Long

'

CDdoor

函数是安装

WINDOWS

时所自带的

文件中包含的函数

Dim CDOpen As Boolean

'CD Open

用来标示光驱开与关的状态

Private Sub Command1_Click()

On Error Resume Next

If CDOpen = False Then

'

如果关闭则打开，并且按钮做相应变化

Call CDDoor(

CDOpen = True

n =

点击关闭光驱

Else

'

否则关闭

Call CDDoor(

CDOpen = False

n =

点击打开光驱

End If

End Sub

Private Sub Form_Load()

CDOpen = False

Call CDDoor(

End Sub

代码分析：

1.

Option Explicit

VB

中的变量在使用前是可以不加声明的， 而

Option

Explicit

则 要求变量必须显式

声明，

这一点可以然你在日后的程序调试时，

程序执行时更容易的发现错误，

而且可以

让你的程序阅读时更加的清晰；

2.

“

'< /p>

”后面的内容是注释

在程序的解释执行 时是不解释的，

但它的存在是非常重要的，

现代的程序要求的是

“清晰第一，效率第二”

，有了注释能够让程序的阅读者明白你 的程序是在做一件什么

样的事。

注意：

好的注解不是句句都要，句句都有注解相当于没有注解，

要在关键的代

< br>码上加以注解；

3.

Private Declare Function CDDoor Lib

( _

ByVal lpstrCommand As String, _

ByVal lpstrReturnString As String, _

ByVal uReturnLength As Long, _

ByVal hwndCallback As Long _

) As Long

看到上面的一 大堆是不觉的很恐怖啊！

其实这没什么，

这只不过是微软的程序 员事

先写好的“函数”

，

（