如何根据点击事件修改标签文本？附代码求助

嘿，我看你想通过点击不同按钮来切换price标签的显示文本，不过你当前的代码写法存在逻辑问题哦——直接调用btn_com_Click()和btn_stock_Click()不是检测按钮是否被点击的正确方式，反而会直接触发这些事件的执行，达不到你想要的判断效果。

问题出在哪？ #

在VBA（看起来是Access/VB6这类环境的代码）里，按钮的Click事件是触发式的Sub过程，它没有返回值，不能用If btn_com_Click() = True这种方式来判断按钮是否被点击。这种写法不仅逻辑错误，还会导致编译报错。

正确的实现方式 #

最直接且易维护的做法是给每个按钮单独编写点击事件，直接修改标签文本：

Private Sub btn_com_Click()
    ' 点击btn_com时，把price标签改成"PRICE"
    Me.price.Text = "PRICE"
End Sub

Private Sub btn_stock_Click()
    ' 点击btn_stock时，把price标签改成"QUANTITY"
    Me.price.Text = "QUANTITY"
End Sub

如果你想把修改标签的逻辑集中起来（方便后续扩展），也可以抽成一个通用方法，然后在按钮事件里调用：

' 通用方法：统一处理标签文本更新
Private Sub UpdatePriceLabel(newDisplayText As String)
    Me.price.Text = newDisplayText
End Sub

' btn_com的点击事件
Private Sub btn_com_Click()
    UpdatePriceLabel "PRICE"
End Sub

' btn_stock的点击事件
Private Sub btn_stock_Click()
    UpdatePriceLabel "QUANTITY"
End Sub

这样写既符合VBA事件驱动的逻辑，代码也更清晰易读~

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