access vba 改变控件背景颜色不能立刻生效

lyzcl · 发表于 2023-7-18 22:56

下面的代码，2次把控件背景颜色设成红色，都不起作用，即使设置了中断对话框。只能看到最后变成黄色。
请问这是为什么？怎样才能在程序运行的过程中，改变控件的颜色？（比分说：程序运行当中按钮为红色，运行完毕再回到默认颜色）

Private Sub Command12_Click()

Me.Command12.BackColor = vbRed

MsgBox "没变红"

Me.Command12.BackColor = vbRed

MsgBox "还没变红"

Me.Command12.BackColor = vbYellow

'最后变黄了

End Sub

zpy2 · 发表于 2023-7-19 07:19

开始加

me.Painting =true

zpy2 · 发表于 2023-7-19 07:25

Me.Command12.BackColor = vbRed

me.Repaint

zpy2 · 发表于 2023-7-19 07:26

Me.Command12.BackColor ....vbRed

me.Repaint

lyzcl · 发表于 2023-7-19 11:07

感谢回复，试了，可是依然没有用。
不过，设置detail.backcolor（主体.backcolor)是可以直接生效的。

Private Sub Command12_Click()

Me.Painting = True

Me.Command12.BackColor = vbRed

Me.Repaint

MsgBox "没变红"

Me.Command12.BackColor = vbRed
Me.Repaint

MsgBox "还没变红"

Me.Command12.BackColor = vbYellow

'最后变黄了

End Sub

lyzcl · 发表于 2023-7-19 21:26

zpy2 发表于 2023-7-19 07:26
Me.Command12.BackColor ....vbRed

me.Repaint

最终发现，设置别的button可以，但设置代码所在的button事件中，始终不能即时生效。

zpy2 · 发表于 2023-7-20 05:44

lyzcl 发表于 2023-7-19 21:26
最终发现，设置别的button可以，但设置代码所在的button事件中，始终不能即时生效。

Private Sub Form_Timer()
if color=1 then
Me.Command12.BackColor = vbRed
else
Me.Command12.BackColor = vbYellow

end if
Me.TimerInterval = 0 'disable the Timer
End Sub
全局模块定义全局变量
public dim color

点击事件
Private Sub Command12_Click()
Me.TimerInterval = 100

color=1
msgbox
Me.TimerInterval = 100
color=2
end sub

		自动登录	找回密码
密码			免费注册

[求助] access vba 改变控件背景颜色不能立刻生效