按键显示效果

按键按下效果

请教一下，如何把按键的边框去掉，只显示里面的图片，这样好看一点。注明一下是要做按键，谢谢！



[ 本帖最后由 chenbiao2011 于 2011-6-25 22:51 编辑 ]

使用 image  控件就可以了。

不要用 按钮控件。

https://bbs.bccn.net/viewthread.php?tid=342520&page=1#pid1969051
or
https://bbs.bccn.net/viewthread.php?tid=342496&page=1#pid1969049

[ 本帖最后由 wube 于 2011-6-24 15:14 编辑 ]

谢谢，你的指点，但是我想用的是按键的方式来实现，需要按下去放命令。比如我控制一个电视机的开关，按下有按下的图片。

使用自定义控件。
   内部加载二张图片。一个变量控制值。然后单击时修改值，根据值显示对应的图片。

谢谢大侠，能再详细指点一下吗，自定义控件怎么去用，我比较菜鸟。我主要是做多媒体控制系统的，原来都是在别人开发好的软件上做界面，相对简单。

如图：

像这种软件的按键可以用PNG格式的图片，按键的边框就设成透明就可以了。现在想在PC上开发一套所以希望也做成这样，呵呵！


[ 本帖最后由 chenbiao2011 于 2011-6-28 11:48 编辑 ]

施主施舍一下代码吧。   

需要图片 : "控制.jpg"背景图 + 4个按钮按下前后8张图
需要控件 : ImageBox(0～3) + ImageList1 + ImageList2

Option Explicit

Dim ButtonStatus() As Boolean   '按钮图片状态用

Private Sub Form_Initialize()
    ReDim ButtonStatus(3)
End Sub

Private Sub Form_Load()
Dim i As Integer

    With Form1
    
        .Top = 0
        .Left = 0
        .Height = "背景图高"
        .Width = "背景图宽"
        .Picture = LoadPicture("背景图路径")
    
    End With
    
    For i = 0 To UBound(ButtonStatus)
        ButtonStatus(i) = False '按钮图片状态初始化
    Next i
    
End Sub

Private Sub Image1_Click(Index As Integer)
    Select Case Index
        Case 0
            If ButtonStatus(0) = True Then
                Image1(0).Picture = ImageList1.ListImages(0).Picture
                ButtonStatus(0) = False
                Call AAA    '按下按钮0触发的事件内容
            Else
                Image1(0).Picture = ImageList2.ListImages(0).Picture
                ButtonStatus(0) = True
                Call BBB    '按下按钮0触发的事件内容
            End If
        Case 1
            If ButtonStatus(1) = True Then
                Image1(0).Picture = ImageList1.ListImages(1).Picture
                ButtonStatus(1) = False
                Call CCC    '按下按钮1触发的事件内容
            Else
                Image1(0).Picture = ImageList2.ListImages(1).Picture
                ButtonStatus(1) = True
                Call DDD    '按下按钮1触发的事件内容
            End If
        Case 2
            If ButtonStatus(2) = True Then
                Image1(0).Picture = ImageList1.ListImages(2).Picture
                ButtonStatus(2) = False
                Call EEE    '按下按钮2触发的事件内容
            Else
                Image1(0).Picture = ImageList2.ListImages(2).Picture
                ButtonStatus(2) = True
                Call FFF    '按下按钮2触发的事件内容
            End If
        Case 3
            If ButtonStatus(3) = True Then
                Image1(0).Picture = ImageList1.ListImages(3).Picture
                ButtonStatus(3) = False
                Call GGG    '按下按钮3触发的事件内容
            Else
                Image1(0).Picture = ImageList2.ListImages(3).Picture
                ButtonStatus(3) = True
                Call HHH    '按下按钮3触发的事件内容
            End If
    End Select
End Sub

不用按钮控件～大概是这样写～

我都是用image 模拟出来。

谢谢，我先试试！