VB 中按钮标题的颜色可以设置了，但上下位置还是有问题，请高手给看看

jessylake

链接: https://pan.baidu.com/s/1D3JtMXDYv8Fv6Bkgbym9gQ 提取码: utje 复制这段内容后打开百度网盘手机App，操作更方便哦
现在标题位置虽然可以设置，但设置前的标题怎么还保留着，高手给看看哪里有问题？

[Visual Basic] 纯文本查看 复制代码

Public Sub SetButton(ByVal hWnd As Long, _
ByVal lForeColor As Long, _
Optional ByVal VAlign As TextVAligns = DT_VCENTER)
Dim hWndParent As Long
hWndParent = GetParent(hWnd)
If GetProp(hWndParent, "ExtBtnProc") = 0 Then
    ExtButtonSubclass hWndParent
End If
SetProp hWnd, "VBTCustom", 1
SetProp hWnd, "VBTForeColor", lForeColor
SetProp hWnd, "VBTVAlign", VAlign
End Sub

alongzhenggang

假装穴洗一下   

jessylake

看来这个问题不是一般高手能解决的

jessylake

再徒劳地顶一下