分享个ValueScopeGuard相关的代码

leolee82

C++中常用的确保资源释放的技术，通过析构函数恢复变量的值
通常用于临时改变状态，函数执行完后恢复状态。之前用的回调函数，新做了这个更轻的。
不知怎么回事之前代码不完整，已补充

1. Option Explicit
   
2. 'outscope恢复变量的值,仅适用于简单的值类型
   
3. '复杂类型请用clsScopeGuard或clsNamedScopeGuard
   
4. 
   
5. '使用方式:
   
6. 'Dim sg As New clsValueScopeGuard
   
7. 'sg.Create VarPtr(v), VarPtr(5&), 4
   
8. 
   
9. Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (ByVal Destination As Long, ByVal Source As Long, ByVal Length As Long)
   
10. 
    
11. Private m_pOriginal As Long
    
12. Private m_nBytes As Long
    
13. Private m_Buffer(16) As Byte
    
14. 
    
15. Sub Create(ByVal pOriginal As Long, ByVal pFinal As Long, ByVal nBytes As Long)
    
16.     m_pOriginal = pOriginal
    
17.     m_nBytes = nBytes
    
18.    
    
19.     '保存pFinal的值
    
20.     CopyMemory VarPtr(m_Buffer(0)), pFinal, m_nBytes
    
21. End Sub
    
22. 
    
23. Private Sub Class_Terminate()
    
24.     '设置Original的值为pFinal
    
25.     CopyMemory m_pOriginal, VarPtr(m_Buffer(0)), m_nBytes
    
26. End Sub
    
27. 
    

复制代码

lxw6

能列个具体应用场景吗？

leolee82

lxw6 发表于 2023-4-24 10:27
能列个具体应用场景吗？

ExcelDIY源码中的一段代码
用于保证RunAction后g_bActionRunning为False,无论RunAction中出现任何错误。g_bActionRunning为True是用于避免键盘和鼠标钩子不执行过多的代码，以及在任何情况下RunAction不会重入。

1. 
   
2. Sub RunActionWithScopeGuard()
   
3. If g_bActionRunning Then Exit Sub
   
4. g_bActionRunning = True
   
5. Dim sg As New clsValueScopeGuard: sg.Create VarPtr(g_bActionRunning), VarPtr(False), 2
   
6. Call RunAction
   
7. End Sub

复制代码