透明桌面时间助手

合集下载

iPhone越狱后你所需要的所有东西

如何安装‘源’？
打开后点manage，然后点击sources，单机edit然后add
第一强烈攻势——我自己喜欢用的的Cydia源，以及各种deb系统插件，喜欢的提走！
下面几个是我自己的所有ios机器上越狱必定会添加的Cydia源，资源丰富，当然最重要的是免费
/ 大名鼎鼎的Hackulo源,资源不多，但都几乎是必须的,我的appsync，Installous等一般就在这里面进行安装
以下如有写错的地方，请大家提醒我，我将第一时间修改更新。谢谢大家！
同时加个小广告先，大家对各运行商的频段以及各种3G制式需要了解或者有兴趣的可以看看这个帖子：
点我进入：以技术角度浅析各运营商无线网络技术(附iPhone4非权威移动网络测速报告截图)
关于需要QQ解答峰友问题的，请参考这个帖子，我将尽力为每位峰友提供帮助：
/

/cydia/apt/
/repo/cydia/
注：以下软件均在iphone4 4.1上测试
点我进入：请斑竹坐镇见证，同时向峰友表示歉意，以后对峰友的问答将以此贴为据进行
今日开放问答时间：(2010-10-17 北京时间) 20:00——22:00
(请大家在问答时间内提问，其他时间请原谅我不能回复大家，谢谢大家的配合)
如何找到cydia？
需先越狱,绿雨越狱后即可安装Cydia
/cydia/ (强烈推荐) weiphone官方的Cydia源，更新很快，资源非常多
/ (重磅推荐)
app破解帝丛林狼(@Conglinlang) 的Cydia源,诠释最到位的中文Cydia源资源丰富且全部免费,,,更新快，速度快
5. 设置：打开系统设置程序，找 KuaiDial。

Windows桌面配置常用软件总结

Windows桌⾯配置常⽤软件总结先来张图⽚⼀、桌⾯实⽤⼯具1、（桌⾯左上⾓的⽇历）2、（桌⾯右上⾓显⽰CPU 内存硬盘等信息，）3、（桌⾯左侧中间）4、（桌⾯右下⾓酷呆桌⾯整理软件，这个软件⽐较简洁）5、（主要⽀持⽬录映射，最近⽂档，我的常⽤这⼏个感觉⽐较⽅便）6、（任务栏监控⽹速及CPU 内存使⽤情况）9、（剪贴板增强⼯具神器，⽅便复制粘贴多条历史记录)10、（通过空格键快速查看⽂件内容）12、 (在Windows 桌⾯上使⽤精美绝伦的动态壁纸。

将您⾃⼰的图像制作成动画以创建新壁纸或导⼊视频和⽹站，并分享给他⼈！收费软件) 15、（微软官⽅ Bing Wallpaper 必应桌⾯壁纸⼯具完全免费,安装好之后,它就可以帮你每天⾃动下载最新的必应图⽚,并设置成你的Windows 桌⾯背景）（更多壁纸可以参考这个视频）⼆、截图录屏软件2、（屏幕录像⼯具是⼀款好⽤的屏幕录像软件，可以录制全屏或某个区域，华为IE考试⽤的就是这个）5、（Open Broadcaster Software的缩写，OBS Studio是⼀款软件占⽤资源少、配置要求相对较低的直播录制软件。

