2024年4月29日发(作者：)

维普资讯

５８　青海气象　２０Ｏ７年第１期　

用ＶＢ实坝在线升级　

裴宗寿　宋卫东　

（１．青海省海北州祁连县野牛沟气象站祁连８１０４００；　

２．贵州省绥阳县气象局５６３３００）　

摘要：在ＶＩＩ中利用第三方控件ｂｋＤＩ．Ｅｏｎｔｒｏｌ可以实现在线下载，从而完成一些软件的在线升级。　

关键词：ｂｌｄ）Ｉ．Ｅｏｎｔｒｏｌ控件；在线升级　

ｌ引言　

②添加一个ｃｏｍｂｏＢｏｘ控件，名称为ｃｏｍＵＲＬ，在　

ＶＢ作为现在一种强大的程序设计语言，具有开　

缶　的ｌｏａｄ事件中添加如下的代码，其他属性保持　

发速度快，代码执行率高，界面美观的众多特点，对　默认。添加该控件用于输入下载地址，这样可以让　

于广大编程人员，是十分理想的应用程序制作工具。　

用户自行选择下载的服务器：　

本文用实例阐述ＶＢ及第三方控件对ＶＢ程序进行　

在线方法。　

目前国内的很多软件都具有在线升级功能，例　

③添加一个Ｌｉｓｔｂｏｘ，命名为ｌｓｔＯｕｔ。为了美观，　

如金山毒霸、瑞星等杀毒软件，它们可以利用在线升　

可以把Ａｐｐｅａｒａｎｃｅ属性设置为“０．Ｆｌａｔ”。该控件用　

级程序进行在线升级，无需用户访问网站下载。’这　

于显示下载过程中的进度说明；　

样的功能的确对于使用者来说十分方便的。　

④添加一个Ｌａｂｅｌ，命名为ｌｂｌｐｒｏｇ，设置Ａｕｔｏｓｉｚｅ　

ｂｋＤＬＣｏｎｔｒｏｌ控件是一个可以快速实现在线下载的控　

属性为Ｔｒｕｅ。将用于实时显示下载的大小和百分比　

件，能够在下载的同时通过进度条显示下载的进度。　

程序总体界面，在界面和属性设置上非常的简单。　

通过编写当其下载完成后的事件，就可以轻松达到　

至此就完成了这个演示程序的界面设置，接着进行　

在线升级的目的。因此，本文利用ｂｋＤＬＣｏｎｔｒｏｌ控件　

代码的编写。　

就自动气象站（ＯＳｓ～１０）系统软件升级进行偿试。　

第五步：编写代码，实现具体的功能。　

２　ｂｋＤＬＣｏｎｔｒｏｌ控件的使用　

①添加两个ｅｏｒｒｍａａｎｄｂｕｔｔｏｎ的Ｃｌｉｃｋ事件，分别　

第一步：首先启动Ｖｉｓｕａｌ　Ｂａｓｉｃ６．０，打开需要升　

实现开始下载和取消下载的功能。　

级的应用程序；　

Ｐｒｉｖａｔｅ　Ｓｕｂ　ｅｍｄＢｅｇｉｎ－Ｃｌｌｃｋ（）　

第二步：新建一个窗体，将其名称改为缶　，　

ｉｆｅｏｍＵＲＬ．ｔｅｘｔ＜＞“”ｔｈｅｎ　

ｔｌＩ　ＤＬ　

ｃａｐｔｉｏｎ改为升级程序；　

・　

ＵＲＬ＝ｅｏｍＵＲＬ．Ｔｅｘｔ’设置ｂｌｄ）Ｉ．Ｅｏｎｔｒｏｌ的下载地　

第三步：加载ｂｋＤＬＣｏｎｔｒｏｌ控件；　

址　

・ｓａｖｅＦｉｌｅＰａｔｈ＝Ａｐｐ．Ｐａｔｈ’设置下载后的保存路径，这　

在控件工具栏中单击右键，选择“部件”，在弹出　

