资源简介

3.3 任务单
学号_____________ 姓名_______________
【学习目标】
复习浏览器控件的相关事件
掌握文本框、列表框、组合框的常用属性、方法、事件
【学习记录】
任务名称 任务内容
任务1: 添加列表框按钮 任务说明：在窗体中添加一个列表框控件，命名为“ListAddress”,把原来的文本框Text1改名为“TextAddress”对象属性名称属性值列表框NamelistaddressVisibleFalseSortedTrue文本框NameTextaddresstext请输入网址
任务2:编写文本框的Click事件过程 任务说明：编写TextAddress文本框 的Click事件过程Private Sub textaddress_Click() If textaddress.Text = "请输入网址" Then textaddress.Text = "" Me.listaddress.Visible = TrueEnd Sub
任务3: 编写文本框的Change事件过程 任务说明：编写TextAddress文本框 的Change事件过程Private Sub textaddress_Change() Dim i, dzcd dzcd = Len(textaddress.Text) listaddress.ListIndex = -1 For i = 0 To listaddress.ListCount - 1 If Left(listaddress.List(i), dzcd) = textaddress.Text Then listaddress.ListIndex = i Exit For End If Next iEnd Sub
任务4：编写文本框的KeyPress事件过程 任务说明： 编写TextAddress文本框 的KeyPress事件过程Private Sub textaddress_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then If listaddress.ListIndex <> -1 Then textaddress.Text = listaddress.List(listaddress.ListIndex) End If End IfEnd Sub
任务5：编写列表框的DblClick和MouseDown事件过程 任务说明： 编写ListAddress列表框 的DblClick和MouseDown事件过程Private Sub listaddress_DblClick() cmdZhuandao_ClickEnd SubPrivate Sub listaddress_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Me.textaddress.Text = Me.listaddress.List(Me.listaddress.ListIndex)End Sub
任务6：编写”转到”按钮的Click事件过程 任务说明：编写cmdZhuandao按钮的Click事件过程Private Sub cmdZhuandao_Click() Me.listaddress.AddItem Me.textaddress.Text Me.listaddress.Visible = False Me.WebBrowser1.Navigate2 Me.textaddress.TextEnd Sub
任务7：测试运行
任务8：保存并生成 任务说明:保存工程、生成应用程序
课后练习 试着完成3.4的课后练习继续添加我的微博……。近期会建立微群，我会发私信通知已收听我的学生。通过微群，我会发布相应的课外操作任务和学习资料。
机器使用情况
实训体会 自我评价 小组评价 对教学评价
1、讲课内容听懂了多少A、全部 B、大部分C、一部分 D、很少（ ）2、学好这门课有信心吗？A、信心十足B、有信心，但要努力C、信心不足D、没信心（ ）3、哪几个任务让你有收获？其中收获最大的是哪个？（写任务名称） 1、是否得到组内帮助？谁帮助了你？2、是否帮助了组内同学，帮助了谁？3、有没有获得其它帮助？ 1、你对这次课总体评价：A、很好 B、好C、一般 D、很差（ ）2、喜欢教学内容吗？A、喜欢 B、部分喜欢C、不喜欢 （ ）3、你能听懂老师的讲解吗？A、能 B、部分能C、不能 （ ）4、其它建议

展开更多......

收起↑