Question

我正在尝试创建一个报告。表单中的选项之一是“符号”，带有一个供用户选择X，/或-

的下拉框。

如果X可见，我希望相应的图像（红色的大号符号）可见。

我已在“报告加载”中建立了事件：

Private Sub Report_Load()

Select Case Me.Symbol

    Case "X"
        Me.ImageX.Visible = True
        Me.ImageDash.Visible = False
        Me.ImageDiagonal.Visible = False
    Case "-"
        Me.ImageX.Visible = False
        Me.ImageDash.Visible = True
        Me.ImageDiagonal.Visible = False
    Case "/"
        Me.ImageX.Visible = False
        Me.ImageDash.Visible = False
        Me.ImageDiagonal.Visible = True
    Case Else
        Me.ImageX.Visible = True
        Me.ImageDash.Visible = True
        Me.ImageDiagonal.Visible = True

End Select

End Sub

关于我所缺少的东西有什么想法吗？

Answer 1

如6月建议的那样，将On Format事件用于对象所在的相关部分，因为直到报告的On Load事件之后，各种对象引用才保存值。有关事件顺序的更多信息，您不妨参考this documentation。

我还建议将您的代码压缩为以下内容：

Private Sub Detail_Format()
    Me.ImageX.Visible = Me.Symbol = "X"
    Me.ImageDash.Visible = Me.Symbol = "-"
    Me.ImageDiagonal.Visible = Me.Symbol = "/"
End Sub

如果遇到大小写，如何设置图像可见？

1 个答案: