请教，用 API 生成的按钮，如何让它有文字又有图？

Question

生成按钮，为什么不用vb中的load object方法，可以象一个普通控件一样操作，搞这么麻烦一个api来生成一个按钮。可否？

Answer 1

不不，我不是非要费事，我的本意也不是要用 API 来生成 按钮，我的意思就是能让它有个图而已，而 VB 的按钮的 Style 设为 1 以后并不好看啊，是吧？

Answer 2

那就用form2的按钮，比较漂亮！

Answer 3

可以用这个函数出图
'Image Status
Public Const DSS_NORMAL = &H0
Public Const DSS_UNION = &H10
Public Const DSS_DISABLED = &H20
Public Const DSS_MONO = &H80
Public Const DSS_RIGHT = &H8000Public Declare Function DrawState Lib "user32" Alias "DrawStateA" _
   (ByVal hdc As Long, _
    ByVal hBrush As Long, _
    ByVal lpDrawStateProc As Long, _
    ByVal lParam As Long, _
    ByVal wParam As Long, _
    ByVal X As Long, _
    ByVal Y As Long, _
    ByVal cX As Long, _
    ByVal cY As Long, _
    ByVal fuFlags As Long) As Long例如：
DrawState UserControl.hdc, 0, 0, Image1.Picture.Handle, 0, lLeft \ Screen.TwipsPerPixelX, lTop \ Screen.TwipsPerPixelY, 16, 16, DST_ICON Or DSS_DISABLED如需要代码示例，我这儿有份示例的工程。[email protected]