- html - 出于某种原因,IE8 对我的 Sass 文件中继承的 html5 CSS 不友好?
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景?
我需要一种比 user32.dll 中的 SetTimer API 更好的引发事件的方法。
您是否成功使用过其他计时器 API?您知道在 Excel 中引发事件或异步调用函数的另一种方法吗?
“更好”是什么意思?我需要一些可以异步地从内部维护的队列中弹出消息的东西。问题在于,外部数据源(路透社市场数据)将项目推送到队列中,该数据源使用 WM_Application 范围内的消息引发其“数据更新”事件; SetTimer 的工作原理是发送 WM_Timer 消息,这是 Windows 消息传递的七大弱点,而我的“Pop”进程永远没有机会运行,即使在流量相对较小的情况下也是如此。
如果您对更好的架构有建议,请随时提出:但是传入的数据更新事件绝对必须尽可能快地转到事件“接收器” - 如果事件(或回调)太多,Excel 将崩溃当某个漫长而缓慢的进程正在处理最后一个事件以及之前的事件时引发。我的队列大小有限,因为应用程序中只有几百只股票:传入的数据更新可以查看并更新现有项目(如果它是队列中已存在股票的更新价格),也可以推送新股票的价格。股票行情和价格进入队列。因此,不会因为我们很忙而丢弃任何定价数据,并且推送和查看函数的干净编码意味着事件接收器足够快以确保 Excel 保持稳定。
但我仍在寻找一种更好的方法来将项目从队列中弹出。
不幸的是,我尝试过的所有其他计时器 API 似乎都无法在 VBA 中工作:它们会使应用程序崩溃或卡住代码执行。以下是列表(超链接指向 MSDN 文档):
我怀疑这些函数遇到的问题与我的语法错误无关:我不太了解 Windows 线程模型,无法说明它们回调时实际发生的情况,但其中一个的文档其中声明“此回调函数不得调用 TerminateThread 函数”,我认为这意味着 VBA 无法“接收”由该特定计时器 API 引发的事件。
据我所知,我知道杀死或删除这些计时器及其关联队列的正确 API 调用:空间有限,可等待计时器使用单独的 Create-、Set-、Cancel- 和 CloseHandle API 调用。 TimerProc 函数的签名都略有不同。
这是标准 SetTimer 函数调用:
lngTimerID = SetTimer(hWndXL, VBA.ObjPtr(Me), lngInterval, AddressOf TimerProc)
我不会用 TimerProc 函数声明和有关委托(delegate)的题外话来烦您:如果您能回答这个问题,那么您已经看到了所有相关的代码示例。
我期待您的回复:我有一个正在运行的应用程序,仔细的编码和隔离意味着内部数据滞后是可以接受的。但我想我可以做得更好,即使我仅限于提供独立的 Excel 工作簿。
最佳答案
我并不是 100% 同意你想要做的事情,但是计时器 API 会让你异步“安排”函数调用,但是回调当然不会异步执行,因为它全部发生在同一个线程上。
也就是说,任何回调计时器 API 都应该在 VBA 中工作,例如(使用 n-instances->single call):
定时器模块
Public Const TIME_PERIODIC As Long = 1
Public Const TIME_CALLBACK_FUNCTION As Long = &H0
Public Declare Function CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (dest As Any, src As Any, ByVal length As Long) As Long
Public Declare Function timeKillEvent Lib "winmm.dll" (ByVal uID As Long) As Long
Public Declare Function timeSetEvent Lib "winmm.dll" (ByVal uDelay As Long, ByVal uResolution As Long, ByVal lpFunction As Long, ByVal dwUser As Long, ByVal uFlags As Long) As Long
Public Sub tmrCallback(ByVal uID As Long, ByVal uMsg As Long, ByVal dwUser As Long, ByVal dw1 As Long, ByVal dw2 As Long)
If (dwUser = 0) Then
timeKillEvent uID
Exit Sub
End If
Dim IDisp As Object
Dim Obj As Class1
CopyMemory IDisp, dwUser, 4&
Set Obj = IDisp
CopyMemory IDisp, 0&, 4&
Obj.TimerMethod
End Sub
1级
Private MYHTIMER As Long
Public Name As String
Private Sub stopTmr()
If (MYHTIMER) Then timeKillEvent MYHTIMER
End Sub
Private Sub Class_Initialize()
MYHTIMER = timeSetEvent(1000, 0, AddressOf Module1.tmrCallback, ObjPtr(Me), TIME_PERIODIC Or TIME_CALLBACK_FUNCTION)
End Sub
Private Sub Class_Terminate()
stopTmr
End Sub
Public Sub TimerMethod()
Static lCntr As Long: lCntr = lCntr + 1
Debug.Print "In " & Me.Name & ".TimerMethod()", "#"; lCntr, CLng(Timer - StartTime) & "secs"
If (lCntr = 2) Then TestBlockThreadFor5Secs
If (lCntr >= 3) Then stopTmr
End Sub
测试
Public A As Class1
Public B As Class1
Sub test()
Set A = New Class1: A.Name = "inst1"
Set B = New Class1: B.Name = "inst2"
End Sub
Sub TestBlockThreadFor5Secs()
Debug.Print "**blocking"
t = Timer:
Do Until Timer - t = 5: Loop
End Sub
结果
In inst1.TimerMethod() # 1 1secs
In inst2.TimerMethod() # 1 1secs
In inst1.TimerMethod() # 2 2secs
**blocking
In inst1.TimerMethod() # 3 7secs
In inst2.TimerMethod() # 2 7secs
**blocking
In inst2.TimerMethod() # 3 12secs
关于vba - 计时器函数并通过回调生成事件,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/3008197/
我正在尝试将 WPF CodeBehid 事件(如 Event、Handler、EventSetter)转换为 MVVM 模式。我不允许使用 System.Windows.Controls,因为我使用
我可能误解了 Backbone 中的事件系统,但是当我尝试以下代码时什么也没有发生。当我向 Backbone.Events 扩展对象添加新属性时,它不应该触发某种更改、更新或重置事件吗?就像模型一样吗
我遇到了一个简单的问题,就是无法弄清楚为什么它不起作用。我有一个子组件“app-buttons”,其中我有一个输入字段,我想听,所以我可以根据输入值过滤列表。 如果我将输入放在我有列表的根组件中,一切
System.Timers.Timer 的 Elapsed 事件实际上与 System.Windows.Forms.Timer 的 Tick 事件相同吗? 在特定情况下使用其中一种比使用另一种有优势吗
嗨,这个 javascript 代码段是什么意思。(evt) 部分是如此令人困惑.. evt 不是 bool 值。这个怎么运作? function checkIt(evt) { evt
我正在使用jquery full calendar我试图在事件被删除时保存它。 $('calendar').fullCalendar ({
我有两个链接的鼠标事件: $('body > form').on("mousedown", function(e){ //Do stuff }).on("mouseup", function(
这是我的代码: $( '#Example' ).on( "keypress", function( keyEvent ) { if ( keyEvent.which != 44 ) {
我尝试了 dragOver 事件处理程序,但它没有正常工作。 我正在研究钢琴,我希望能够弹奏音符,即使那个键上没有发生鼠标按下。 是否有事件处理程序? 下面是我正在制作的钢琴的图片。 最佳答案 您应该
当悬停在相邻文本上时,我需要使隐藏按钮可见。这是通过 onMouseEnter 和 onMouseLeave 事件完成的。但是当点击另外的文本时,我需要使按钮完全可见并停止 onMouseLeave
我有ul标签内 div标签。我申请了mouseup事件 div标记和 click事件 ul标签。 问题 每当我点击 ul标签,然后都是 mouseup和 click事件被触发。 我想要的是当我点击 u
我是 Javascript 和 jQuery 的新手,所以我有一个非常愚蠢的疑问,请耐心等待 $(document).click(function () { alert("!"); v
我有一个邮政编码解析器,我正在使用 keyup 事件处理程序来跟踪输入长度何时达到 5,然后查询服务器以解析邮政编码。但是我想防止脚本被不必要地调用,所以我想知道是否有一种方法可以跟踪 keydown
使用事件 API,我有以下代码来发布带有事件照片的事件 $facebook = new Facebook(array( "appId" => "XXX", "se
首次加载 Microsoft Word 时,既不会触发 NewDocument 事件也不会触发 DocumentOpen 事件。当 Word 实例已打开并打开新文档或现有文档时,这些事件会正常触发。
我发现了很多相关问题(这里和其他地方),但还没有具体找到这个问题。 我正在尝试监听箭头键 (37-40) 的按键事件,但是当以特定顺序使用箭头键时,后续箭头不会生成“按键”事件。 例子: http:/
给定的 HTML: 和 JavaScript 的: var $test = $('#test'); $test.on('keydown', function(event) { if (eve
我是 Node.js 的新手,希望使用流运行程序。对于其他程序,我必须同时启动一个服务器(mongodb、redis 等),但我不知道我是否应该用这个运行一个服务器。请让我知道我哪里出了问题以及如何纠
我正在尝试使用 Swift 和 Cocoa 创建一个适用于 OS X 的应用程序。我希望应用程序能够响应关键事件,而不将焦点放在文本字段上/文本字段中。我在 Xcode 中创建了一个带有 Storyb
我有以下代码: (function(w,d,s,l,i){ w[l]=w[l]||[];w[l].push({
我是一名优秀的程序员,十分优秀!