- 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
- 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 4、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 5、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 7、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
用VB6中文版进行DHTML程序开发
用VB6.0中文版进行DHTML程序开发
动态HTML(DYNAMIC HTML,DHTML)是一系列网络技术标准集。我们这里谈到的DHTML应用程序允许你编
写Visual Basic代码来响应HTML页面上的操作,而不必把处理传给服务器……
DHTML应用程序是一个Visual Basic 应用程序,它在一个交互的,基于浏览器的应用程序中使用一种动
态DHTML和已编译VISUAL BASIC代码组合。一个DHTML应用程序驻留在浏览器所在机器上,它在那里解释和响
应浏览器中最终用户执行的操作。DHTML应用程序使用VISUAL BASIC代码执行大多数相当于以前用脚本CGI处
理和其他INTERNET应用程序开发方法来完成的处理,并且其中大多数处理不传到服务器即可完成。
总而言之,DHTML应用程序允许开发者和最终用户按一种新的方式和WEB页面来进行交互。但是DHTML应
用程序必须运行在IE4以上。
DHTML应用程序的结构
一个完整的DHTML应用程序通常由以下几部分组成:
1) 一个或多个HTML页面;
2) VISUAL BASIC代码,它处理HTML页面产生的事件;
3) 一个运行时的部件,它存在于WEB浏览器或WEB浏览器控件中的页面上;
4) 一个工程DLL,它包含VISUAL BASIC代码并且被运行时部件访问,当调试或编译工程时,它自动产
生。
编制一个DHTML应用程序
(1) 运行VB6.0中文版后,启动一个新的工程并选择“DHTML应用程序”作为工程类型。在“工程资源管
理器”窗口中,打开设计器文件夹,然后双击“DHTMLPage1 “来在主窗口中显示它,在VB6.0中将它称作页
面设计器。在页面设计器中可以对DHTML应用程序的界面进行设计,用来满足程序对功能的要求。页面设计
器提供了各种设计工具。
(2)DHTML应用程序的页面设计
VISUAL BASIC 6.0提供了一个页面设计器。这个页面设计器实际上也是一个简单的网页制作工具。
1: 使用页面设计器进行页面设计
使用VISUAL BASIC自带的DHTML页面设计器,可以在VISUAL BASIC中设计HTML页面。该设计器允许在没
有明确地编写任何HTML代码的情况下创建应用程序用户界面。可以添加HTML元素到设计器的绘图平面,根据
需要安排它们,并设置控制它们外观的属性。VISUAL BASIC在所见物后面对每一个元素编写HTML代码,将它
们保存在指定位置的一个HTML文件中或者保存在设计器本身中。
VISUAL BASIC提供了一组可以添加到页面的控件。如图2所示。这些控件包括最常用的HTML元素,如按
钮,文本框,选项按钮,复选框和图像。在页面中不能使用原有的VB控件,如文本框或复选框;而必须使用
专用的HTML控件。当打开页面设计器时,在左边的工具条将自动出现HTML控件。
1
2:设置控件属性
创建完用户界面后,还需要对界面中各个控件的属性进行正确的设置.
3:编写代码
在用户登录页面中,程序需要对用户输入的资料进行验证。如果,用户输入的资料符合校友身份将出现
用户登录成功的页面,代码如下:
Private Function ButSubmit_onclick() As Boolean
If daxue.Value = 湖北大学 And Left(xuehao.Value, 4) = 9506 Then
feng1 = MsgBox(欢迎你,我的老同学!)
BaseWindow.navigatehuaxue.DHTMLPage2.html
Else
MsgBox (对不起,你没有资格进入本页!)
daxue.Value =
xuehao.Value =
End If
End Function
这里取学号前四个数字尽
文档评论(0)