录⾳格式为MP4，⽆需重新压缩，OBS Studio以其优良的录⾳质量和完全免费的使⽤体验著称）三、浏览器1、（⽕狐浏览器，分国际版和国内版，如果在baidu搜索⼀般都是国内版，个⼈还是感觉国际版好⽤）2、（⾕歌浏览器，现在是全球占有率最⾼的）3、（Opera浏览器，是⼀款挪威Opera Software ASA公司制作的⽀持多页⾯标签式浏览的⽹络浏览器）浏览器的历史介绍：【四、影⾳播放器1、（视频播放软件，⾃带专业的编解码器，⽅便快捷）2、（是⼀款⾃由、开源的跨平台多媒体播放器）五、下载软件3、 (全称是Free Download Manager)，台湾同胞开发的软件，夸平台，界⾯简介，⽬前edge浏览器对应的插件还没有软件评测：六、运维软件1、（运维⼯程是必备神器，可以快速切换IP添加路由，收费软件，在国内你懂的）2、（华为开发开始这款软件是⼀个IP⼯具的集合，最原始的功能是IP地址动态绑定，后续在此基础上不断的进⾏了扩充，就形成了现在的模样）3、（号称全能终端神器）4、（终端⼯具，个⼈⽐较喜欢⽤这个，家庭和学校版是免费的，企业是收费软件，两个版本功能是⼀样的）5、（终端⼯具，收费软件，在国内你懂的）6、（终端⼯具，⼩巧便捷）7、（制作系统U盘启动神器,Windows, Linux都⽀持）8、（是⼀个免费的光盘镜像制作⼯具,可以从你的⽂件和⽂件夹中创建ISO映像，这个在云环境运维经常⽤）9、（软碟通是⼀款光盘映像ISO⽂件编辑制作⼯具,可以当作虚拟光驱加载iso⽂件，收费软件，在国内你懂的）10、（是⼀个⽀持SSH的SCP⽂件传输软件，Windows与Linux直接传⽂件经常⽤到）11、（有了Ventoy你就⽆需反复地格式化U盘，你只需要把 ISO/WIM/IMG/VHD(x)/EFI 等类型的⽂件直接拷贝到U盘⾥⾯就可以启动了，⽆需其他操作，有的服务器不好⽤）七、办公类软件1、（是⼀款⾮常有特⾊的编辑器，查看⽇志等多⽂字的时候很⽅便）2、（是⼀款完全免费的压缩解压缩软件，可以直接解压iso，exe⽂件很⽅便）3、（⼀款功能⾮常强⼤的压缩包管理器，收费软件但是有免费个⼈版会有⼴告）4、（是⼀个强⼤的多功能压缩⽂件管理⼯具，可提供⾼速的解压缩速度和其他各种实⽤功能6.x版没有⼴告，7.x以后付费才没有⼴告）5、（光盘刻录软件）9、　(是⼀款简洁并且轻便的⽂字编辑软件，⽀持桌⾯上的半透明，采⽤fluent进⾏设计⽀持Markdown的输⼊，轻便的⽂本编辑软件能够满⾜各种输⼊上⾯的需求，作为基础的⽂本输⼊软件⽽⾔还是⾮常的完善的)10、（是⼀款轻量⽽快速的windows平台图⽚浏览器，代码开源，⽀持⼤多数图⽚格式，⽀持图⽚预览。

教师备课教学经常用到的10种软件

教师备课教学经常用到的10种软件一、WPSOffice 2010 个人版下载地址：/soft/23453.html运行环境：Win7/Windows Vista/Win2003/WinXP/Win2000/WinNT软件介绍：WPSOffice对个人用户永久免费，包含WPS文字、WPS表格、WPS演示三大功能模块，与MS Office无障碍兼容。

1.前所未有的性能提升2.注重细节，表格操作更加人性化3.全角度保护文档安全和账号隐私4.在线素材库兼收并蓄5.精致模板尽享方寸空间，smart办公胜人一筹6.无限扩展的网络应用，让办公环境更个性7.更高效的协作方式8.在线支持，享受专业服务二、MathType6.0公式编辑器（汉化版）下载地址：/soft/3683.html运行环境：Win2003/WinXP/Win2000/WinNT/Win9x软件介绍：MathType是一个强大的数学公式编辑器，与常见的文字处理软件和演示程序配合使用，能够在各种文档中加入复杂的数学公式和符号。

MathType 与常见文字处理工具紧密结合，支持OLE (对象的链接与嵌入)，可以在任何支持OLE 的文字处理系统中调用(从主菜单中选择"插入->对象" 在新对象中选择"MathType 5.0Equation" )，帮助用户快速建立专业化的数学技术文档。

