在Access中制作自定义切换按钮

时间:2014-11-07 15:53:44

标签: vba ms-access access-vba

有没有办法在Access中创建自定义切换按钮?我正在寻找创建一个开/关开关。内置的切换按钮很难看。

我已经在photoshop中创建了开/关/悬停图像。有没有办法导入它们来编码它们像内置的切换按钮一样工作?

3 个答案:

答案 0 :(得分:3)

简单地调整图片属性应该很容易,例如:

Private Sub Toggle0_Click()
    If Me.Toggle0 Then
        Me.Toggle0.Picture = "Z:\Docs\Picture1.bmp"
    Else
        Me.Toggle0.Picture = "Z:\Docs\Picture2.bmp"
    End If
End Sub

答案 1 :(得分:3)

Access 2010有一个令人惊叹的按钮编辑器,组合和发光和阴影效果令人惊叹。在更短的时间内输入这个句子,我做了这些切换按钮:

enter image description here

在上面按钮差异是指按下按钮的时间(上面的深蓝色示例是按下的按钮)

以下是用于创建上述内容的Access内置工具的屏幕截图 - 我没有使用任何第三方工具来构建上述内容。正如其他人在此指出的那样,您可以使用按钮包含图像。

enter image description here

答案 2 :(得分:2)

只有一种可能的方式(我确定有很多种方式): -

将您的图像放入表单上的图像控件中,然后将它们排列在一起。 在每个控件的单击事件中,使用以下内容: -

Private Sub img1_Click()
Me.img2.Visible = True
Me.img1.Visible = False
End Sub

Private Sub img2_Click()
Me.img1.Visible = True
Me.img2.Visible = False
End Sub

img1和img2是你的" on"和"关"图像控件。您可以在表单的load事件中设置其中一个,并且可以告诉您" switch"的状态。是,通过检查控件的可见属性。