没有合适的资源?快使用搜索试试~ 我知道了~
Visual_Basic菜鸟入门经典实例.doc
4星 · 超过85%的资源 需积分: 22 10 下载量 160 浏览量
2012-08-13
16:06:56
上传
评论 2
收藏 194KB DOC 举报
温馨提示
试读
29页
这个专题是为爱好者准备的,如果你是专业人士,那么你可以放过不看,如果你想了解和学习编程,进而可以自娱自乐的设计一些小软件,那么就跟我来吧。
资源推荐
资源详情
资源评论
Visual Basic 菜鸟入门经典实例
这个专题是为爱好者准备的,如果你是专业人士,那么你可以放过不看,如果你想了
解和学习编程,进而可以自娱自乐的设计一些小软件,那么就跟我来吧。
第一课:Hello World
几乎所有程序语言都是从“Hello World”开始,所以我们也从这里开始我们的 VB 学习之
旅。
VB 入门之“Hello World”
[文章信息] 作者: 时间: 2004-02-14 出处: VB 大世界 责任编辑: 方舟
[文章导读] Visual Basic 入门的第一课,介绍如何使用 vb 开发工具
没学过编程的人常常会问,编程难不难,这个问题很难回答。难,的确很难,要编一
个好的程序尤其是这样,并且有些程序还要用到一些其他专业的知识,比如说一个图形处
理程序,就要对图像的格式有所了解,甚至一些美术知识;但编程也很容易,就拿 VB 来
说,编一个自娱自乐的小工具还是一件相当惬意的事情呢,当然它没法完全代替人工,譬
如说完成你的家庭作业、向学校发射导弹……
作为第四代计算机语言,VB 的特点是显而易见的。因为是“可视的”所以我们不妨先
看看 VB 的界面(图 1_1)(我用的是 VB4.0 32 位版),很容易可以看到,屏幕上有五
个窗口,(1)是菜单栏;(2)是工具箱(Tools Box),里面是 VB 所需的控件;(3)
是 VB 程序要设计的窗体(Form);( 4)控件及窗体的属性(Properties),在 VB 中
每一个控件都有其自己的属性,比如文本框有 Text 属性,而任何一个控件都有一个自己唯
一的名字,这使得我们无需编程就可以完成部分编程的工作;(5)是 VB 的文件控制窗口,
VB 的每一个程序称为一个项目(Project),一个项目文件里往往包括以下两种文件,窗
体(Form)文件和模块(Bas)文件,当然还有 Class 文件,这些文件组成一个完整的程
序,而项目文件(Vbp)则用来描述程序所包含的内容。
实际上,我一直认为学习的最好方法就是实际操作一下,好,下面我们就来看一个最
简单的程序,和所有的编程教科书一样,我们把第一个程序称为“Hello,world!”。
首先,我们先来熟悉一下窗体。如果你用过 Win95 附件所带的画图板的话,那么你一
定会很快熟悉 VB 的窗体设计方法,用鼠标单击一下工具箱中的任何一个控件,然后在窗
体上任意拖动鼠标,你就会得到一个所需的控件;当然还有其他的方法得到控件,你可以
在工具箱上双击得到一个控件;或是按住 Ctrl 键,再单击所需控件,重复第一次的步骤,
你会发现,不用再回去点击工具箱了,点右键可以恢复鼠标指针,这样对于重复画同一个
控件尤其有用。
对于我们的第一个小程序,知道这些就已经足够了。现在你可以在我们的窗体上画如
下控件一个图片框 (Picture Box),用来显示图画,每一个控件建立的时候,系统都
会给它设一个默认的名字(Name),这个 PictureBox 的名字就叫做 Picture1,为了方便起见,
我们以后的控件都使用缺省的名称。选定 Picture1,在左边的属性窗口中找到 Picture 属性,
单 击 会 出 现 , 点 击 为 Picture1 选 一 个 图 像 文 件 , VB 支 持 的 图 像 文 件 有
BitMap、WMF、ICO 三种,微软为用户提供了一套图标文件,存放在 VB 目录的 Icons 目
录下,选择 Icons\misc\face01.ico 文件,这样图标就被装入了 Picture1。再选择 Pictrue1
的 Autosize 属 性 , 设 为 1-True , 则 会 发 现 Picture1 以 变 成 和 图 像 一 样 大 了 ; 把
BorderStyle 定 为 0-None , 去 掉 图 片 边 框 。 用 同 样 的 方 法 再 添 加 两 个 图 片 框 :
Picture2(Picture:face02.ico), Picture3(Picture:face03.ico)。
图片框完成了,第二步,建立三个无线钮(Option Button) ,由于它象收音机的
无线电按钮而得名),把它们的标签名属性(Caption)分别定为“悲哀”,“高兴”,“没治了”,
放置成图 1_2 的样子。
最后我们还需要三个文本框 (Text Box),分别把它们的 Text 属性设为””(空字
符串),程序的最后界面如图 1_3,这样按下菜单窗口的运行按钮,运行一下程序,还可
以吧,不过现在程序还无法工作,就算是 VB 也不能免俗,还必须输入代码才能使程序运
作。
VB 是一门典型的面向对象编程的语言,它的整个程序都是由事件驱动的。那么,什么
是事件呢?其实,我们的生活中充满了各式各样的事件,比如说“闯红灯”这个事件的发生
会导致被警察追杀、走路撞到电线杆时会痛。上面的例子虽然有些滑稽,但它可以清楚的
解释事件的含义,就象你马上就能体会到的在什么地方单击鼠标时会发生什么,按下键盘
时会发生什么,这就是事件,而事件就是这么容易。
要进入 VB 的代码设计区,只需在需要的控件或窗体上双击鼠标即可得到这样的窗口。如
图 1_4,每一个 VB 程序都由若干小程序组成,这使得用 VB 编程更加容易,这些小程序,
分为“过程”(Procedure)和“函数”(Function),二者都可以传递参数,所不同的是函
数有一个返回值,而过程没有,仅此而已。
双击窗体的任何一个部分,将出现一个空的过程:“Form_Load()”,这是一个非常重
要的过程,它所驱动的事件就是该窗体被加载的事件,打个比方,就象计算机启动时的批
处理程序(Autoexec.bat)。 这个程序里我们要对控件进行一些设置。我们刚才也曾对
控件进行设置,但那是在程序设置中进行的,有时我们也需要在程序中改变某些控件的属
性,通过程序代码。VB 中规定,一个控件属性的访问方法:名称.属性,于是我们对本程
序的控件进行如下设置:
Private Sub Form_Load()
Picture1.Visible = False
Picture2.Visible = False
Picture3.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,另外这些变量和常量名不得同 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 = False
Text3.Visible = False
Option4.Left = -2000
Option4.Value = True
End Sub
Left 属性表示控件离窗体左边框的距离,设置为-2000,则在窗体内不会看到这个控
件,并使之 Value=True。再运行程序,一切如愿,如图 1_6。
注意:为什么不用 Option4.Visible=False?
因为,一旦设置无线钮为不可见,那么再使它的 Value 为真是没有意义的,不信自己
试试。
下面我们可以继续进行了。在刚才的代码窗口里,将 Object 选择为 Opon1,Proc 选
择为 Click,即得到一个 Opon1_Click 的过程。代码如下:
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
相同的建立 Opon2_Click 和 Opon2_Click:
Private Sub Option2_Click()
Picture2.Visible = True
Picture1.Visible = False
Picture3.Visible = False
Text2.Visible = True
Text1.Visible = False
Text3.Visible = False
Text2.Text = "今天心情不错。"
End Sub
Private Sub Option3_Click()
剩余28页未读,继续阅读
资源评论
- sppompous2012-09-25经典实例,不复杂,入门刚好!
qiufucai
- 粉丝: 0
- 资源: 2
上传资源 快速赚钱
- 我的内容管理 展开
- 我的资源 快来上传第一个资源
- 我的收益 登录查看自己的收益
- 我的积分 登录查看自己的积分
- 我的C币 登录后查看C币余额
- 我的收藏
- 我的下载
- 下载帮助
安全验证
文档复制为VIP权益,开通VIP直接复制
信息提交成功