如何让Rumba中UserForm实现类似vbSystemModal的激活效果？

无Windows API的实现方式 #

• 监控Rumba窗口焦点，自动激活UserForm
  在UserForm的代码模块中添加以下代码，通过定时检查Rumba窗口的焦点状态，当用户切回Rumba时自动激活UserForm：

  Private Sub UserForm_Activate()
      ' 每隔1秒检查一次Rumba焦点状态
      Application.OnTime Now + TimeValue("00:00:01"), "CheckRumbaFocus"
  End Sub
  
  Sub CheckRumbaFocus()
      Dim rumbaApp As Object
      Set rumbaApp = GetObject(, "Rumba.Application")
      
      ' 判断Rumba是否处于激活状态，若是则激活UserForm
      If rumbaApp.ActiveWindow.Focused Then
          Me.Activate
      End If
      
      ' 继续定时检查
      Application.OnTime Now + TimeValue("00:00:01"), "CheckRumbaFocus"
  End Sub
  
  Private Sub UserForm_Terminate()
      ' 关闭UserForm时取消定时任务，避免残留
      On Error Resume Next
      Application.OnTime Now + TimeValue("00:00:01"), "CheckRumbaFocus", , False
  End Sub
  

  注意：若Rumba对象模型不支持Focused属性，可替换为尝试激活Rumba窗口的逻辑——如果AppActivate rumbaApp.ActiveWindow.Caption执行成功，说明Rumba刚被激活，此时调用Me.Activate即可。

Windows API实现系统模态效果 #

如果上述方法无法满足需求，可通过Windows API将UserForm设置为类似MsgBox的系统模态窗口，点击任何区域都会自动激活UserForm：

' 声明所需API函数（32/64位兼容）
Private Declare PtrSafe Function SetWindowLongPtr Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As LongPtr, ByVal nIndex As Long, ByVal dwNewLong As LongPtr) As LongPtr
Private Declare PtrSafe Function GetWindowLongPtr Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As LongPtr, ByVal nIndex As Long) As LongPtr
Private Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr

Private Const GWL_EXSTYLE = -20
Private Const WS_EX_TOPMOST = &H8
Private Const WS_EX_APPWINDOW = &H40000

Private Sub UserForm_Initialize()
    Dim hwnd As LongPtr
    ' 获取当前UserForm的窗口句柄
    hwnd = FindWindow(vbNullString, Me.Caption)
    
    ' 修改窗口扩展样式，设置为始终置顶并赋予应用窗口属性
    Dim exStyle As LongPtr
    exStyle = GetWindowLongPtr(hwnd, GWL_EXSTYLE)
    exStyle = exStyle Or WS_EX_TOPMOST Or WS_EX_APPWINDOW
    SetWindowLongPtr hwnd, GWL_EXSTYLE, exStyle
End Sub

此方法会让UserForm始终保持在所有窗口最上层，且任何对Rumba的点击操作都会自动将焦点带回UserForm，完全实现vbSystemModal的特性。

内容的提问来源于stack exchange，提问作者Sky Bourne