企业🤖AI Agent构建引擎,智能编排和调试,一键部署,支持私有化部署方案 广告
## 说明: 本案例和clswindow框架关系不大,主要是使用clsWindow2.2中的一些特效和窗口管理,使得软件开发进程加快,事半功倍。 软件叫做微便签,是一款windows操作系统下的便签软件,完全可以替代系统自带的便签,每个便签可单独设置提醒,可设置半透明。便签平常都是在系统右下角托盘区,不占用任务栏。在底部有完整的源码下载。 ## 测试环境:win7x64 >[info]**提示:** 如果在xp等较低版本的操作系统上运行可能会发生错误,可以更换图标编译,或者直接下载我编译好的适合xp下运行的版本。 ## 部分代码摘录: **说明:** 这是Form_Load过程中的部分代码,*可* **以** 看到大量使用了clswindow框架的方法,例如fadein淡入,设置窗口置顶,以及半透明等等。 ``` Dim w As New clsWindow w.hwnd = Me.hwnd picMain.BackColor = vbWhite If strInitData <> "" Then '说明是需要初始化的 w.MakeTransparent 0 '防止闪动 Me.Show w.FadeIn 50 If v(6) <> 100 Then '如果指定透明度了的那么还要设置下 w.Transparent v(6) HScroll1.Value = v(6) End If . . . If v(8) = "是" Then w.SetTop Check1.Value = 1 End If Else w.MakeTransparent 0 Me.Show w.FadeIn 50 HScroll1.Value = 90 w.Transparent HScroll1.Value End If ``` ![](https://img.kancloud.cn/cb/c4/cbc494d0551cd446a9333b024798b8ff_996x1018.png) ![](https://img.kancloud.cn/3b/21/3b21041d3dd3886c575a22dfd7130702_573x650.png) ![](https://img.kancloud.cn/f3/87/f387692e162591198bc72c5d6f4d1edc_656x632.png) ![](https://img.kancloud.cn/4a/9d/4a9dd080dc41bdb09e952b2c9984cfe0_644x915.png) ![](https://img.kancloud.cn/f1/cf/f1cf838ddc7ce34ee026355d5363737f_303x353.png) &nbsp; ## 软件及源码下载 **软件下载:** [https://github.com/sysdzw/WeNote/raw/master/WeNote.exe](https://github.com/sysdzw/WeNote/raw/master/WeNote.exe) **源码(github):**[https://github.com/sysdzw/WeNote](https://github.com/sysdzw/WeNote) **源码(gitee):**[https://gitee.com/sysdzw/WeNote](https://gitee.com/sysdzw/WeNote) **xp下的成品软件如果不能用请下载:** [https://github.com/sysdzw/WeNote/raw/master/WeNote\_for\_xp.exe](https://github.com/sysdzw/WeNote/raw/master/WeNote_for_xp.exe)