里设置为当前程序所在文件夹　

的窗口中点击“浏览”，找到ｂｋＤＬＣｏｎｔｒｏｌ控件，载入　

Ｌｑ　哪“请求下载”＆ｅｏｍＵＲＬ．Ｔｅｘｔ　

’在ｌｓｔＯｕｔ中添加下载状态说明，这里使用了一个自　

它，命名为“ＤＬ＇’；因为是一个进度条，所以把大小拖　

定义过程，该过程的代码将在下面第三步说明　

成一个适当的长条状，把它放到缶　窗体中适当位　

・

ＢｅｇｉＩＩＤＤｗｒｄｏａｄ’发出开始下载命令　

Ｅｎｄ　Ｗｉｔｈ　

置即可。其他属性保持默认。　

ｃｍｄＣａｎｃｅ．Ｅｎａｂｌｅｄ＝Ｔｒｕｅ’设置锄ｌｄ（１舳ｃｅｌ属性为Ｔｒｕｅ，　

第四步：加载其他控件，完成界面的设置。　

使下载过程中可以中止下载　

①在窗体中添加２个ＣｏｎｍａａｎｄＢｕｔｔｏｎ控件，名称　

ｅｌｓｅ　

如ｃ“请选择下载网址！”　

分别是ｃｒＩ］脚和ｃｍｄＣａｎｃｅｌ，Ｃａｐｔｏｎ属性分别为　

Ｅｎｄ　Ｓｕｂ　

“开始”和“取消”，其中设置ｃｍｄＣａｎｃｅｌ的Ｅｎａｂｌｅｄ属　

Ｐｒｉｖａｔｅ　Ｓｕｂ　ｃｍｄＣａｍｄ－Ｃｌｉｃｋ（）　

ＤＬ．ｃａＩＩｃｅｌＩ）ｏ’　’发出取消下载命令　

性为“Ｆａ／ｓｅ”；即不可用状态。　

Ｅｎｄ　Ｓｕｂ　

维普资讯

２Ｏ０７年第１期　青海气象　

５９　

②编写ｂｋＤＩ．Ｅｏｎｔｒｏｌ各个事件的代码，以完成具　

当ｂｋＤＩ．Ｅｏｎｔｒｏｌ控件返回零字节时激发上面的　

体功能：　

出错事件，并在ｌｓｔＯｕｔ中显示相关错误信息。　

上面两段代码是开始和取消下载的事件，向　

ｌｓｔＯｕｔ输入状态。　

Ｐｒｉｖａｔｅ　Ｓｕｂ　ＤＬ－ＤＬＣ．ｏｍｐｌｅｔｅ（Ｂｙｔｅｓ　Ａｓ　ｌｏｎｇ）’下载完成的事Ｉ　

件　

Ｇｌｘｌｃ

删

ａＩｌｃｅ１．

．Ｅｎａｂｌｅｄ－Ｆａｌ

　

ｓｅ　

Ｊ　

Ｂｙｔｅｓ＞０＆Ｔｈｅｎ’如果下载的不是零字节，则显示相Ｊ　

关信息　Ｉ　

ＩＪ３￣ｔｅｌｌｌ“完成”＆ＳｉｚｅＳ．ｔｒｉｎｇ（Ｂｙｔｅｓ）＆“下载并保存到”ｆ　

皿Ｌ．ＳａｖｅＦｉｌｅＮａｍｅ　Ｉ　

’下面添加实现文件更新的代码　Ｊ　

Ｅｌｓｅ　

Ｌｏｓｔｔ￣“下载失败”　

Ｅｎｄ　Ｉｆ　

Ｅｎｄ　Ｓｕｂ　

上面的代码调用了一个自定义函数　，　

代码同样在第四步中说明。这段ｂｋＤＩ．￣ｘｍｔｒｏｌ完成　

下载时激发的事件是实现在线升级的关键，下载完　

成后就可以调用下载的内容完成更新。　

