VFP 愛用者社區

shyhpyng · 註冊時間: 2006-10-11 文章: 60 來自: 台南市 第 1 樓

各位大大你們好,首先我貼一下介面

我的目的呢是:當使用者將游標在制服編號(10550)點一下時,能出現Tooltiptext的說明框,我有去編輯GRID裡Column1裡頭Text1的有關MOUSE(up . down. Wheel等等)的程序,我是一個一個TRY,程式碼是這樣
=Seek(Unifpur.pur_key,"Unifdata","Unif_key")
This.ToolTipText.value=Unifdata.Unif_name
但是我點下去都沒有反應,不知是我程式有問題還是我放錯程序,還是....
希望指點一下小弟,感激不盡!!

Patrick Wu · 發表於: 星期四三月 15, 2007 12:09 pm 文章主題:

是否記錄游標未移至此筆記錄上

shyhpyng · 發表於: 星期四三月 15, 2007 12:58 pm 文章主題:

小賴 · 註冊時間: 2004-12-27 文章: 476 第 4 樓

1.先確定Form1.ShowTips = .T.
2. This.ToolTipText.value ...... ?? Value
3. 既然必須先移動指標; 再指定Column1.ToolTipText
以下讓指標隨Mouse移動不知可否:
Grid1.Column1.MouseMove :

LOCAL nWhere_Out, nRelRow_Out, nRelCol_Out
thisform.grid1.GridHitTest(nXCoord, nYCoord,@nWhere_Out, @nRelRow_Out, @nRelCol_Out)
thisform.grid1.ACTIVATECELL(nRelRow_Out, nRelCol_Out)
=Seek(Unifpur.pur_key,"Unifdata","Unif_key")
This.ToolTipText=Unifdata.Unif_name

shyhpyng · 發表於: 星期四三月 15, 2007 1:21 pm 文章主題:

我找到原因了,首先我要先把Column1的Enabled設為T,這樣USER按下去系統才會反應,然後在Colunm1的text1裡的Click程序寫上程式碼
=Seek(Unifpur.pur_key,"Unifdata","Unif_key")
Thisform.Maingrid.Column1.text1.ToolTipText=Unifdata.Unif_name
這樣才行
結果

goodnight · 發表於: 星期五九月 02, 2011 10:05 am 文章主題:

VFP9+SP2 +WIN7
有人可以正常顯示 ToolTipText 嗎? 我試不出來
是否就是 vfp9 +sp2 的問題??

我只是在單純在 Grid1.column1.text1 的 ToolTipText 項目輸入

sean27 · 註冊時間: 2008-08-17 文章: 49 第 7 樓

小小建議:在制服編號右邊加一欄制服名稱 !!