58e84ddd25
All checks were successful
NTFY Notification / notify (push) Successful in 4s
Co-Authored-By: Claude Sonnet 4.5 <noreply@anthropic.com>
36 lines
1.7 KiB
QBasic
36 lines
1.7 KiB
QBasic
Sub TestStatusBarColor()
|
||
Dim i As Integer
|
||
|
||
' --- 第一阶段：观察初始状态 ---
|
||
' 此时还没有修改状态栏
|
||
MsgBox "【步骤 1/3】" & vbCrLf & vbCrLf & _
|
||
"请现在看一眼 Excel 左下角的状态栏。" & vbCrLf & _
|
||
"它应该是【白色/灰白色】的，显示'就绪'。" & vbCrLf & vbCrLf & _
|
||
">>> 准备好观察变色了吗？点击确定开始写入文字。", vbInformation, "初始状态检查"
|
||
|
||
' --- 第二阶段：写入自定义内容 ---
|
||
' Excel 应该会在这一行代码执行的瞬间，改变状态栏样式
|
||
For i = 1 To 5
|
||
Application.StatusBar = "【正在测试】状态栏底色变了吗？计数: " & i
|
||
|
||
' 强制刷新界面，确保你能看到变化
|
||
DoEvents
|
||
|
||
' 暂停 1 秒，让你有时间观察
|
||
Application.Wait (Now + TimeValue("0:00:01"))
|
||
Next i
|
||
|
||
' --- 第三阶段：暂停在修改状态，再次确认 ---
|
||
MsgBox "【步骤 2/3】" & vbCrLf & vbCrLf & _
|
||
"代码正在运行中，状态栏内容已被修改。" & vbCrLf & _
|
||
"请看左下角：底色是否变成了【深绿色】或【深灰色】？" & vbCrLf & _
|
||
"文字是否变成了不易辨认的细黑体？" & vbCrLf & vbCrLf & _
|
||
">>> 点击确定后，我将重置状态栏。", vbExclamation, "接管状态检查"
|
||
|
||
' --- 第四阶段：重置 ---
|
||
Application.StatusBar = False ' 这一句是关键，False 代表交还控制权给 Excel
|
||
|
||
MsgBox "【步骤 3/3】" & vbCrLf & vbCrLf & _
|
||
"测试结束。状态栏应该已经恢复为【白色/灰白色】的'就绪'状态。", vbInformation, "恢复状态检查"
|
||
|
||
End Sub |