MathType 汉化版修正了部分对中文的支持，这个版本对Word 或WPS 文字处理系统支持相当好。

实现所见即所得的工作模式，它可以将编辑好的公式保存成多种图片格式或透明图片模式，可以很方便的添加或移除符号、表达式等模板(只需要简单地用鼠标拖进拖出即可)，也可以很方便地修改模板。

总之，功能多多，熟练使用了就知道它的强大了。

MathType 可用在编辑数学试卷、书籍、报刊、论文、幻灯演示等方面，是您编辑数学资料的得力工具。

三、实用汉字转拼音V4.7下载地址：/soft/25080.html运行环境：Win7/Win2003/WinXP/Win2000/WinNT/Win9x软件介绍：1.屏幕抓词,很实用的功能.2.日语假名注音.例如:春をー愛するー人はー心清きーーー人ーはるをあいするひとはこころきよきひと3.假名罗马拼音注音.例如:Ha Ru Wo A I Su Ru Hi To Wa Ko Ko Ro Ki Yo Ki Hi Toはるをあいするひとはこころきよきひと4.同音字的功能.例如:在宿舍看了一宿关于星宿的书Zài SùShě Kàn Le Yī Xiǔ Guān YúXīnɡXiùDe Shū5.支持简繁体及一部分冷僻字汉字拼音Zhī ChíJiǎn Fán Tǐ JíYíBùFèn LěnɡPìZìHàn ZìPīn Yīn6.左(Zuo)右(You)拼(Pin)音(Yin)输(Shu)出(Chu)Zuo(左)You(右)Pin(拼)Yin(音)Shu(输)Chu(出)7.声调为数字输出Shenɡ1 Diɑo4 Wei2 Shu4 Zi4 Shu1 Chu1试试这个工具吧!ShìShìZhèGèGōnɡJùBɑ!四、3D数学教学平台下载地址：/soft/softdown.asp?softid=78996运行环境：Win2003/WinXP/Win2000/WinNT/Win9x软件介绍：《3D数学教学平台》：一个设计数学课件的工具,可方便绘制点线面构成的3D几何图形并可以3D旋转,还可以绘制表达式函数曲线。

华为手机桌面时间天气设置方法

华为手机桌面时间天气设置方法华为手机桌面时间天气设置方法:1. 打开手机桌面: 首先，解锁您的华为手机，回到主屏幕。

2. 进入桌面设置: 在主屏幕上找到并长按空白区域，屏幕上会弹出一些选项，其中选择"桌面设置"选项。

3. 选择时间天气小组件：在桌面设置界面中，您会看到很多选项，找到并点击"小组件"选项。

4. 添加新的小组件：在小组件界面，您可以看到已经添加的小组件以及可以添加的小组件。

5. 定位并选择时间天气小组件：在添加小组件界面，您可以滑动屏幕以查看可用的小组件。

找到"时间天气"小组件，点击它。

6. 小组件设置: 选择时间天气小组件后，系统会自动回到桌面设置界面，并显示小组件的大小和位置。

7. 大小调整: 在桌面设置界面，您可以通过拖动小组件的边缘来调整它的大小。

使其适应您的喜好和需求。

8. 位置调整: 在桌面设置界面，您也可以长按小组件并拖动它到您希望它显示的位置。

可以将它放在桌面的任何位置。

9. 设置时间和天气: 点击小组件，系统会跳转到时间和天气的设置界面。

10. 选择城市: 在时间和天气设置界面，您可以看到当前城市的天气信息。

如果您想要显示其他城市的天气，请点击当前城市的名称。

11. 添加城市: 点击当前城市的名称后，系统会显示可选的城市列表。

您可以在搜索栏中输入目标城市的名称并选择它。

12. 确认设置: 在选择目标城市后，系统会自动更新天气信息。

您可以返回桌面查看时间和天气小组件是否正确显示了您所选择的城市的天气。

13. 其他设置: 在时间和天气设置界面，您还可以调整温度单位（摄氏度或华氏度）和时间显示格式。

