【问题标题】:MS Access Toggle Button backgroundMS Access 切换按钮背景
【发布时间】:2017-12-20 23:15:12
【问题描述】:

是否可以完全删除 Access 中切换按钮的背景颜色和边框?如 Imgur 图片所示,我想完全删除按钮的灰色背景和边框,所以我只保留白色图标(那个列表图标)。这可能吗?

【问题讨论】:

  • 我不知道。

标签: ms-access vba


【解决方案1】:

我确信这与您在MS Access ToggleButton Picture change 的其他问题有关。

使用带有嵌入图像的图像控件和此代码(注意在标头中声明公共变量):

Option Compare Database
Option Explicit
Public booMenu

Sub timeout(duration_ms As Double)
    Dim Start_Time As Double
    Start_Time = Timer
    Do
        DoEvents
    Loop Until (Timer - Start_Time) >= duration_ms
End Sub

Private Sub Image5_Click()
    Dim x As Integer
    booMenu = Not booMenu
    Me.Menu.Visible = True
    Do
        DoEvents
        Me.Menu.Width = Me.Menu.Width + IIf(booMenu, 200, -200)
        Me.Menu.Left = Me.Menu.Left - IIf(booMenu, 200, -200)
        Me.Image5.Left = Me.Image5.Left - IIf(booMenu, 200, -200)
        timeout (0.01)
        x = x + 1
    Loop Until x = 10
    Me.Menu.Visible = booMenu
End Sub

【讨论】:

  • 换句话说,你说我应该删除切换按钮并使用图像代替?
  • 只有我能看到才能得到你描述的效果。
【解决方案2】:

我设法找到(某种)解决方案。解决方案是更改以下参数:

Use Theme = No; 
BackColor = Form Color; 
Pressed Back Color = Form Color

最终,它提供的效果与我试图实现的效果非常相似。

【讨论】:

    猜你喜欢
    • 2013-06-07
    • 1970-01-01
    • 1970-01-01
    • 1970-01-01
    • 1970-01-01
    • 2021-03-28
    • 2015-08-04
    • 2017-08-19
    • 2011-03-05
    相关资源
    最近更新 更多