疑問 - vb6. datagrid如果欄位內文過長 滑鼠指到會顯示全文

[飛行船大大]

作者: mini

試試
在 DataGrid1_MouseMove 上
用
DataGrid1.ColContaining(x)
DataGrid1.RowContaining(y)

得到目前游標指著哪一欄位
接著用
DataGrid1.ToolTipText 來顯示內容

我有照寫 ,但是我可能有錯誤 因為每次一碰到DATAGRID1 外框就 一直是出現 "dx: 0 dy:-1"
無法出現 正確的 dx, dy值

(上次的 拖曳問題 和 treeview範例 ,我測試多次 學到不少.多謝mini版主)

Private Sub DataGrid1_Mousemove(Button As Integer, Shift As Integer, X As Single, Y As Single)
   Dim dy As Integer, dx As Integer, RowValue As Integer, ColValue As Integer, CellLeft As Integer, CellTop As Integer
   dx = DataGrid1.ColContaining(X)
   dy = DataGrid1.RowContaining(Y)
   
   MsgBox "dx:" & dx & " dy:" & dy '<---一直出現 "dx: 0 dy:-1"
   
   DataGrid1.ToolTipText = DataGrid1.Columns(dx).Text
End Sub