需要用API建立或者更改才行~ Private Type LVCOLUMN iMask As Long fmt As Long lx As Long pszText As String cchTextMax As Long iSubItem As Long iImage As Long iOrder As Long End Type 在现有的ListView中(已包含列头),使用SendMessage发送LVM_GETCOLUMNA消息以获得列标头 Const LVM_FIRST = &H1000 Const LVM_GETCOLUMNA = (LVM_FIRST + 25) Const LVM_SETCOLUMNA = (LVM_FIRST + 26)Const LVCF_FMT = &H1Const LVCFMT_BITMAP_ON_RIGHT = &H1000Dim Lvc As LVCOLUMN Lvc.iMask = LVCF_FMT Call SendMessage(ListView1.hWnd, LVM_GETCOLUMNA, 0, Lvc) If (Lvc.fmt And LVCFMT_BITMAP_ON_RIGHT) <> LVCFMT_BITMAP_ON_RIGHT Then Lvc.fmt = Lvc.fmt Or LVCFMT_BITMAP_ON_RIGHT Call SendMessage(ListView1.hWnd, LVM_SETCOLUMNA, 0, Lvc) End If 大致就这样,不过我没测试过。 我忘记了类型中的iSubItem怎么赋值了~
Private Type LVCOLUMN
iMask As Long
fmt As Long
lx As Long
pszText As String
cchTextMax As Long
iSubItem As Long
iImage As Long
iOrder As Long
End Type
在现有的ListView中(已包含列头),使用SendMessage发送LVM_GETCOLUMNA消息以获得列标头
Const LVM_FIRST = &H1000
Const LVM_GETCOLUMNA = (LVM_FIRST + 25)
Const LVM_SETCOLUMNA = (LVM_FIRST + 26)Const LVCF_FMT = &H1Const LVCFMT_BITMAP_ON_RIGHT = &H1000Dim Lvc As LVCOLUMN
Lvc.iMask = LVCF_FMT
Call SendMessage(ListView1.hWnd, LVM_GETCOLUMNA, 0, Lvc)
If (Lvc.fmt And LVCFMT_BITMAP_ON_RIGHT) <> LVCFMT_BITMAP_ON_RIGHT Then
Lvc.fmt = Lvc.fmt Or LVCFMT_BITMAP_ON_RIGHT
Call SendMessage(ListView1.hWnd, LVM_SETCOLUMNA, 0, Lvc)
End If
大致就这样,不过我没测试过。
我忘记了类型中的iSubItem怎么赋值了~