VB程序设计基础 全套课件 VB教程第1章课堂讨论

VB程序设计第一章Visual Basic 程序设计概述主要内容●窗体（Form）窗口●属性(Properties)窗口●工程资源管理器(Project Explorer)窗口（代码查看、查看对象、切换文件夹按钮）●代码(Code)窗口●立即(Immediate)窗口●窗体布局(Form Layout)窗口●工具箱(ToolBox)窗口●工具栏的定制●用户自定义常用控件的名称前缀和默认名称什么是Visual BasicVisual Basic 6.0中文版是一种应用程序开发工具，它的功能就是用来编程——编制适合在Windows95/98/NT操作系统下的应用程序。

首先是”Visual”,”Visual”一词在辞典上的含义是”看的、视觉的、用于看的”，引伸到计算机程序设计领域中就变为”可视化的程序设计”，Microsoft公司的其他冠以Visual的产品也都含有这个意思。

何谓‛可视化程序设计‛？它指的是一种开发图形用户界面的方法，使用这种方法，程序员不须编写大量代码去描述界面元素的外观和位置，只要把预先建立的界面元素用鼠标拖放到屏幕上适当的位置即可。

Visual Basic是在原有BASIC语言的基础上进一步发，至今包含了数百条语句、函数及关键词，其中很多和Windows GUIe直接关系。

专业人员可以用Visual Basic实现其他任何Windows编程语言的功能，而初学者只要掌握几个关键词就可以建立实用的应用程序。

所以，Visual Basic 这两个单词连在一起，就可以从中得到关于它的一个简单的概念——使用Basic语言进行可视化程序开发的工具。

1.1 VB的功能特点1.1.1 引例运行myvb夹中的vb1\ex1_1\lbc01_1.vbp程序代码：Dim step1 As IntegerDim step2 As IntegerPublic Sub center() '将标签控件移到窗体中央Label1.Top = (form1.Height - Label1.Height) / 2Label1.Left = (form1.Width - Label1.Width) / 2 Label1.Move Label1.Left, Label1.Top End SubPublic Sub mymoveleftright() '左右移动过程Label1.Move Label1.Left + 50 * step2, Label1.TopIf Label1.Left > form1.Width Then step2 = -1ElseIf Label1.Left < 0 Then step2 = 1 End If End SubPublic Sub mymove() '上下移动过程Label1.Move Label1.Left, Label1.Top +50 * step1If Label1.Top + 1.5 * Label1.Height > form1.Height Then ‘到达窗体底部 step1 = -1ElseIf Label1.Top < 0 Then ‘到达窗体顶部 step1 = 1 End If End SubPrivate Sub cmdauto_Click() ‘上下自动按钮Timer1.Interval = 200 '0.2秒激活执行一次过程mymove （上下移动) Timer2.Interval = 0 '撤销左右自动移动 Call center End SubPrivate Sub cmdhand_Click() ‘手动按钮 Timer1.Interval = 0 '撤销上下自动移动 Timer2.Interval = 0 '撤销左右自动移动 Call mymove '执行手动移动程 End SubPrivate Sub cmdleferight_Click() ‘左右自动按钮Timer2.Interval = 200 '0.2秒激活执行一次过程左右移动过程 Timer1.Interval = 0 '撤销上下自动移动过程 Call centerEnd SubPrivate Sub Form_Load()step1 = 1Timer1.Interval = 0step2 = 1cmdleferight.TabIndex = 0 '设置焦点在命令控件cmdleferightform1.Picture = LoadPicture("club01.jpg")End SubPrivate Sub Timer1_Timer() ‘定时器1事件Call mymove '调用上下移动过程End SubPrivate Sub Timer2_Timer()‘定时器2事件Call mymoveleftright '调用左右移动过程End Sub[引例2] 灯光字体闪烁运行myvb夹中的vb1\ex1_2\lbc1_2.vbpPrivate Sub Form_Load() Array Image2.Left = Image1.LeftImage2.Top = Image1.TopImage2.Height = Image1.HeightImage2.Width = Image1.WidthEnd SubPrivate Sub Timer1_Timer()Image2.Visible = Not Image2.VisibleForm1.Caption = "灯光闪烁 " + Date$ + " " + Time$Label1.ForeColor = RGB(500 * Rnd, 500 * Rnd, 500 * Rnd) '框架字体变色显示End Sub1.1.2 VB功能和特点1．具有面向对象的可视化设计工具在VB中，应用面向对象的程序设计的方法（Object –Oriented Programming）,把程序和数据封装起来视为一个对象，每个对象都是可视的。