教学设计：Visual Basic程序设计--8.3 电子通讯录

教学要求
要求掌握：
1．ListBox的常用属性及ListIndex属性的应用。
2．Form_Load()事件的应用。
3．在ListBox中添加项目及用LoadPicture装载图像的方法。
4．选择结构程序的设计方法及条件语句的应用。
要求了解：
赋值语句、运算符、条件语句
重点:
用ListBox等控件设计用户界面，Form_Load()事件的应用，在ListBox中添加项目，ListBox的ListIndex属性的应用，选择结构程序设计的方法及条件语句的应用。
难点:
选择结构程序设计的方法及程序代码的编写。
1.规划：
2.设计Form1

对象

属性

属性值

Form1（窗体）

Border

选0-None（无边框）

Label1（标签）

Caption

电子通讯录

Line1

BorderColor

调色板，选¢

BorderStyle

选1-Solid（式样）

BorderWidth

选2（宽度）

Label2

Caption

姓名

Label3

Caption

电话号码

Label4

Caption

E-mail地址

Label5

Caption

照片

Alignment

选1-LeftJustify（左对齐）

List1（列表框）

List

为空

Text1（文本框）

Text

为空

Text2

Text

为空

Imagel1（图像）

BorderStyle

选1-Fixed

Command1（命令按钮）

Caption

退出

3.完善(设置程序代码)
双击Form1窗体，打开代码窗口→在“对象”下CheckBox表中选择Form，在“过程”下拉列表中选择Load，输入代码，添加姓名：
PrivateSubForm_Load()
List1.AddItem"埃及"‘List.AddItem“埃及”，表示在列表框添加项目，
List1.AddItem"美国"
List1.AddItem"荷兰"
List1.AddItem"意大利"
List1.AddItem"法国"
List1.AddItem"英国"
EndSub
→在“对象”下拉列表中选择List1，在“过程”下拉列表中选择Click，输入代码：
（绿色的注释不必输入）
PrivateSubList1_Click()‘Click：单击鼠标左键
IfList1.ListIndex=0Then‘ListIndex属性，选中的项目在列表中排位，
Text1.Text="0566-2029708"‘排序号从0开始
Text2.Text="Sphinx@ah163.com"
Image1.Stretch=True‘Stretch属性，调整图形大小以适应图像框
&nb

您现在访问的是中国学科吧旗下教案网http://www.jsfw8.com/jafs/

sp;Image1.Picture=LoadPicture("Sphinx.jpg")
EndIf‘Picture属性，图像框中设置显示的图形
IfList1.ListIndex=1Then‘LoadPicture函数的作用是装载图片
Text1.Text="001-65469708"
Text2.Text="Hawaii@ah163.com"
Image1.Stretch=True
Image1.Picture=LoadPicture("Hawaii.jpg")
EndIf‘LoadPicture装载的图片在当前文件夹，使用相对路径
IfList1.ListIndex=2Then
Text1.Text="0566-2029708"
Text2.Text="Windmill@ah163.com"
Image1.Stretch=True
Image1.Picture=LoadPicture("Windmill.jpg")
EndIf
IfList1.ListIndex=3Then
Text1.Text="0566-2029708"
Text2.Text="Venice@ah163.com"
Image1.Stretch=True
Image1.Picture=LoadPicture("Venice.jpg")
EndIf
IfList1.ListIndex=4Then
Text1.Text="0566-2029708"
Text2.Text="Eiffel@ah163.com"
Image1.Stretch=True
Image1.Picture=LoadPicture("Eiffel.jpg")
EndIf
IfList1.ListIndex=5Then
ext1.Text="0523-2029708"
Text2.Text="Stonehng@ah163.com"
Image1.Stretch=True
Image1.Picture=LoadPicture("tonehng.jpg")
EndIf
EndSub
VB语法:
数据类型：
Integer整型数(以%为标志)：存储整数，范围-32768～32767
Long长整型数(以&为标志)：范围-2147483648～-2147483647
Single单精度实型数(以!为标志)：最高精确度7位，
1.4×10-45≤单精度变量的绝对值≤3.4×1038
Double双精度实型数(以#为标志)：最高精确度16位，
4.79×10-324≤双精度变量的绝对值≤1.79×10324
Currency货币型：存储钱款类数据，小数点后有4位有效数字。
Byte字节型：存储二进制数，范围0～255
Date日期型
String字符串型
Boolean布尔型：只有两个值：真（True，-1）、假（False，0）
Variant变体：变量未声明数据类型，则默认为变体。不管信息是数、

[1][2]下一页

第8章VisualBasic程序设计--8.3电子通讯录这一教您现在访问的是中国学科吧旗下教案网http://www.jsfw8.com/jafs/