가운데 하위 항목 ListView의 아이콘

Question

내 열 가운데 하나에 아이콘의 가운데에 놓고 싶습니다. 현재 아이콘을 추가하는 방법은 행을 만든 후에 AddIconToSubitem 메서드를 호출하는 것입니다. 내 맞춤 컨트롤을 수정하여 아이콘을 중앙에 배치하려면 어떻게해야합니까?

감사

Public Class ListViewSubIcons : Inherits System.Windows.Forms.ListView 

    Public Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hWnd As IntPtr, ByVal Msg As Integer, ByVal wParam As IntPtr, ByVal lParam As IntPtr) As Integer 
    Public Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hWnd As IntPtr, ByVal Msg As Int32, ByVal wParam As Int32, ByRef lParam As LV_ITEM) As Boolean 

    Public Structure LV_ITEM 
     Public mask As UInt32 
     Public iItem As Int32 
     Public iSubItem As Int32 
     Public state As UInt32 
     Public stateMask As UInt32 
     Public pszText As String 
     Public cchTextMax As Int32 
     Public iImage As Int32 
     Public lParam As IntPtr 
    End Structure 

    Private Structure NMHDR 
     Public hwndFrom As IntPtr 
     Public idFrom As Integer 
     Public code As Integer 
    End Structure 

    ' listview 
    <StructLayout(LayoutKind.Sequential, CharSet:=CharSet.Auto)> _ 
    Private Structure LVHITTESTINFO 
     Public pt As Point 
     Public flags As Integer 
     Public iItem As Integer 
     Public iSubItem As Integer 
    End Structure 

    Public Const LVM_FIRST As Int32 = &H1000 
    Public Const LVM_GETITEM As Int32 = LVM_FIRST + 5 
    Public Const LVM_SETITEM As Int32 = LVM_FIRST + 6 
    Public Const LVIF_TEXT As Int32 = &H1 
    Public Const LVIF_IMAGE As Int32 = &H2 

    Public Const LVW_FIRST As Integer = &H1000 
    Public Const LVM_GETEXTENDEDLISTVIEWSTYLE As Integer = LVW_FIRST + 54 

    Public Const LVS_EX_GRIDLINES As Integer = &H1 
    Public Const LVS_EX_SUBITEMIMAGES As Integer = &H2 
    Public Const LVS_EX_CHECKBOXES As Integer = &H4 
    Public Const LVS_EX_TRACKSELECT As Integer = &H8 
    Public Const LVS_EX_FULLROWSELECT As Integer = &H20 ' applies to report mode only 

    Private Const WM_NOTIFY As Integer = &H4E 

    ' Change the style to accept images on subitems. 
    Public Sub New() 

     ' This call is required by the Windows.Forms Form Designer. 
     InitializeComponent() 

     AddHandler Me.HandleCreated, AddressOf ListViewWithIcons_HandleCreated 

    End Sub 

    Private Sub ListViewWithIcons_HandleCreated(ByVal sender As Object, ByVal e As EventArgs) 
     ' Change the style of listview to accept image on subitems 
     Dim m As System.Windows.Forms.Message = New Message 
     m.HWnd = Me.Handle 
     m.Msg = LVM_GETEXTENDEDLISTVIEWSTYLE 
     m.LParam = New IntPtr(LVS_EX_GRIDLINES Or LVS_EX_FULLROWSELECT Or LVS_EX_SUBITEMIMAGES Or LVS_EX_CHECKBOXES Or LVS_EX_TRACKSELECT) 
     m.WParam = IntPtr.Zero 
     Me.WndProc(m) 
    End Sub 

    ' Add an icon to a subitem. 
    Public Sub AddIconToSubitem(ByVal row As Integer, ByVal col As Integer, ByVal icon_num As Integer) 
     Dim lvi As New LV_ITEM() 
     lvi.iItem = row 
     lvi.iSubItem = col 

     ' Indicate what we're setting. 
     lvi.mask = LVIF_IMAGE 
     lvi.iImage = icon_num ' Image index in the ImageList. 

     ' Send the LVM_SETITEM message. 
     SendMessage(Me.Handle, LVM_SETITEM, 0, lvi) 
    End Sub 