14. 返回桌面: 所有设置完成后，点击返回按钮或按后退键，系统会保存您的设置并返回到桌面。

至此，您已经成功设置了华为手机桌面上的时间和天气小组件。

您可以在桌面上随时查看时间和所选城市的天气信息。

根据个人喜好和需求，您还可以随时更改设置。

悬浮时间管理电脑推荐

悬浮时间管理电脑推荐1. 引言在如今快节奏的生活中，时间管理变得尤为重要。

许多人发现自己在日常工作和生活中很难合理利用时间，导致效率低下和时间的浪费。

为了帮助人们更好地管理时间并提高工作效率，悬浮时间管理电脑成为了一种流行的解决方案。

本文将介绍悬浮时间管理电脑并给出几款推荐。

2. 悬浮时间管理电脑的概述悬浮时间管理电脑是一种与传统台式机或笔记本电脑不同的设备。

它采用了悬浮显示技术，可以在用户眼前呈现一个虚拟的屏幕，以帮助用户更好地管理时间。

这种悬浮屏幕通常可以随时出现在用户的视野中，并且可以显示时间、日历、待办事项等信息。

用户可以根据自己的需要将任务拖拽到悬浮屏幕上进行管理，以提高工作效率。

3. 悬浮时间管理电脑的优势悬浮时间管理电脑相比传统电脑有以下几个优势：•提醒功能：悬浮屏幕可以随时显示时间和日历，让用户时刻保持时间的意识。

此外，用户还可以设置提醒功能，让悬浮屏幕在特定时间或事件发生时提醒用户。

•任务管理：用户可以将任务拖拽到悬浮屏幕上，以便更好地管理自己的任务。

用户可以随时查看待办事项，并将已完成的任务标记为已完成。

•多任务处理：悬浮屏幕可以同时显示多个应用程序，让用户可以同时处理多个任务。

这种特性可以提高工作效率，并减少切换应用程序的次数。

•个性化设置：悬浮时间管理电脑通常提供个性化的设置选项，允许用户根据自己的喜好进行定制。

用户可以调整悬浮屏幕的大小、位置和透明度，以满足自己的需求。

4. 悬浮时间管理电脑的推荐以下是几款悬浮时间管理电脑的推荐：4.1 Model A•价格：￥5000•特点：Model A是一款功能强大且价格适中的悬浮时间管理电脑。

它拥有大屏幕显示，可以同时显示多个应用程序。

Model A还提供了丰富的个性化设置选项，用户可以根据自己的需要进行定制。

4.2 Model B•价格：￥8000•特点：Model B是一款高端的悬浮时间管理电脑。

它采用了最新的悬浮显示技术，屏幕更加清晰锐利。

电脑桌面图标没有了怎么办

2.右键桌面空白处右击，在“排列图标”里去掉“锁定桌面的web项目” 3.有时会出现上述设置也不能解决问题，我们就可以通过新建一个用户的办法解决，但桌面图标、快速启动栏以及环境变量等等设置会恢复为默认状态，需要重新设置。

(一般不用这项) 4.另一种方法也可轻松解决问题：右击桌面空白处，依次单击“属性/桌面/自定义桌面/web”选项，将“网页”栏中的“当前主页”以及“http//......”等所有各项前面的勾全部去掉（“http//……”为从Internet添加网页或图片的地址，一般不需要，可将它们全部删除），并将下面“锁定桌面项目”前面的勾也去掉，单击确定完成设置，就又能看到可爱的桌面图标了。

另外有一种情况就是安装了某种程序之后(比如系统提示:是否将该ActiveDesktop项添加到您的桌面上)，桌面文字变的不透明。

在“运行”中输入“gpedit.msc”，打开组策略；在“用户配置→管理模板→桌面→ActiveDesktop”中，点启用ActiveDesktop(活动桌面)然后点击“属性”选定“已禁用”，点禁用ActiveDesktop(活动桌面)“属性”选定“已启用”；之后打开控制面板，在经典视图中打开系统，在“性能→高级选项→性能→视觉效果→使桌面文字透明”（等价于在之后执行第1种方法）。

