疑問 - 請問:VB6.0如何取得 滑鼠點中LISTVIEW 那一個格的 .TOP.LEFT.HIGHT.WIDTH值?

[飛行船大大]

請問: 如何取得 滑鼠點中LISTVIEW 那一個格的 TOP.LEFT HIGHT WIDTH值 和
所點中的那格 是第幾 ROW列 COL欄 .


(1) 如圖 如果點中是 第3列 第 2欄的 -43.10 值.
我希望 偵測傳回 此儲存格的TOP.LEFT .HIGHT .WIDTH 數值; 和COL欄是2
請問如何下指令?


(2) LISTVIEW1 控制項的隱藏欄位問題:
如果LISTVIEW1 已有4欄 , 其中 第2欄 不希望 USER看到. 但又要允許 USER能 自行調整各個欄寬. 那要如何 隱藏欄位呢 ?

(3) 請問那裏有 完整的MSSQL 或 ACCESS SQL 的指令教學 OR 電子書可參考？
我想刪除．MDB ,中某一資料表所有的記錄 . 目前用
Do Until tmpRS.EOF .... 一筆筆的刪感覺很笨.
可以 一行指令就解決嗎 ? 可以這樣玩ㄅ !

~多謝回覆~

[mraaa711128]

Dim WK_CPosX As Integer

Private Sub Form_Load()
Dim WK_Col As ColumnHeader
Dim I, J As Integer

For I = 0 To 3
Set WK_Col = ListView1.ColumnHeaders.Add()
WK_Col.Text = "A" & I

Next I

For I = 0 To 9
Dim WK_Item As ListItem

Set WK_Item = ListView1.ListItems.Add()

WK_Item.Text = ListView1.ColumnHeaders.Item(1).Text & "," & I

For J = 1 To ListView1.ColumnHeaders.Count - 1
Dim WK_SubItem As ListSubItem

Set WK_SubItem = WK_Item.ListSubItems.Add()

WK_SubItem.Text = ListView1.ColumnHeaders.Item(J + 1).Text & "," & I
Next J
Next I


End Sub

Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)

If (WK_CPosX < 1) Then
Debug.Print (Item.Left & "," & Item.Top)
ElseIf (WK_CPosX > (ListView1.ColumnHeaders.Count - 1)) Then
'Do Nothing ...
Else
Debug.Print (ListView1.ColumnHeaders.Item(WK_CPosX + 1).Left & "," & Item.Top)
End If

End Sub

Private Sub ListView1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
Dim I As Integer
Dim WK_ColWidth As Double

WK_CPosX = 0
WK_ColWidth = 0

For I = 0 To ListView1.ColumnHeaders.Count - 1
WK_ColWidth = WK_ColWidth + ListView1.ColumnHeaders.Item(I + 1).Width
If (WK_ColWidth < x) Then
WK_CPosX = WK_CPosX + 1
Else
Exit For
End If
Next I

Debug.Print (WK_CPosX)

End Sub

大概是這樣吧!!
WK_CPosX表示是第幾個Column被點....因為Listview本身不提供SubItem_Click事件...必須自己計算是第幾個欄位...看不懂再問我吧...
至於第幾列....應該很簡單.....在Item_Click事件中的引數"Item"應該有個屬性"Index"那就是第幾列啦.....^^

這是第一題