电脑桌面上的值班表.pdfVIP

沙 漠 与 绿 洲 气 象 第 5卷 增刊 D’。。e。。’s’’。e’。。。r。。t。。’。’a’。。’n’d。‘’’。O。‘。‘。a。’。。s。。。i。。。s。‘。。。M‘。’’。。。’‘e’t。。‘e‘’。o。‘‘。r‘’o。。l‘。o。‘。—‘g‘—y 2011年 8月 电脑桌面上的值班表 廖 晔，张中伟 (沙雅县气象局，新疆 沙雅842200) 摘 要：通过一个完整的桌面值班表程序制作，重点阐述了在 VB6．0中用API函数处理非 标准窗口，以及在托盘区内添加、移除图标，利用托盘右键菜单执行参数设置，以及编辑值班表 等功能。 关键词：VB6．0；API；值班表；透明窗体；托盘图标 使用VB6．0设计制作一个可以嵌入桌面的值 WindowAttributes()、FindWindow()和 SetParent()做 班表，利用托盘图标的弹出菜单完成对程序的控制， 到透明、嵌入桌面及鼠标穿透功能。部分代码如下： 美观且不影响正常工作。 先定义过程SetFromTran()如下： PrivateSubSetFormTran (ByValObjAsForm， 1 主要窗 口设计和实现方法 ByValTranAsLong) 创建值班表主窗口frmM，在 frmM窗口内创建 OnErrorGoToErrTran 3个 Label数组控件，分别为 lblTitle(0)、lblFixed(0) SetWindowLongObj．hwnd，一20，GetWindowLong 和 lblTab(0)，作为值班表显示标题、项 目和单元格 (Obj．hwnd，一20)OrH20OrH80000 文本的载体。创建值班表编辑窗口frmEdit，在该窗 SetLayeredWindowAttributes Obj．hwnd，0，Tran， 口中编辑菜单mnuMenu作为托盘右键菜单，并设置 2Or1 窗体的Visible为不可见，以frmEdit作为程序的启 Obj．Refresh 动窗口。创建设置窗口frmSetup，该窗口用于输人值 ErrTran： 班员姓名 、倒班次数等设置 ，设置完成后用 EndSub SaveSetting()函数保存在注册表中。程序运行时先 要frmM窗口透明嵌入，在Form—Load()过程中 加载frmEdit窗口，加载窗 口同时显示托盘图标，并 加入以下代码就可以实现： 启动主窗口frmM(即嵌入桌面的透明值班表窗口)， Me．AutoRedraw=True ’设置窗体 然后隐藏 自身(即不在桌面显示)。当右键单击托盘 Me．BorderStyle=0 图标时，弹出mnuMenu菜单，点击菜单选项时进行 hBitmap=CreateCompatibleBitmap(Me．hdc，0，0) 相应的操作 ，如点击 【编辑值班表】后 ，重新显示出 S