vb制作圆角按钮,点击有凹陷感
求代码
放一个image作为按钮,选择2个图标或者图片作为有凸凹的2个图
以下实现的是点击一次切换一次按钮。
【以上只是简单的原理,具体是否使用图标列表等你就自己考虑吧】
Public click_bz
Private Sub Form_Load()
click_bz = 0
Image1.Picture = LoadPicture("d:\65.ico")
End Sub
Private Sub Image1_Click()
click_bz = (click_bz + 1) Mod 2
If click_bz = 1 Then
Image1.Picture = LoadPicture("d:\64.ico")
Else
Image1.Picture = LoadPicture("d:\65.ico")
End If
End Sub