VB6 DataGrid 有關選取項目的問題

Question

如題：
我用DataGrid想要有跟Access可以一次選取多個項目的功能，
問題是我是個肉腳，程式真的不太會＾＾｜｜｜，
拜託高手幫個忙吧!!!
我想要有可以拉這個地方可以選取多個項目的功能，還有可以按住"Shift"鍵，
然後點下一個項目可以把中間的項目全選起來。


↓

圖片參考：http://myweb.hinet.net/home10/gnnuppke/LOG/sheet1.JPG




然後可以在選取起來後，我按下一個Cammand可以把我選取的項目匯出的功能。
20點真的覺得有點少，希望高手能夠幫幫我謝謝。

如果有知道其他的物件可以有像這樣的功能，
也非常的感謝你，告之讓我這個肉腳知道，謝謝。

Answer 1

DataGrid可以做到

Private Sub Command1_Click()
Dim Idx As Long, ColIndex As Long, RowString As String
If DataGrid1.SelBookmarks.Count = 0 Then
Exit Sub
End If
For Idx = 0 To DataGrid1.SelBookmarks.Count - 1
DataGrid1.Row = DataGrid1.SelBookmarks(Idx) - 2

For ColIndex = 0 To DataGrid1.Columns.Count - 1
Debug.Print "" & DataGrid1.Columns(ColIndex).Value,
Next
Debug.Print
Next
End Sub
能撈出資料後，應該就可以自己做出繪出的功能了吧

2007-01-05 11:28:37 補充：
只能按Ctrl鍵

2007-01-05 12:25:44 補充：
DataGrid按Shift 滑鼠左鍵的部份
Private Sub DataGrid1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Static Min As Long
Static Max As Long
Static IsNotFirst As Boolean
Dim Idx As Long
If Shift = 1 Then
If IsNotFirst = False And DataGrid1.SelBookmarks.Count = 1 Then

2007-01-05 12:26:02 補充：
Min = DataGrid1.Bookmark
Max = Min
IsNotFirst = True
'DataGrid1.SelBookmarks.Add DataGrid1.RowBookmark(DataGrid1.Bookmark)
Else
If DataGrid1.Bookmark < Min Then
Min = DataGrid1.Bookmark
End If

2007-01-05 12:26:08 補充：
If DataGrid1.Bookmark > Max Then
Max = DataGrid1.Bookmark
End If
End If
For Idx = Min To Max
DataGrid1.SelBookmarks.Add DataGrid1.RowBookmark(Idx - 1)
Next
Else
IsNotFirst = False
End If
End Sub

Answer 2

JanusGrid可以達成Multi Select功能
匯出印象中必需自己寫
如果你要使用在VB6上
需要使用的是
Janus GridEX 2000b Activex Control
試用版下載點:
http://www.janusys.com/janus/downloads/gridex2000/trial/GridEX2000bSetupT.zip

Answer 3

據我所知，VB6的DataGrid是做不到的。
可能.NET的也做不到。
詳細情形，你再查閱吧。