如何通过FormB按钮停止FormA中的循环？已尝试[forms!FormA!Runloop=False

完全可行，核心是通过公共状态变量控制循环，并让程序有机会响应跨窗体操作，具体实现步骤如下：

关键要点 #

• 在FormA中定义一个公共布尔变量（比如Runloop），作为循环的开关
• 循环内部必须加入消息处理语句，避免程序卡死无法响应FormB的点击
• FormB的按钮事件直接修改这个公共变量，触发循环停止

代码示例（以VBA为例） #

FormA 代码 #

' 通用声明区（顶部）定义公共变量
Public Runloop As Boolean

' 启动循环的过程
Sub StartLoop()
    Runloop = True
    Do While Runloop
        ' 这里编写你循环要执行的业务逻辑
        DoEvents ' 必须添加：让程序处理UI事件（比如FormB的按钮点击）
        ' 可选：添加小延迟，减少CPU占用
        ' Sleep 100
    Loop
End Sub

FormB 按钮点击事件代码 #

Private Sub CommandButton1_Click()
    ' 修改FormA的公共变量，停止循环
    Forms!FormA.Runloop = False
    ' 或者直接用FormA.Runloop = False，效果一致
End Sub

注意事项 #

1. 变量必须设为Public，否则FormB无法访问FormA中的变量
2. DoEvents是核心：如果循环里没有这句，程序会一直占用CPU，无法处理FormB的点击事件，导致按钮操作无响应
3. 如果是其他语言（如C# WinForms），思路完全一致：FormA定义公共布尔字段，循环中检查并处理UI消息，FormB通过实例引用修改该字段

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