jessylake 发表于 2022-12-9 13:00

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

本帖最后由 jessylake 于 2022-12-9 15:41 编辑

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

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 发表于 2022-12-9 18:17

假装穴洗一下   

jessylake 发表于 2022-12-13 22:44

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

jessylake 发表于 2023-1-6 08:30

再徒劳地顶一下
页: [1]
查看完整版本: VB 中按钮标题的颜色可以设置了,但上下位置还是有问题,请高手给看看