恩，我只是要單純的放資料在裡面而已
完成後的exe不需要有編輯功能，因為只是要看而已。
現在在上班，無法看VB檔，晚上回家後我會看看你的範例的，謝謝你！

如下

Private Sub Form_Load()

ListView1.View = lvwReport
ListView1.ColumnHeaders.Add , , "名稱", 2000
ListView1.ColumnHeaders.Add , , "大小", 1200, lvwColumnRight
ListView1.ColumnHeaders.Add , , "類型", 1000, lvwColumnLeft
ListView1.ColumnHeaders.Add , , "狀態", 1000, lvwColumnLeft
ListView1.ColumnHeaders.Add , , "修改日期", 1500, , lvwColumnLeft

ListView1.ListItems.Add , , "KOMUROC/Administrator"
ListView1.ListItems(1).ListSubItems.Add , , "38.5"
ListView1.ListItems(1).ListSubItems.Add , , "本機"
ListView1.ListItems(1).ListSubItems.Add , , "本機"
ListView1.ListItems(1).ListSubItems.Add , , "2006/08/07"

End Sub

執行結果

我如法炮製drance的範例
做出我大致上想要的效果了
只是未來Key資料的路還好長要key啊∼

還有我遇到了幾個問題
就是說每列表格寬度無法自己針對文字資料長短去自動校正嗎？
要不然一開啟後，都要自己先拉一遍，還滿累的。

一是固定設好寬度
二是自己寫程式

不好意思，那該如何固定每格的寬度呢？
用拖拉的好像不行耶。
請各位賜教吧
大一的VB課本太難了，都沒有基本一點的東西

原來如此....... :eek:
學到了，感謝!!

Private Sub Form_Load()
MSFlexGridPS2.ColWidth(0) = 500
MSFlexGridPS2.ColWidth(1) = 3000
MSFlexGridPS2.ColWidth(2) = 500
MSFlexGridPS2.ColWidth(3) = 500
MSFlexGridPS2.ColWidth(4) = 500
......

要不然加入下面程式碼,按滑鼠右鍵就會自動展開
Private Sub MSFlexGridPS2_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = 2 Then
MSFlexGridPS2.ColWidth(1) = MSFlexGridPS2.ColWidth(1) + 500
End If
End Sub

超超感謝的啦!

那我想再請問，像我資料這麼多，只能拉捲軸嗎？
因為滑鼠滾輪似乎沒效耶？