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 假装穴洗一下 看来这个问题不是一般高手能解决的 再徒劳地顶一下
页:
[1]