怎样使listview显示时有网格.txt

来自「VB技巧问答10000例,是一个教程」· 文本 代码 · 共 17 行

如 果 使 用 vb6的 ListView， 需 要 借 助 API函 数 。 如 ： 
    Const LVS_EX_GRIDLINES = &H1 
    Const LVM_FIRST As Long = &H1000 
    Const LVM_SETEXTENDEDLISTVIEWSTYLE As Long = (LVM_FIRST + 54) 
     
    Private Declare Function SendMessageLong Lib "user32" _ 
     Alias "SendMessageA" _ 
     (ByVal hwnd As Long, _ 
     ByVal Msg As Long, _ 
     ByVal wParam As Long, _ 
     ByVal lParam As Long) As Long 
     
    SendMessageLong(ListView1.hwnd, _ 
     LVM_SETEXTENDEDLISTVIEWSTYLE, _ 
     LVS_EX_GRIDLINES , 1) 
    VB6的 ListView控 件 有 GridLines属 性 来 决 定 是 否 显 示 网 格 。 
<END>