MS Access切换按钮背景

问题描述 投票:0回答:2

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

ms-access access-vba
2个回答
0
投票

我相信这与你在MS Access ToggleButton Picture change的另一个问题有关。

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

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

0
投票

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

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

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

© www.soinside.com 2019 - 2024. All rights reserved.