二、注册表修改法：在“开始”--->运行--->打入“regedit”回车HKEY_USERS--->S-1-5-21-1121289129-3884528725-3932546534-1 006>Software--->Microsoft--->Windows--->CurrentVersion--->Explorer--->Advanced 找到“ShowCompColor”=“dword:00000001”更改为“dword:00000000”找到“ListviewShadow”=“dword:00000000”更改为“dword:00000001”(更改方法为双击) 要重启动。

隐藏助手HideHelper应用

隐藏助手HideHelper应用隐藏单个窗口：运行HideHelper,按“CTRL + ALT +D”调出主窗口,在“窗口列表”里显示的是计算机桌面上所有的窗口，列表里包含了窗口的一些属性，例如原始窗口（很有用），当前窗口，状态，透明度，进程名称，窗口类名等等；所有的窗口尽在掌握；想要隐藏某一个窗口怎么办？这个很容易，用鼠标双击即可，但如果每次都要打开HideHelper的界面隐藏窗口也太麻烦了，不用着急，HideHelper提供了一个很方便的功能，它可以给每一个窗口设置一个快捷键来隐藏/显示一个窗口，在列表里右击一个窗口弹出菜单，点“定义窗口隐藏/显示临时热键”，在弹出的对话框里设置一个组合键即可；这样以来你就可以按下你设置的组合键来隐藏/显示指定的窗口了。

HideHelper还有一招必杀技（可选），在当前活动窗口里同时按下鼠标左右键即可快速隐藏当前窗口。

伪装窗口：对于强大的HideHelper来说却能轻松做到，HideHelper提供了伪装功能来更好的保护你的“人身安全”，它可以把一个窗口变透明，还可以改变窗口在任务栏上显示的图标和标题，例如把聊天窗口变成Word,在你最小化窗口后，别人所能看到的只是一个WORD窗口，这样就达到了不隐藏也不被发现的目的，并且你还可以在“窗口列表”里通过“原始窗口”属性来确定被伪装的窗口的“真实身份”。

隐藏一组窗口：打开HideHelper，在“永久热键设置”里，按“新增”打开一个窗口，在这里你可以设置一个组合键以及自定义一组要隐藏的窗口，条件可以是程序名称，窗口类名，窗口标题包含的文字，而且每项都允许你设置多个值，设置完毕以后按下你设置的组合键，桌面上所有满足条件的窗口都将被隐藏，再按一下即可恢复被隐藏的窗口；隐藏一个托盘图标：想隐藏托盘图标，HideHelper同样能做的到，在“托盘列表”里，双击一个图标即可隐藏，同时你也可以按右键弹出这个图标自己的菜单进行操作，选中一个图标后，你还可以按“左键点击”来模拟左键对托盘图标的操作，功能可谓仁至义尽；局部隐藏HideHelper提供的隐藏功能当中该功能最有特色，它可以把窗口的一部分隐藏，例如可以把“开始”按纽隐藏，并且还可以恢复被隐藏的对象；当然还有其他很多妙用，就看你的灵活发挥了。

联想Tab M10 HD用户指南说明书

Lenovo Tab M10 HD 用户指南Lenovo TB-X306FCLenovo TB-X306NC文中所有标示*的内容仅适用于WLAN+LTE型号(Lenovo TB-X306NC)。

基础信息注意：在使用本信息及其支持的产品之前，请务必阅读以下信息：《快速入门和安全服务指南》《法规声明》“附录”中的“重要安全和处理信息”。

《快速入门和安全服务指南》和《法规声明》已上载到网站：。

说明：本指南中的所有图示仅供参考，请以实际产品为准。

主屏幕主屏幕是使用设备的起始点。

为了您的方便，主屏幕上已设置了一些实用的应用程序和小工具。

您可随时对主屏幕进行自定义。

桌面选项菜单点按主屏幕上图标以外的任意位置并按住不放。

