[工学]数据库原理及应用附录_VB基础部分.ppt

Visual Basic程序设计基础 Visual Basic 编程入门 Visual Basic 语言基础 Visual Basic 窗体及控件 Visual Basic程序设计基础 Visual Basic 编程入门 Visual Basic 语言基础 Visual Basic 窗体及控件 例：单击窗体输出交换前后的变量a和变量b的值。 Private Sub Form_Click() Dim a As Integer, b As Integer, Temp As Integer 声明变量 a = 10 变量赋值 b = 20 Print 变量a和变量b交换前：; a; b 变量交换 Temp = a a = b b = Temp Print 变量a和变量b交换后：; a; b End Sub 语句输入时不区分大小写，一条语句通常写在一行中。 一行中若输入多条语句，需用“:”分隔。例如， Temp = a : a = b : b = Temp 长语句可通过续行符“ _”(空格后加下划线)分行。例如， Print a变量和b变量内容交换前：; a; b 可分成以下两行输入： Print a变量和b变量内容交换前：; _ a; b 单引号后面的内容为注释，可放在一行语句的最后，或单独占据一行。 数值前加上前缀H和O分别表示十六进制和八进制数。 标识符：变量、过程、函数以及其它对象的名字。 命名规则： 由字母、汉字、数字或下划线组成，第一个字符必须是字母或汉字。 长度不超过255个字符。其中，窗体、控件和模块的标识符长度不能超过40个字符。 不要与VB中的关键字同名 “见名知义” 赋值语句语法格式： 变量名=表达式 作用：变量赋值或设置对象属性。例如： Pi = 3.1415926 strTemp=“Hello!” Form1.Caption = “VB程序设计示例” Form1.BackColor = vbWhite 说明： 只有当表达式的类型与变量的数据类型兼容时，该表达式的值才可以赋给相应的变量或属性。 不管表达式是什么类型，都可以赋给Variant(变体类型)变量。 Visual Basic程序设计基础 Visual Basic 编程入门 Visual Basic 语言基础 Visual Basic 窗体及控件 Visual Basic 窗体及控件 文本框TextBox Text属性：字符串类型。返回或设置文本框中显示的内容。 例如：Text1.Text = “欢迎使用Visual Basic” MultiLine属性：布尔型。当MultiLine属性为True时，文本框可以输入或显示多行文本，且会在输入的内容超出文本框时自动换行。默认值为False。 Locked属性：设置是否允许用户编辑文本框中的文本 PasswordChar属性：用于口令输入。如果将PasswordChar属性设置为一个字符，如星号(*)，则在文本框中键入字符时，只显示星号，不显示键入的字符。 ScrollBars属性：用于确定文本框是否带滚动条。 Visual Basic 窗体及控件 文本框TextBox Change事件： 当用户向文本框输入新的内容，或在程序代码中对文本框的Text属性进行赋值从而改变了文本框的Text属性时，将触发Change事件。 GotFOCUS事件： 当运行时用Tab键或用鼠标选择对象，或用SetFOCUS方法使光标落在对象上时，触发该事件，称之为“获得焦点”。该事件适用于窗体和大部分可接受键盘输入的控件。 LostFOCUS事件： 当按下Tab键使光标离开当前文本框，或者用鼠标选择窗体的其他对象时触发该事件，称之为“失去焦点”。 Visual Basic 窗体及控件 文本框TextBox 例：同步显示 Private Sub Text1_Change() Text2.Text = Text1.Text End Sub Private Sub Command1_Click() 重新输入 Text1.Text = Text1.SetFocus End Sub 两个文本框： MultiLine设为True ScrollBars设为2 Visual Basic 窗体及控件 例：彩票开奖器 两个控件数组：Command1和Label1 控件数组是指同类控件(如本例中的四个标签控件)的Name属性值相同，使用下标引用控件数组中的各个控件 Label1 控件数组 Command1 控件数组 Private Sub Command1_C