VB制作图片浏览器.pdfVIP

VB制作图片浏览器 口 王 曦 (江苏淮海工学院 江苏 ·连云港 222000) 摘 要：介绍了用VisualBasic编制的一个简单而又实用的小程序，该程序可以浏览多种格式的图像文件 ，并可 以放大或缩小图像对VB程序设计感兴趣的人员有所帮助。 关键词：VB 图片浏览器 API 中图分类号：TP39 文献标识码：A 文章编号 ：1007-3973(2011)007-052-02 l本程序所设计到的主要内容 “Dirl”，文件列表框为 “Filel”。在窗体右边添加两个图片框， (1)利用LoadPicture函数可将图像信息从文件中加载到 设置Picture1的属性为AutoRedraw=True，AutoSize=True，Vis· 图片框中，从而显示图像文件。 ible=False，设置Picture2的属性为AutoRedraw=False，Auto— (2)利用复选框决定是否预览。 Size=Fals，Visible=True。同时设置一个复选框为 “Checkl”。 (3)利用驱动器列表框确定盘符，利用 目录列表框定位 目 PrivateSubCheckl_Click() 录，利用文件列表框选取文件 IfCheck1．Vallue=0Then (4)利用BitBlt和StretchBlt的API函数实现图像信息的 Picture1．Picture=LoadPicture(””) ’取消预览，则清空Pic． 拷贝和拉伸复制 tureI，不显示任何信息 、 (5)利用滚动条可实现图片的滚动，从而实现浏览大图的 Else 目的。 CallshowP ’选中预览，则调用预览过程 2编制过程 EndIf 在窗体左边添加驱动器控件为 “Drivel”，目录列表框为 EndSub · · · · · · · · · · · · · · · · · · · · · ·．‘· · · · · · · · · · · · · · · · · · · · · · · · 等各种报警信号，在报警时屏幕下有该防区或该没各的描述信 在 白天或者夜里没有报警时也是关闭。如需在夜间进行设备 息显示；可以对报警处理器进行远端撤防布／防；还可以用 鼠标 维修或抢修工作而需打开照明设备，可以通过控制室手动打 对防区辅助灯光与广播进行控制操作。 开，使用完毕再手动关闭照明设备。在控制室可在任何时间， 通过集中管理平台软件，利用开放接 口与视频矩阵主机、 用话筒对任意防区进行喊话。 广播主机等通信，可实现 自动控制CCTV视频矩阵切换、广播 5广播前端设备及信号传输 打开、灯光瞬时启动：并能够驱动摄像机的图像在监视器上显 每个防区设置 1套扬声器。系统配置63台功放。当周界 示和控制，从而实现报警系统与电视监控系统联动。周界报警 防入侵报警系统有报警时，报警系统能够及时联动语音播放器 管理系统主机可以连接打印机，将系统的所有行为记录打印输 对报警防区进行语音 “警告”广播。也可在非报警状态下，任何 出存档：还可以用计算机硬盘记录系统所有的事件，事件记录 时间内在控制室通过话筒对前端任意防区扬声器进行话筒广 的时问不少于一年。 播。 4系统联动功能 6辅助照明 (1)当前端任何一个报警防区发生报警时，中央管理软件 辅助照明是周界闭路电视系统监控在夜间监视时的补充 的电子地图会有相应的图标闪烁，并可由操作员进行手动进行 光源 ，它沿整个周界布置。当监控系统发生报警时，报警控制 确认和复位；CCTV系统 自动控制位于