这两个按钮是典型的Delphi/BCB中的按钮,在Delphi/BCB中做这种按钮只要设置一下属性即可,在VB中也不难,只要设置按钮的Style属性为1-Graphical,然后设置Picture属性,添加按钮图片即可,但是这个图片和按钮文字是上下排列的,想变成左右排列很不方便,因此可以直接将文字做在图片中,然后将按钮的Caption属性去掉。
效果如下: [attach]976[/attach]
代码: Option Explicit
Private Sub Command2_Click() With Command1 .Caption = "" .Picture = Image1.Picture .MaskColor = vbWhite .UseMaskColor = True End With End Sub