内容正文:
座次表
讲台
1 2 3 4 5 6 7 8
9 10 11 12 13 14 15 16
17 18 19 20 21 22 23 24
25 26 27 28 29 30 31 32
33 34 35 36 37 38 39 40
41 42 43 44 45 46 47 48
49 50 51 52 53 54 55 56
1
2
4
3
5
6
任务3.2
给浏览器添加错误处理
可视化编程应用基础 - Visual Basic
复习任务:浏览器控件的常用方法和事件
任务说明:
理解并掌握浏览器控件的常用方法(Navigate2)和常用事件(BeforeNavigate2、NewWindow2、CommandStateChange)
标准完成时间:4分钟
授课任务2:设置前进和后退按钮的状态
给浏览器控件的CommandStateChange事件编写代码,记录“前进”和“后退”按钮的可用状态。Command=1时,记录“前进”按钮可用状态,Command=2时,记录“后退”按钮的可用状态。
标准完成时间:5分钟
任务3:添加第2个浏览器,
程序运行时为不可见。
任务说明:
在窗体界面上添加第2个浏览器控件Webbrowser2,并设置其可见性为不可见。
标准完成时间:2分钟
任务5:编写WebBrowser1的NewWindow2事件代码见。
任务说明:
双击WebBrowser1浏览器控件,在其NewWindow2事件中编写代码:
Set ppdisp=webbrowser2.object,目的是去接管在第2个浏览器中打开的窗口。
标准完成时间:2分钟
任务6:编写WebBrowser2的BeforeNavigate2事件代码
任务说明:
在设计模式下,双击WebBrowser2浏览器控件,在其BeforeNavigate2事件中编写如下代码:
Webbrowser1.Navigate2 url ‘把第2个浏览器打开的网址传递给第1个浏览器导航。
Cancel=True ‘目的是阻止本窗口中的网页继续打开。
标准完成时间:2分钟
任务7:调试运行并保存文件
任务说明:
保存窗体文件为“3-2.frm”
保存工程文件为“3-2.vbp”
生成工程文件为“3-2.exe”
标准完成时间:2分钟
延伸拓展任务:
【课后延伸】怎样把第2个浏览器在程序运行时隐藏?任务说明:
双击窗体空白处,在窗体的Load事件中书写代码:Me.webbrowser1.visible=false
标准完成时间:3分钟
拓展任务:观察运行结果?
任务说明:
1)在任务4的事件过程中,不设置Cancel=True,观察运行结果会如何?
2)给按钮添加提示信息:设置按钮的ToolTipText属性,当鼠标停留在按钮上方时会显示设置的提示信息。
标准完成时间:5分钟
小结
温故:
浏览器的常用方法(Navigate2)
常用事件(BeforeNavigate2、NewWindow2、CommandStateChange)
知新:
程序的错误可分为三类:
语法错误
运行时错误
逻辑错误
今天卫生值勤
关闭门窗;
关闭空调;关灯。
检查各机位是否关机;键盘是否复位;凳子是否放好;
检查抽屉,桌面是否有垃圾,将垃圾倒入垃圾桶。
检查地面是否有垃圾,将垃圾倒入垃圾桶。
$