《VisualBasic菜鸟入门经典实例》由会员分享，可在线阅读，更多相关《VisualBasic菜鸟入门经典实例（46页珍藏版）》请在金锄头文库上搜索。
1、Visual Basic菜鸟入门经典实例这个专题是为爱好者准备的，如果你是专业人士，那么你可以放过不看，如果你想了解和学习编程，进而可以自娱自乐的设计一些小软件，那么就跟我来吧。第一课： Hello World 几乎所有程序语言都是从“Hello World ”开始，所以我们也从这里开始我们的VB 学习之旅。没学过编程的人常常会问，编程难不难，这个问题很难回答。难，的确很难，要编一个好的程序尤其是这样，并且有些程序还要用到一些其他专业的知识，比如说一个图形处理程序，就要对图像的格式有所了解，甚至一些美术知识；但编程也很容易，就拿VB 来说，编一个自娱自乐的小工具还是一件相当惬意的事情呢，当然它
2、没法完全代替人工，譬如说完成你的家庭作业、向学校发射导弹 作为第四代计算机语言，VB 的特点是显而易见的。因为是 “ 可视的 ” 所以我们不妨先看看VB 的界面（图1_1）（我用的是VB4.0 32 位版），很容易可以看到，屏幕上有五个窗口，（1）是菜单栏；（ 2）是工具箱（Tools Box ），里面是 VB 所需的控件；（ 3）是 VB 程序要设计的窗体（Form ）；（ 4）控件及窗体的属性（ Properties ），在 VB 中每一个控件都有其自己的属性，比如文本框有Text 属性，而任何一个控件都有一个自己唯一的名字，这使得我们无需编程就可以完成部分编程的工作；（5）是 VB 的文
3、件控制窗口，VB 的每一个程序称为一个项目（Project ），一个项目文件里往往包括以下两种文件，窗体（Form ）文件和模块（ Bas ）文件，当然还有Class 文件，这些文件组成一个完整的程序，而项目文件（Vbp ）则用来描述程序所包含的内容。实际上，我一直认为学习的最好方法就是实际操作一下，好，下面我们就来看一个最简单的程序，和所有的编程教科书一样，我们把第一个程序称为“Hello ，world ！” 。首先，我们先来熟悉一下窗体。如果你用过Win95 附件所带的画图板的话，那么你一定会很快熟悉VB 的窗体设计方法， 用鼠标单击一下工具箱中的任何一个控件，然后在窗体上任意拖动鼠标，你
4、就会得到一个所需的控件； 当然还有其他的方法得到控件，你可以在工具箱上双击得到一个控件；或是按住 Ctrl 键，再单击所需控件，重复第一次的步骤，你会发现，不用再回去点击工具箱了，点右键可以恢复鼠标指针，这样对于重复画同一个控件尤其有用。对于我们的第一个小程序，知道这些就已经足够了。现在你可以在我们的窗体上画如下控件一个图片框Picture Box ），用来显示图画，每一个控件建立的时候，系统都会给它设一个默认的名字(Name) ，这个 PictureBox 的名字就叫做Picture1 ， 为了方便起见， 我们以后的控件都使用缺省的名称。选定 Picture1 ，在左边的属性窗口中找到Pic
5、ture 属性，单击会出现，点击为 Picture1 选一个图像文件，VB 支持的图像文件有 BitMap 、WMF 、ICO 三种，微软为用户提供了一套图标文件，存放在 VB 目录的 Icons 目录下，选择 Iconsmiscface01.ico文件，这样图标就被装入了Picture1 。再选择 Pictrue1 的 Autosize 属性，设为1-True ，则会发现Picture1 以变成和图像一样大了；把BorderStyle定为 0-None ，去掉图片边框。用同样的方法再添加两个图片框：Picture2 （Picture ：face02.ico ）， Picture3 （Pict
6、ure ：face03.ico ）。图片框完成了，第二步，建立三个无线钮（Option Button ），由于它象收音机的无线电按钮而得名），把它们的标签名属性（Caption ）分别定为 “ 悲哀 ” ，“ 高兴 ” ，“ 没治了 ” ，放置成图1_2 的样子。最后我们还需要三个文本框（Text Box ），分别把它们的Text 属性设为 ”（空字符串），程序的最后界面如图1_3 ，这样按下菜单窗口的运行按钮，运行一下程序，还可以吧，不过现在程序还无法工作，就算是 VB 也不能免俗，还必须输入代码才能使程序运作。VB 是一门典型的面向对象编程的语言，它的整个程序都是由事件驱动的。那么，什么是
7、事件呢？其实，我们的生活中充满了各式各样的事件，比如说“ 闯红灯 ” 这个事件的发生会导致被警察追杀、走路撞到电线杆时会痛。上面的例子虽然有些滑稽，但它可以清楚的解释事件的含义，就象你马上就能体会到的在什么地方单击鼠标时会发生什么，按下键盘时会发生什么，这就是事件，而事件就是这么容易。要进入 VB 的代码设计区，只需在需要的控件或窗体上双击鼠标即可得到这样的窗口。如图1_4，每一个 VB 程序都由若干小程序组成，这使得用VB 编程更加容易，这些小程序，分为“ 过程 ” （Procedure ）和“ 函数 ” （Function ），二者都可以传递参数，所不同的是函数有一个返回值，而过程没有，仅
8、此而已。双击窗体的任何一个部分，将出现一个空的过程：“Form_Load()” ，这是一个非常重要的过程，它所驱动的事件就是该窗体被加载的事件，打个比方，就象计算机启动时的批处理程序（Autoexec.bat ）。 这个程序里我们要对控件进行一些设置。我们刚才也曾对控件进行设置，但那是在程序设置中进行的，有时我们也需要在程序中改变某些控件的属性，通过程序代码。VB 中规定，一个控件属性的访问方法：名称.属性，于是我们对本程序的控件进行如下设置：Private Sub Form_Load() Picture1.Visible = False Picture2.Visible = False Pi
9、cture3.Visible = False Text1.Visible = False Text2.Visible = False Text3.Visible = False End Sub Private 表示此过程是局部的， Sub 表示子过程的开始， 与之相对的是End Sub 表示过程的结束， Visible属性表示控件的可见性，这个属性的值有两个True 和 False 。注意：VB 里对大小写是不加区分的，而且，已定义的名称，以后再用到时，系统会自动把它变成相应的大写或小写。小知识：1.VB 里的对变量及常量的规矩。变量一般为 Abc 的格式，常量为ABC ，另外这些变量和常量名
10、不得同VB 内的关键字相同，也不可以使用一些特殊符号，这些我们将在以后介绍，注意在学习中养成好习惯，使程序便于自己和别人的浏览。2.程序书写的窍门：不要真的一句一句把程序打完，利用快捷键：拷贝Ctrl+C ，剪切 Ctrl+T ，粘贴 Ctrl+P 。按下 F5 ，运行一下程序，现在发现只剩下无线钮了。如图1_5 。Private Sub Form_Load() Picture1.Visible = False Picture2.Visible = False Picture3.Visible = False Text1.Visible = False Text2.Visible = Fals
11、e Text3.Visible = False Option4.Left = -2000 Option4.Value = True End Sub Left 属性表示控件离窗体左边框的距离，设置为2000 ，则在窗体内不会看到这个控件，并使之Value=True 。再运行程序，一切如愿，如图1_6 。注意：为什么不用Option4.Visible=False？因为，一旦设置无线钮为不可见，那么再使它的Value 为真是没有意义的，不信自己试试。下面我们可以继续进行了。在刚才的代码窗口里，将Object 选择为 Option1 ，Proc 选择为 Click ，即得到一个 Option1_Cli
12、ck的过程。代码如下：Private Sub Option1_Click() Picture1.Visible = True Picture2.Visible = False Picture3.Visible = False Text1.Visible = True Text2.Visible = False Text3.Visible = False Text1.Text = “ 再见，残酷的世界。“ End Sub 相同的建立 Option2_Click和 Option2_Click ：Private Sub Option2_Click() Picture2.Visible = True
13、Picture1.Visible = False Picture3.Visible = False Text2.Visible = True Text1.Visible = False Text3.Visible = False Text2.Text = “ 今天心情不错。 “ End Sub Private Sub Option3_Click() Picture3.Visible = True Picture2.Visible = False Picture1.Visible = False Text3.Visible = True Text2.Visible = False Text1.V
14、isible = False Text3.Text = “Hello,World。“ End Sub 好，我们的开山之作完成了！按下F5，玩一下吧。这个程序虽然简单，但也用到了许多基本知识，你开始感兴趣了吗？第二课： Visual Basic语法简介VB 的语法非常简单，在这一课中我选择了一个递归的实例来简要介绍Visual Basic语法。简言之，递归过程就是子程序自己调用自己。在编程有时采用递归的思路进行编程往往能够起到事半功倍的作用。Win95 的资源管理器具有界面直观、操作简便的特点，深受广大电脑爱好者的欢迎和喜爱。下面就采用递归过程模拟Windows的资源管理器。递归过程实现的思路：
15、由于磁盘上的目录是树形结构，而树形的节点和节点级数是不受限定的，如把目录名放入一维或多维数组中则难度较大， 不易实现。 如采用 VB 的 TreeView 控件的 Node 对象，那就比较方便了。 编一子程序，给定目录，并建立当前节点，加入Node 对象中，根据Dir1 控件判断给定目录下是否有下级目录，如有，添加下级节点，并加入Node 对象中；如无则退出子程序。即子程序的功能是：如给定目录有子目录存在，则展开当前目录求子目录。如果在给定目录展开完成后，把下级目录当成给定目录，并调用子程序进行展开，即可把给定目录下的数级子目录全部展开完毕。利用 VB 提供的 TreeView控件完全可以把磁
16、盘上的目录(包括子目录 )放入 Node 对象中，其界面具有资源管理器的特点。把磁盘上的目录放入Node 对象有多种方法，应该说采用递归方法是比较简洁的。实现的过程：1、 添加 TreeView控件到窗体中： 单击“ 工程 ”“部件 ” ，选择 Microsoft Windows Common Control 5.0 ” 复选框，单击 “ 确定 “ 按钮， TreeView 控件即可出现在工具箱中。2、 在窗体中添加Drive 、DirListBox 、ImageList控件。3、 控件名及主要属性如下：控件及窗体名属性设置值备注Form Name Form1 TreeView Name TreeView Drive Name Drive1 获得当前电脑的盘符DirListBox Name Drive ImageList Name ImageList 给 TreeView1的 Node 对象图标实现的源程序如下：Dim nodx As Node Private Sub Form_Load() 在 ImageList 控件中添加一个图象。Dim imgX As Lis
