vba窗体被移动事件如何获取

musicmh · 发表于 2024-10-16 11:18

我用VBA做了一个定时弹窗提醒消息框

现在遇到BUG
当窗体标题栏被拖到状态栏时，窗体就被隐藏了（点击状态栏或鼠标停在程序预览窗口时）。（我现在做的是置顶显示，就是怕忘记做一些事情，电脑是多位同事一起用的）

我是想可以先写一个窗体回到初始位的程序
sub csh ()

UserForm1.Left = 1200
UserForm1.Top = 500

end sub
再写一个满足条件后延时2分钟再回到原来的位置

If Me.Left <> 1200 And Me.Top <> 500 Then

Application.OnTime Now + TimeValue("02:00:00"), "csh"

End If
窗体又没有移动事件

窗体加载后直到卸载前被移到了，过一会就回到初始位置，这个窗体移动的条件怎么获取

Activate,Deactivate激活停用事件无效，单击事件也不行，按住标题栏拖也不可能去点一下窗体

表格vba密码123
大部分代码都是抄的，刚入门（人懒不爱思考）自己写的变量都没用

跪谢大神赐教

消息提醒.zip (37.7 KB, 下载次数: 11)

autohotey · 发表于 2024-10-16 14:34

整这个太麻烦了吧不如直接用win自带的便签Sticky Notes

tdpzby · 发表于 2024-10-16 14:38

layout事件中可以操作

musicmh · 发表于 2024-10-17 09:53

本帖最后由 musicmh 于 2024-10-17 09:57 编辑

tdpzby 发表于 2024-10-16 14:38
layout事件中可以操作

感谢

Private Sub UserForm_Layout()
Application.OnTime Now + TimeValue("00:00:03"), "csh"
End If
End Sub
然后在模块中加

Sub csh()
UserForm1.Left = 1200
UserForm1.Top = 500

End Sub

可以实现
好像窗体加载了之后不能调用UserForm_Initialize再初始化

musicmh · 发表于 2024-10-17 10:01

autohotey 发表于 2024-10-16 14:34
整这个太麻烦了吧不如直接用win自带的便签Sticky Notes

这个方法，没有去研究过，还不会用呢

autohotey · 发表于 2024-10-17 10:25

musicmh 发表于 2024-10-17 10:01
这个方法，没有去研究过，还不会用呢

我的意思是Windows系统自带便签功能，软件名叫这个Sticky Notes，类似记事本/备忘录
优点是能展示在桌面上，缺点是没有提醒功能。

ggmmlol · 发表于 2024-10-17 14:40

本帖最后由 ggmmlol 于 2024-10-17 14:50 编辑

win本身提供了"计划任务"功能，可以定时地做各种事情：播放音乐、打开文本文件、执行VBS或JS或DOS批处理脚本

如果某项定时任务可以用Excel宏自动完成，那么，可以用VBS脚本定时打开包含自动宏的Excel工作簿实现。
如果定时任务必须人工参与，那么可以用VBS脚本定时（或提前3~5分钟）播放音乐或朗读文本信息来提醒。

musicmh · 发表于 2024-10-18 03:05

ggmmlol 发表于 2024-10-17 14:40
win本身提供了"计划任务"功能，可以定时地做各种事情：播放音乐、打开文本文件、执行VBS或JS或DOS批处理脚 ...

公司电脑计划任务的消息提醒被禁用了，需要置顶显示，对VBA有点了解可以实现

		自动登录	找回密码
密码			免费注册

[求助] vba窗体被移动事件如何获取