csdn的高手都哪里去了？这样的问题怎么没人会么？

Question

好象listview控件没有这种方法。
可能用picture方便一点。

Answer 1

自己计算还有多少各空加
listview1.listitems.add
加空记录

Answer 2

高难问题，如果是我，我就用控件数组，如picturebox，我以前也有过类似问题，
那是个市场管理系统，要求每个摊位的位置，我开始想用listview，可是还是放弃了，因为对于位置的要求太精确，而动态变化太多。不过我可以给你一个提示
可以用
    .ListItems(i).Left 
    .ListItems(i).top
你可以通过判断I是哪个房间来确定它的位置，位置可以用累加，当这个I是一个新的楼层的，即把left为0，left+200，很简单，相信你一定会搞定！！

Answer 3

用msfixhgrid.ocx 或vsFix网络中放图标其它不用说了吧

Answer 4

还是没有个好的方法，因为我的每个房间都是动态添加到listview中的，

Answer 5

不懂，难不成，msfixhgrid.ocx不成动态添加项目吗？
记得设gridcolor=&H80000014&

Answer 6

mshflexgrid是最好的办法！
=============================
www.myvc.net编程论坛欢迎你的访问，只要注册成为我们的用户，你将可以获得很多意想不到的资源。快行动吧。也欢迎站长们来交换有情连接！www.myvc.net欢迎你！

Answer 7

要我说csdn理的人都不怎么样！没人会吗？真失望！

Answer 8

由于listview的每个ListItem的TOP，LEFT可以设置，那么可以自己写代码实现，
'-----例子代码--------------------------------------------
listview1.ListItems(1).Top = 1000
listview1.ListItems(1).Left = 10

Answer 9

可是我写listview1.后面没有listitem呀？

Answer 10

你可以用API函数sendmessage直接发送LVM_SETITEMPOSITION消息任意设置图标的位置

Answer 11

给你一个我写的文章，是实现排列桌面图标的，看你是否能用上：Windows中的桌面图标的排列方式是否让你感到厌倦而想按照自己的想法排列图标。是否想改变桌面图标文字的背景而不
使在图标文字下出现一个个难看的色块。这里我要介绍如何通过VB来对桌面的图标进行彻底的改变。
    其实在Windows下的桌面以及任务栏等都是窗口对象，我们可以利用Windows API函数FindWindow和FindWindowEx来获得
它们的句柄，然后再调用其它相应的API函数来控制它们。而放置桌面图标的窗口是一个ListView对象，利用SendMessage函数
向该窗口发送相应的消息，就可以对图标进行修改了。下面是具体的程序实现。
    首先在VB中建立一个新的工程，在Form1中加入三个CommandButton控件，然后在Form1的代码窗口中加入以下代码：
Option ExplicitPrivate Type POINTAPI
        x As Long
        y As Long
End TypePrivate Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
        (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" _
        (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, _
        ByVal lpsz2 As String) As Long
Private Declare Function UpdateWindow Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal _
        hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) _
        As Long
Private Declare Function SendMessageP Lib "user32" Alias "SendMessageA" (ByVal _
        hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) _
        As LongPrivate Declare Function GetSysColor Lib "user32" (ByVal nIndex As Long) As Long
Private Declare Function SetSysColors Lib "user32" (ByVal nChanges As Long, _
        lpSysColor As Long, lpColorValues As Long) As LongConst LVM_FIRST = &H1000
Const LVM_GETITEMCOUNT = LVM_FIRST + 4
Const LVM_SETTEXTCOLOR = LVM_FIRST + 36
Const LVM_REDRAWITEMS = LVM_FIRST + 21
Const LVM_SETTEXTBKCOLOR = LVM_FIRST + 38
Const LVM_SETITEMPOSITION = LVM_FIRST + 15Const COLOR_DESKTOP = 1'RestoreColor函数回复默认的图标文字颜色和背景
Sub RestoreColor()
    Dim lColor As Long
    
    lColor = GetSysColor(COLOR_DESKTOP)
    SetSysColors 1, COLOR_DESKTOP, lColor