End Class 

Answer 1

나는 여기에 내 자신의 질문 :

Public Class ListViewSubIcons : Inherits System.Windows.Forms.ListView 

    Public Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hWnd As IntPtr, ByVal Msg As Integer, ByVal wParam As IntPtr, ByVal lParam As IntPtr) As Integer 
    Public Const LVW_FIRST As Integer = &H1000 
    Public Const LVM_GETEXTENDEDLISTVIEWSTYLE As Integer = LVW_FIRST + 54 

    Public Const LVS_EX_GRIDLINES As Integer = &H1 
    Public Const LVS_EX_SUBITEMIMAGES As Integer = &H2 
    Public Const LVS_EX_CHECKBOXES As Integer = &H4 
    Public Const LVS_EX_TRACKSELECT As Integer = &H8 
    Public Const LVS_EX_FULLROWSELECT As Integer = &H20 ' applies to report mode only 

    Private Const WM_NOTIFY As Integer = &H4E 

    Public Enum ListStatus 
     OK 
     Fail 
     Upgrade 
    End Enum 

    Private _liststatus As ListStatus = ListStatus.OK 
    Public WriteOnly Property SetListStatus() As ListStatus 
     Set(ByVal value As ListStatus) 
      _liststatus = value 
     End Set 
    End Property 


    ' Change the style to accept images on subitems. 
    Public Sub New() 

     ' This call is required by the Windows.Forms Form Designer. 
     InitializeComponent() 

     AddHandler Me.HandleCreated, AddressOf ListViewWithIcons_HandleCreated 
     AddHandler Me.DrawSubItem, AddressOf lvResult_DrawSubItem 
     AddHandler Me.DrawColumnHeader, AddressOf lvResult_DrawColumnHeader 

     Me.OwnerDraw = True 

    End Sub 

    Private Sub ListViewWithIcons_HandleCreated(ByVal sender As Object, ByVal e As EventArgs) 
     ' Change the style of listview to accept image on subitems 
     Dim m As System.Windows.Forms.Message = New Message 
     m.HWnd = Me.Handle 
     m.Msg = LVM_GETEXTENDEDLISTVIEWSTYLE 
     m.LParam = New IntPtr(LVS_EX_GRIDLINES Or LVS_EX_FULLROWSELECT Or LVS_EX_SUBITEMIMAGES Or LVS_EX_CHECKBOXES Or LVS_EX_TRACKSELECT) 
     m.WParam = IntPtr.Zero 
     Me.WndProc(m) 
    End Sub 

    ' Handle DrawSubItem event 
    Private Sub lvResult_DrawSubItem(ByVal sender As Object, ByVal e As   DrawListViewSubItemEventArgs) 

     'Only subitems with just icon's will have no text 
     If e.SubItem.Text = "" Then 
      Dim xpos = e.SubItem.Bounds.Location.X + (e.SubItem.Bounds.Width/2) - 8 
      Dim p As New PointF(xpos, e.SubItem.Bounds.Location.Y) 
      e.DrawBackground() 
      Select Case _liststatus 
       Case ListStatus.OK 
        e.Graphics.DrawImage(My.Resources.Symbol_Check, p) 
       Case ListStatus.Fail 
        e.Graphics.DrawImage(My.Resources.Delete, p) 
       Case ListStatus.Upgrade 
        e.Graphics.DrawImage(My.Resources.Component1, p) 
      End Select 
     Else 
      e.DrawDefault = True 
     End If 

    End Sub 

    ' Handle DrawColumnHeader event 
    Private Sub lvResult_DrawColumnHeader(ByVal sender As Object, ByVal e As DrawListViewColumnHeaderEventArgs) 
     e.DrawDefault = True 
     e.DrawBackground() 
     e.DrawText() 
    End Sub 

End Class 

대답 하겠어