史萊姆論壇 - vb6. datagrid如果欄位內文過長滑鼠指到會顯示全文

史萊姆論壇 (http://forum.slime.com.tw/)

- 程式語言討論區 (http://forum.slime.com.tw/f76.html)

- - vb6. datagrid如果欄位內文過長滑鼠指到會顯示全文 (http://forum.slime.com.tw/thread231105.html)

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

如下圖:datagrid 雖然欄寬可以手動調大.
但是因為datagrid 佔畫面寬度有限. 我是希望若欄位內文過長滑鼠指到會顯示出全文 ,那就不必一再的手調寬度.( 就像treeview tooltip滑鼠指到會顯示出全文)

請問要如何讓datagrid 滑鼠指到會自動顯示出欄位內的全文( 不被截短.)

http://huhuge.hp.infoseek.co.jp/post_jpg/Picture9.gif

多謝回復!

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

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

引用:

作者: mini (文章 1963576)

試試
在 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

請加一個條件
當 >=0 時才為有效值