用户直接使用集成的动态HTML语言(简称DHTML)来开发基于.ppt

在VB里，用户直接使用集成的动态HTML语言（简称DHTML）来开发基于HTML语言的应用程序。DHTML将文档中的每一个元素都看成一个对象，通过对象的属性、事件和方法来操纵对象以改变浏览器中显示的内容。DHTML的编程与VB编程有所不同，前者以窗体为基本界面，后者则使用Web页，但还是有很大的相似性。VB使用DHTML应用程序设计器来开发DHTML类型的应用程序。单击“新建工程”中的“DHTML应用程序”即可打开DHTML页面设计器界面，参见图15-1（为例15-1的设计界面）。,图15-1DHTML页面设计器,第15章VB与Internet编程初步,15.1DHTML页面设计器,15.2DHTML页面设计示例,15.3VB应用程序的Internet扩展,DHTML页面设计器有两个窗格，即左边的“树形视图”窗口和右边的“细表”窗口，在“树形视图”窗口显示HTML页面里所有元素的分层结构。页面设计器为每一个元素列出其ID、控件类型，并且在某些情况下列出元素开始的内容。如果某个元素不包含ID，就在属性窗口为它指定一个。具有ID的元素以粗体显示。在“细表”窗口显示页面的可视化界面，在其上创建新的页面或编辑已有页面。在DHTML页面设计器窗体的上方，有一个与MicrosoftWord的格式工具栏相似的格式化工具栏，可以设置页面的元素格式编排、字体属性和对齐方式等内容。在格式化工具栏的下方有一排工具按钮，分别是DHTML页面设计器属性、执行编辑器、在选项首尾添加标记、在选项首尾添加标记、将选项转化为链接、表操作、显示表边界、显示细节、绝对位置、锁定、绝对位置模式和顺序按钮。在创建DHTML工程的同时将创建modDHTML模块，其中包含两个函数：PutProperty函数和GetProperty函数。,15.1DHTML页面设计器,DHTML对象模型将DHTML中的每个元素部作为对象访问，每一个对象有自己的属性、方法和事件，在创建应用程序时，能够通过VB代码对HTML页面的布局、位置、每个元素的特性和容器进行动态的修改。主要的DHTML对象有BaseWindow和Document。DHTML对象的事件和VB事件基本相似，但每个事件都带有前缀on。表15-1列出了DHTML中的部分事件。,表15-1DHTML中的部分事件,15.1.1DHTML对象模型,表15-2HTML工具箱内的控件,可以采用下面列出的方法之一，通过VB为DHTML应用程序创建页面：（1）通过将VB工具箱中的HTML对象加入到页面设计器中来创建页面。（2）通过外部的HTML编辑器来创建页面。（3）采用组合的方法创建页面。单击DHTML页面设计器内的“HTML页面设计器属性”工具按钮，可打开如图15-2的DHTMLPage属性对话框。如果选择“保存HTML于外部文件中”，可以显示“新建”和“打开”按钮。单击“新建”按钮可以在DHTML页面设计器内建立新的HTML文档保存网页内容。单击“打开”按钮可以将其他外部编辑器建立的HTML文档导入到DHTML页面设计器中。如果选择“保存HTML作为VB工程的一部分”，则所设计网页的HTML代码将保存在Dsx文件中。,15.1.2设计DHTML页面的方法,图15-2树形视图窗口,例15-1：设计如图15-3所示网页。（1）新建工程时选择“DHTML应用程序”，打开图15-1所示的DHTML页面设计器，双击工程资源管理器中“设计器”文件夹中的“DHTMLPage1”打开中间两个窗口。（2）在“细表”窗口输入“蓝天出版社欢迎您”、“新书介绍”、“读者园地”、“联系方式”四行文字，每输入一行回车。（3）格式化四行文字，如将“蓝天出版社欢迎您”字体设置为“华文彩云”，字号为6号。（4）如有必要，在属性窗口设置每行文本的颜色（Color）属性，如将“蓝天出版社欢迎您”设置为红色（red）。,15.2DHTML页面设计示例,（5）单击HTML工具箱中的image控件，在第一行文本的左边画出一定大小的图像框，右键单击该图像框，从快捷菜单中选择“属性”，打开该图像框的“属性”对话框，单击其中“图像源”栏右边的按钮，查找合适的图片，关闭“属性”对话框。在属性窗口将align属性为左对齐（left）。在树形视图窗口的BODY标记中列出了正在工作的HTML网页的原始内容。BODY标记包含了控制Web网页内容的基本图形外观和动作的指令，参见图15-2。（6）单击DHTML页面设计器内的“HTML页面设计器属性”工具按钮，可打开如图15-3的DHTMLPage属性对话框。单击“保存HTML于外部文件中”按钮，输入文件名“c:myhtml1.htm”。（7）单击“文件”菜单中的“保存”或“另存为”命令，保存所有文件，首先保存的是代码文件.bas，取文件名为myhtml1.bas，其次保存的是类似于窗体文件的设计师文件.dsr，取文件名为myhtml1.dsr，最后保存工程文件.vbp，取名为myhtml1.vbp。设计师文件是包含HTML页面全部格式和控件的文件，有SourceFile和BuildFile属性，分别用来指定设计阶段导入的外部HTML文件和最后形成的HTML文件。代码文件则包含浏览器包所提供的PutProperty和GetProperty操作的函数。程序运行效果参见图15-4。注意地址栏中的显示内容，这是VB在内存中编译DHTML应用程序时，在硬盘上建立的、用于存储程序的一个临时文件。,图15-3DHTMLPage属性对话框图15-4在浏览器中浏览页面,例15-2：图15-4所示为利用MicrosoftFrontPage制作的的网页。在例15-1的工程中，添加该网页，并创建两个网页的链接。（1）在例15-1的设计窗口单击“工程”中的“添加DHTMLPage”命令，加入第二个页面设计器DHTMLPage2。（2）打开DHTMLPage2属性对话框，选择“保存HTML于外部文件中”按钮，单击“打开”按钮，浏览并选择图15-5网页的文件名“c:myhtml2.htm”。（3）选定DHTMLPage1中的“新书介绍”文本，单击工具条中的“将选项转化为链接”按钮将该文本格式化为超链接。（4）打开如图15-6所示“新书介绍”文本超链接的属性页，单击“浏览”按钮，浏览并选择图15-5网页的文件名“c:myhtml2.htm”。或者单击“树形视图”窗口中的Hyperlink标记，然后在属性窗口的href属性栏内输入链接目标。,也可以为任意一个事件或元素编写代码来创建网页之间的漫游，如：PrivateFunctionHyperlink1_onclick()AsBooleanBaseWindow.navigatemyhtml2.htmEndFunction这里使用相对URL，也可以使用绝对URL：“c:myhtml2.htm”。采用上述方法，两个网页共用一个浏览器中打开。如果希望在不同的浏览器窗口显示不同的网页，可以使用BaseWindow对象的Open方法，由Open方法指定第二个页面的URL实现链接：PrivateFunctionHyperlink1_onclick()AsBooleanBaseWindow.openmyhtml2.htmEndFunction,图15-6属性页,图15-5在浏览器中浏览myhtml2网页,例15-3：用SAPN标记符标记图15-1中的“蓝天出版社”文本，用DIV标记符标记图15-1中的“联系方式”文本。程序运行时，当鼠标移动到“蓝天出版社”文本上时显示一幅图片，鼠标移出“蓝天出版社”文本上时不显示图片。当单击“联系方式”文本上后其字体颜色变为红色。实现图片的显示与隐藏的代码为：PrivateSubNUM1_onmouseout()Image2.Style.visibility=hidden在DHTMLPage_Load事件过程中应加入同样的代码EndSubPrivateSubNUM1_onmouseover()Image2.Style.visibility=visibleEndSubPrivateSubnum3_onmouseover()NUM3.Style.Color=redEndSub改变“联系方式”字体颜色的代码为：PrivateSubNUE3_onclick()NUM3.Style.Color=blueEndSub,例15-4：编写代码，实现当加载例15-1的网页时，播放一个WAV格式的音乐文件，如“c:welcome.wav”。（1）利用“部件”对话框在工具箱中加载MultimediaMCI控件。（2）将MultimediaMCI控件添加到网页中，并拖曳到页面的左边缘上。注：将某个控件拖曳到页面的左边缘上可以使该控件隐含，如果要重新显示该控件，可以在树形窗口中选定该控件，然后利用方向键移动到页面窗体内。（3）编写代码：PrivateSubDHTMLPage_Load()MMControl1.Notify=FALSE：MMControl1.Wait=TRUEMMControl1.Shareable=FALSE：MMControl1.DeviceType=WaveAudioMMControl1.FileName=c:welcome.wavMMControl1.Command=Open:MMControl1.Command=playEndSub,例15-5：页面之间的数据传递在例15-1中，当单击“新书介绍”时，打开第二个网页，单击“放入购书栏”，然后单击第三个网页中的“增书”按钮，则将该行读书放入购书栏（即添加到第三个网页的List1控件中）。参见图15-7。,图15-7页面间的数据传递,（1）在例15-1中添加第三个网页，在页面上添加一个List1控件和Button控件（Value属性值为“增书”）。（2）为第二个网页的每个书名加上ID属性值（依次为Book1、Book2、Book3等）。（3）为每个“放入购书栏”所在单元格加上ID属性值（依次为purchase1、purchase2、purchase3等）。（4）为使用InternetExplorer属性包，在“引用”对话框中选中“MicrosoftInternetControls”对象库SHDOCVW.DLL。,（5）在模块文件中加上如下代码（一般会自动添加这些代码）：PublicobjWebBrowserAsWebBrowser声明浏览器对象变量PublicSubPutProperty(strNameAsString,vntValueAsVariant)检查是否有一个浏览器实例，若没有则打开浏览器IfobjWebBrowserIsNothingThenSetobjWebBrowser=NewWebBrowser调用浏览器的PutProperty方法来存储控件对象的值objWebBrowser.PutPropertystrName,vntValueEndSubPublicFunctionGetProperty(strNameAsString)AsVariantIfobjWebBrowserIsNothingThenSetobjWebBrowser=NewWebBrowser调用浏览器的GetProperty方法来检索控件对象的值GetProperty=objWebBrowser.GetProperty(strName)EndFunction浏览器InternetExplorer属性包中的PutProperty函数和GetProperty函数用来在Web页面之间传递数据PutProperty函数储信息到属性包的临时区域，参数vntValue为存储的值，参数strName指示该存储值的变量名称。GetProperty函数通过变量名称从属性包中检索信息，如果变量名称没有找到，则返回空字符串。,（6）为每个“放入购书栏”单元格单击事件编写如下类似的代码：PrivateFunctionpurchase1_onclick()AsBooleanIfpurchase1.innerHTML已购Thenpurchase1.innerHTML=已购PutPropertych1,book1.innerHTMLEndIfEndFunction（7）为第三个网页的Button1控件的单击事件编写如下代码：PrivateFunctionButton1_onclick()AsBooleanDimeAsHTMLOptionElementSete=Document.createElement(OPTION)e.Text=GetProperty(ch1)e.Value=ListItemValueList1.Options.AddeEndFunction（8）为打开第三个网页，编写如下代码：PrivateSubDHTMLPage_Load()BaseWindow.openmyhtml03.htmEndSub,15.3VB应用程序的Internet扩展,VisualBasic6.0提供了许多控件用于Internet编程，这些控件是：（1）InternetTransfer控件。（2）WebBrowser控件。（3）WinSock控件。这里仅就InternetTransfer控件作简单的介绍。使用InternetTransfer控件可以通过OpenURL或Execute方法连接到任何使用这三个协议的站点并检索文件。其基本操作如下：（1）在“部件”对话框中选中“MicrosoftInternetTransferControls”选项。（2）将AccessType属性设置为合法的代理服务器。AccessType属性设置值为：0-icUseDefault：控件使用注册表中的缺省设置访问Internet。1-icDirect：控件可以直接连接到Internet。2-icNamedProxy：控件使用Proxy属性确定代理服务器。（3）用合法的URL调用OpenURL方法（4）用合法的URL和协议支持的命令调用Execute方法。（5）用GetChunk方法从缓冲区获取数据。,OpenURL方法用于打开并返回指定URL的文档。文档以变体型返回。该方法完成时，URL的各种属性（以及该URL的一些部分，如协议）将被更新，以符合当前的URL。语法object.OpenUrlurl,datatype例如下面的URL将返回在中找到的HTML文档：Text1.Text=Inet1.OpenURL()在这种情况下，缺省操作返回的是URL定位的HTML文档。然而，如果URL被改为指向文本文件，则将获得实际的文件。例如，下面的代码：Text1.Text=Inet1.OpenURL(ftp:/,15.3.1OpenURL方法,如果需要将通过OpenURL方法获取的数据保存到文件，可以使用Open、Put和Close语句，如下面的代码所示。该示例先将获得的二进制文件传入Byte数组，然后将该数据保存到磁盘中：DimstrURLAsStringDimbData()AsByte数据变量DimintFileAsInteger可用文件变量strURL=ftp:/,可以用包含附加数据的URL调用OpenURL方法。例如，很多Web站点提供了搜索数据库的能力。要搜索数据库，则需要在发送的URL中包含搜索条件。例如下面的代码用条件“find=Maui”调用名为“search.exe”的搜索引擎。DimstrURLAsStringstrURL=,Execute方法执行对远程服务器的请求命令，这些命令可以是接受文件、发送文件甚至是删除远程服务器的目录，以异步方式工作，其语法格式为：object.Executeurl,operation,data,requestHeaders例如，要从远程计算机中得到一个文件，可用下面的代码：Inet1.ExecuteFTP:/,GETtest.txtC:Temptest.txt如果正在用FTP从匿名FTP服务器中获取文件，就应熟悉在服务器目录树中漫游的特定命令，以及将其中文件获取到本地的硬盘中的命令。例如，要用FPT协议改变目录，应使用带有希望改变到的目录路径的“CD”。对绝大多数通用操作，如将文件传入服务器，以及从服务器获取文件，Internet传输控件在Execute方法中使用了（与