按钮上的对号和错号怎么作的，谢谢各位了

这两个按钮是典型的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

1cCYQAlI.jpg (8.56 KB)

vYjlDWm7.jpg (7.73 KB)