在屏幕点按位置出现主屏幕设置、微件和壁纸。

修改主屏幕设置按住主屏幕上除图标外的任意位置，点按主屏幕设置，修改主屏幕设置。

在主屏幕上添加微件按住主屏幕上除图标外的任意位置，点按微件，触摸并按住您需要的应用或小部件，拖至任何想要放置的位置，然后松开。

更换壁纸方法一：转到设置 > 显示 > 壁纸，然后选择您喜欢的壁纸。

方法二：按住主屏幕上除图标外的任意位置，点按壁纸，然后选择您喜欢的壁纸。

将应用程序移动到另一屏幕上点按并按住您想要移动的应用程序，将其向另外一个屏幕拖动，然后在您想要放置的位置松开。

卸载应用程序1.点按并按住要删除的应用程序。

2.拖动到屏幕顶端，点按确定。

注意：如果屏幕顶端不显示，则表明该应用程序不能卸载。

查看所有应用程序在主屏幕，从屏幕底部往屏幕顶部滑动，可查看所有应用程序。

查看最近使用应用程序在主屏幕，从屏幕底部向上滑动并按住再松开，可查看最近使用应用程序。

可以进行以下操作：向左或向右滑动可查看所有最近使用的应用程序。

点按应用程序可将其打开。

向上滑动应用程序窗口可将其关闭。

向下滑动应用程序窗口可将其锁定/解锁。

点按全部清除可关闭所有应用程序。

通知面板和快捷开关从屏幕顶部向下滑动，以查看系统通知消息和快捷开关。

1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。

透明桌面时间助手（附源代码）编程：简凌看了腾讯的时间助手，这个透明的界面很好看了，刚好在学编程，最近下了一个VB6.0的精简版，于是就用些零碎的业余时间做一个小简设计时间助手。

也有n年没有写过代码了，以往岁月中那些浅尝辄止的零散基础也没帮上什么，于是“万事问百度”再加上那股“初生牛犊不怕虎”的劲儿，哎，终于捣弄出来了一个“小简设计时间助手V1”一、时间代码我首先找到时间，日期函数和星期函数，分别改成ChinaTime () Jdata() 和Jweek() Sub Chinatime()tmp = Format(Now, "hh:mm:ss")h = Left(tmp, 2): s = Right(tmp, 2): m = Mid(tmp, 4, 2)Label1.Caption = h + ":" + mEnd SubSub Jdate()JDtmp = Format(Now, "mm/dd/yy")yue = Left(JDtmp, 2)day = Mid(JDtmp, 4, 2)Label2.Caption = yue + "月" + day + "日"End SubSub Jweek()wk = Weekday(Date, vbMonday)Jwk = Left(wk, 1)End Sub百度里有很多答案，我通常会选择最简单的代码。

可是里这个星期1的“数字”有点不好呢，星期日都变成“星期7”了。

对了，加个EndIf就可以了吧Sub Jweek()wk = Weekday(Date, vbMonday)Jwk = Left(wk, 1)If Jwk = 1 ThenLabel3.Caption = "星期一"ElseIf Jwk = 2 ThenLabel3.Caption = "星期二"ElseIf Jwk = 3 ThenLabel3.Caption = "星期三"ElseIf Jwk = 4 ThenLabel3.Caption = "星期四"ElseIf Jwk = 5 ThenLabel3.Caption = "星期五"ElseIf Jwk = 6 ThenLabel3.Caption = "星期六"ElseIf Jwk = 7 ThenLabel3.Caption = "星期日"End IfEnd Sub二、透明窗体和可拖放这都是百度上的代码了，但我会比较哪一个代码更简单，更好用，更有实效。

但我去掉了窗的缩小放大和关闭按钮，因为放在桌面我的考虑不用关闭。

拖动这个透明窗体我放在显示时间的控件上了。