上面是ｂｋＤＬＣｏｎｔｒｏｌ的相关代码，是这个在线升　

级程序中最关键的地方。在其提供的事件中，可以　

有很多的发挥空间，去实现很多的功能。　

③编写ｓｉｚｅＳ响＝ｌｇ函数和Ｌｑ　咖过程，完成最　

后的代码编写。　

上面的过程用于向ｌｓｔＯｕｔ添加下载进度信息，　

其中使用了一个变量，用于装载相应事件描述。　

（下转第６２页）　

维普资讯

６２　青海气象　２００７年第１期　

文件应按照规定程序办理，年终认真做好各类文书　

兴海县局在近三年的行车期内，未发生任何交通安　

和声像档案资料的立卷归档工作。　

全事故。　

六、安全生产　

综上所述，县级气象局只有加强内务管理，提高　

安全生产重于泰山，要坚持“安全第一，预防为　

人员整体素质，建立健全各项规章制度，坚持以人为　

主”的方针，做好宣传教育工作，推行分区责任人管　

本，落实科学发展观，提倡科学、民主、合理决策，才　

理制度，对地面值班室、锅炉房、车库、人影弹药室等　

能创造性地开展工作，才能实现“一流装备、一流技　

重点防范区指定专人负责该区安全防范工作。每季　

术、一流人才、一流台站”的总体要求。　

度开展一次安全生产自查，对生产安全、防火安全、　

参考文献：　

防雷安全、防盗安全、危险物品的保管进行全面细致　

［１）彭发祥．行政管理学概论．内蒙古：内蒙古人民出版社，　

地检查，查摆安全隐患并及时整改。有车辆的单位，　

１９９１．　

对车辆安全随时检查，依不同路况、不同天气条件对　

［２）姚学祥．气象与现代管理．北京：气象出版社，１９９９．　

车辆行驶速度进行限制。我们与驾驶员签订《安全　

［３）陈双溪．气象与领导．北京：气象出版社，１９９９．　

驾驶合同书》时，明确规定：“高速公路行驶速度不超　

［４）王江山．抓实目标管理，保障工作落实．气象软科学，　

２０Ｏ５，２．　

过１２０ｋｍ／ｈ、一级公路不超过８０ｋｍ／ｈ，普通路面不超　

过６０ｋｍ／ｈ，遇有大风、沙尘、降水、积雪等天气，行驶　

［５）缪旭明．气象部门目标管理的理论与实践．气象软科　

学，２０Ｏ５，２．　

速度依天气和路况由驾驶员会同随车负责人商定”。　

．　

（审稿：王国祯）　

（上接第５９页）　

进度用进度条的方式表现。　

有了ｂｋＤＬＣｏｎｔｒｏｌ控件，可以很方便地下载更新　

程序，并在其下载完成激发的事件中写入适当代码，　

就可以轻松完成程序在线升级。　

３结束语　

对于设计的应用程序，结合本文中的　

ｂｋＤＬＣｏｎｔｒｏｌ控件，可实现应用程序的最优，需要说明　

的是，应用程序发布以后，为保证能够实现在线升　

级，必须将升级包程序上传，并保证能够实现有效的　

链接。对于前面提及的ｏＳＳＭＯ　２ＯＯ４的升级问题，华　

云公司专门有ＯＳＳＭＯ的升级下载网址，只需在本文　

中的网址中输入或添加，即可实现升级，台站人员可　

以进行升级的操作，升级时请作如下设置：ＤＬ．　

ＳａｖｅＦｉｌｅＰａｔｈ＝“您的ｏＳ　安装路径”。　

参考文献：　

上面的函数把传送来的ｌＢ）懒根据其大小，转　

［１）刘萌编著．ＶＢ入门与提高实用教程．北京：铁道出版　

换成合适的单位。在下拉框中选择地址或者输入其　

社，２００３．　

他下载地址后按“开始”就可以开始下载了。通过连　

（审稿：赵强）　

接下载信息可以看到，实时的已下载进度情况，下载