End Sub
Sub SetIconText(clFore, clBack As Long, bTrans As Boolean)
    Dim hWindow As Long
    Dim lItemCount As Long
        
    '通过三步查找到放置桌面图表的窗口
    hWindow = FindWindow("Progman", "Program Manager")
    hWindow = FindWindowEx(hWindow, 0, "SHELLDLL_DefView", "")
    hWindow = FindWindowEx(hWindow, 0, "SysListView32", "")
    
    If bTrans Then  '透明背景
        SendMessage hWindow, LVM_SETTEXTBKCOLOR, 0, &HFFFFFFFF
    Else            '非透明背景
        SendMessage hWindow, LVM_SETTEXTBKCOLOR, 0, clBack
    End If
    
    '设置图标文字的颜色
    SendMessage hWindow, LVM_SETTEXTCOLOR, 0, clFore
    
    '重新绘制所有的图标
    lItemCount = SendMessage(hWindow, LVM_GETITEMCOUNT, 0, 0)
    SendMessage hWindow, LVM_REDRAWITEMS, 0, lItemCount - 1
    '更新窗口
    UpdateWindow hWindow
End SubSub ArrangeDesktopIcon(iWidth As Integer, iHeight As Integer)
    Dim hWindow As Long
    Dim i1, i2, i, iCount As Integer
    Dim po As POINTAPI
    
    '通过三步查找到放置桌面图表的窗口
    hWindow = FindWindow("Progman", "Program Manager")
    hWindow = FindWindowEx(hWindow, 0, "SHELLDLL_DefView", "")
    hWindow = FindWindowEx(hWindow, 0, "SysListView32", "")
    
    i1 = 20: i2 = 20
    iCount = SendMessage(hWindow, LVM_GETITEMCOUNT, 0, 0)
    For i = 0 To iCount - 1
        po.x = i1: po.y = i2
        '发送LVM_SETITEMPOSITION消息排列图标
        Call SendMessage(hWindow, LVM_SETITEMPOSITION, i, i2 * 65536 + i1)
        i1 = i1 + iWidth
        If i1 > ((Screen.Width / 15) - 32) Then
            i1 = 20
            i2 = i2 + iHeight
        End If
    Next i
    SendMessage hWindow, LVM_REDRAWITEMS, 0, iCount - 1
    '更新窗口
    UpdateWindow hWindow
End SubPrivate Sub Command1_Click()
    '设置图标文字的颜色为蓝色，背景色为黑色，背景为透明
    SetIconText vbBlue, vbBlack, True
End SubPrivate Sub Command2_Click()
    RestoreColor
End SubPrivate Sub Command3_Click()
    '以100x100像素为单位排列图标
    ArrangeDesktopIcon 100, 100
End SubPrivate Sub Form_Load()
    Command1.Caption = "设置文字背景"
    Command2.Caption = "恢复文字背景"
    Command3.Caption = "排列桌面图标"
End Sub
    运行程序，点击Command1，可以看到桌面图标的文本景色变成了蓝色，如果你设置了桌面图片，还可以看到文字
的背景变成了透明的而不是在下面有一个难看的色块，点击Command2可以恢复Windows的默认设置，点击Command3可以
使你的桌面图标以横排的方式排列，不过前提是要将桌面图标的自动排列属性设置为False。
    以上程序在VB6,Windows98,Windows2000下运行通过。

Answer 12

我又看了一下MSDN中的帮助，如果在ListView中，可能需要将Arrange属性设置为lvwNone

Answer 13

收藏，我在做顾客房间预约模块，目前还在设计中，我想使用Picture控件比ListView好一点吧。

Answer 14

listview1.ListItems(1).Top = 1000
listview1.ListItems(1).Left = 10
listview1.ListItems(2).Top = 2000
listview1.ListItems(2).Left = 10
--------------------------------------------
listview1.ListItems(i)这个是存在的，
Microsoft Windows Common Controls 5.0
Microsoft Windows Common Controls 6.0
中都有这个属性

Answer 15

可是我写listview1.后面没有listitem呀？
不可能没有，你的控件name对吗