Option ExplicitPrivate Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As LongPrivate Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwndAs Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As LongPrivate Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As LongPrivate Const WS_EX_LAYERED = &H80000Const GWL_EXSTYLE = (-20)Private Const LWA_ALPHA = &H2Private Const LWA_COLORKEY = &H1'变量声明'MoveScreen，布尔型变量，标示窗体是否处于被移动状态Dim MoveScreen As Boolean '鼠标位置Dim MousX As IntegerDim MousY As Integer'窗体位置Dim CurrX As IntegerDim CurrY As Integer '“退出”按钮'当鼠标在窗体上按下时Private Sub Label1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)'---------------------------------------------'参数说明：'---------------------------------------------'button 返回一个整数，用来标识按下或释放的是哪一'个按钮。

button 参数的值为相应于左按钮（1）右按钮'（2），以及中间按钮（4）。

'---------------------------------------------'shift 返回一个整数，在鼠标按钮被按下或者被释放'的同时，SHIFT,CTRL,和ALT 键的状态，返回的shift'参数值分别为1，2，和4。

指示这些键的状态。

'--------------------------------------------'x, y 返回一个指定鼠标指针当前位置的数。

'--------------------------------------------- '如果是鼠标左键按下If Button = 1 Then '标示为移动状态MoveScreen = True '得到鼠标在窗体上的位（相对与窗体内部坐标）MousX = XMousY = YEnd IfEnd Sub '当鼠标在窗体上移过时Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) '如果处于鼠标左键按下的状态，即MoveScreen = True时If MoveScreen Then '计算新的窗体坐标值'仔细想一下，看看是不是这样CurrX = Form1.Left - MousX + XCurrY = Form1.Top - MousY + Y '移动窗体到新的位置Form1.Move CurrX, CurrYEnd IfEnd Sub'把新的窗体坐标显示出来，是相对于屏幕的坐标Label3.Caption = CurrX Label4.Caption = CurrY '把鼠标点击的位置显示出来，是相对与窗体的坐标Label7.Caption = MousX Label8.Caption = MousYEnd Sub'如果鼠标松开，则停止拖动Private Sub Label1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) MoveScreen = FalseEnd Sub呵呵。

窗体终于透明了，注意要把控件的背景色设置为黑色，字体的颜色设置为白色。

或者相反，关键的是在窗体加载时把控件背景色变成要透明的颜色：在代码里是&H0 或者别的颜色值。

Sub Form_Load()Dim rtn As Longrtn = GetWindowLong(hwnd, GWL_EXSTYLE)rtn = rtn Or WS_EX_LAYEREDSetWindowLong hwnd, GWL_EXSTYLE, rtnSetLayeredWindowAttributes hwnd, &H0, 0, LWA_COLORKEYEnd Sub三、天气预报哎呀，我在百度上找到很多，但感觉都太复杂了。

我在成都，只需要知道的成都的天气和温度就可以了。

但百度的上代码都太复杂了。

WebBrowser控件我加窗体里，一加载运行，哦好大的窗体和信息，都跑到窗体外面去了。

于是我不得不对天气预报中国网进行探究，有收费代码，有免费代码。

我就做个小程序，当然找免费的了。

可是如下可都是网页代码。

直接放VB里不行。

我决定从简而行。

我只用了一行代码，其中就是一行网址：Me.WebBrowser1.Navigate "/city/56294_pic2.html"可加载起，有边框，有背景色，不在中间。

怎么办？这个网页已经最简单了，只有一排文字。

经过一番思考，我查看了网页的源代码。

找到关键字：innerText我把WebBrowser控件放在了窗体之外（不是删除）Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant) WebBrowser1.Document.body.Scroll = "no"CDwt =WebBrowser1.Document.body.innerTextLabel5.Caption = CDwtEnd Sub可是，运行后，成都和后面的天气连接到了一起。

不得不再次用到最基础的的取值函数left() Right()Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant) WebBrowser1.Document.body.Scroll = "no"CDwt = Left(WebBrowser1.Document.body.innerText, 2)CDft = Right(WebBrowser1.Document.body.innerText, 12)Label5.Caption = CDwt + " " + CDft小简透明标志这是我桌面的右上角，标志被做成了一幅桌面壁纸。