## 说明:
本案例和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)
## 软件及源码下载
**软件下载:** [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)
- 关于clsWindow
- 一、获取窗口
- GetWindowByTitle 函数
- GetWindowByTitleEx 函数
- GetWindowByClassName 函数
- GetWindowByClassNameEx 函数
- GetWindowByPoint 函数
- GetWindowByAppName 函数
- GetWindowByAppNameEx 函数
- GetWindowByCursorPos 函数
- GetWindowByPID 函数
- GetWindowByHwnd 函数
- Load 函数(同GetWindowByHwnd)
- 二、操作窗口
- Focus 方法
- SetFocus 方法(同Focus)
- FadeIn 方法
- FadeOut 方法
- Transparent 函数
- SetTransparent 函数(同Transparent)
- MakeTransparent 函数(同Transparent)
- Shake 方法
- CloseWindow 函数
- ClassName 属性
- Caption 属性
- Text 属性(同Caption)
- Title 属性(同Caption)
- Value 属性(同Caption)
- ZOrder 方法
- Left 属性
- Top 属性
- Width 属性
- Height 属性
- Visible 属性
- Enabled 属性
- WindowState 属性
- AlphaBlend 属性
- TransparentColor 属性
- CheckWindow 函数
- Move 函数
- MoveToCenter 函数
- Show 函数
- Hide 函数
- Refresh 方法
- SetPosBottom 函数
- SetPosFront 函数
- SetPosNormal 函数
- SetTop 函数
- IsTopMost 函数
- IsForegroundWindow 属性
- Maximized 函数
- Minimized 函数
- Normal 函数
- Restore 函数(同Normal)
- 三、操作控件
- GetElementHwndByText 函数
- GetElementHwndByClassName 函数
- GetElementTextByText 函数
- GetElementTextByClassName 函数
- GetClassNameByHwnd 函数
- GetTextByHwnd 函数
- GetCaptionByHwnd 函数(同GetTextByHwnd)
- SetElementTextByText 函数
- SetElementTextByClassName 函数
- SelectComboBoxIndex 函数
- AppendElementTextByClassName 函数
- Click 函数
- ClickElementByText 函数
- ClickElementByClassName 函数
- SendKeys 方法
- Paste 方法
- FileToClipboard 函数
- ClipboardSetText 函数
- 四、鼠标坐标相关
- ClickCurrentPoint 方法
- ClickPoint 方法
- ClickPointBackground 方法
- SetCursor 方法
- MoveCursor 方法(同SetCursor)
- MoveCursorTo 方法(同SetCursor)
- SetPoint 方法(同SetCursor)
- GetCursorPoint 函数
- GetCursorPosCurrent 函数(同GetCursorPoint)
- MouseLeftDown 方法
- MouseLeftUp 方法
- MouseRightDown 方法
- MouseRightUp 方法
- DragTo 方法
- DragToEx 方法
- 五、应用程序相关
- AppPath 函数
- AppName 函数
- IsWin64 函数
- CommandLine 函数
- AppCommandLine 函数(同CommandLine)
- CloseApp 函数
- ProcessID 函数
- PID 函数(同ProcessID)
- 六、公有方法属性等
- hWnd 公有变量
- DebugMe 公有变量
- Wait 方法
- Version 方法
- 使用范例
- 01 控制微信发送消息
- 02 控制QQ发送消息
- 03 QQ登录器
- 04 花式调用计算器
- 05 用鼠标在画图工具上画圆
- 06 控制记事本输入并保存
- 07 随机移动鼠标防锁屏
- 08 根据ID进入腾讯课堂
- 09 限制程序重复打开
- 10 控制c2p软件将ceb转换为pdf格式
- 11 实战:微便签-窗口特效
- 12 实战:窗口图钉-窗口置顶
- 13 实战:微型按键精灵,录制和播放鼠标动作
- 一些Q&A
- 01 这个框架是免费的吗?
- 02 无句柄的控件元素如何操作?
- 03 目标窗体中有相同类名输入框如何区分填写?
- 04 为什么win10下最大化不生效?
- 05 如何确定绝对或相对坐标?
- 06 相同标题的窗口如何得到所有句柄?
- 联系我们