VFP 愛用者社區

Ruey · 註冊時間: 2003-03-12 文章: 1698 來自: tunglo 第 1 樓

经研究，请参考：
1、在GRID1的aferrowcolchange事件中:
local m_recn,m_recnnum,m_i
m_recn=recn()
M_RECNSTR=ALLTRIM(STR(M_RECN))
for m_i=1 to THIS.ColumnCount
this.columns[M_I].DynamicForeColor="IIf(recn()="+m_recnSTR+",RG
B(255,255,255),RGB(0,0,0))"
this.columns[M_I].DynamicbackColor="IIf(recn()="+m_recnSTR+",RG
B(0,0,0),RGB(255,255,255))"
endfor
THIS.REFRESH()

yctsai · 註冊時間: 2003-04-11 文章: 179 第 2 樓

alensap · 註冊時間: 2003-10-23 文章: 8 第 3 樓

謝謝分享了~~~大大

Ruey · 發表於: 星期四十二月 25, 2003 5:10 pm 文章主題:

這只是小技巧,還可以做更多變化的.
如每隔一個做反白動作等.

hsf · 註冊時間: 2003-10-24 文章: 15 第 5 樓

local m_recn,m_recnnum,m_i ---->可置於 form.load
for m_i=1 to THIS.ColumnCount
this.columns[M_I].DynamicForeColor="IIf(recn()="+m_recnSTR+",RG
B(255,255,255),RGB(0,0,0))"
this.columns[M_I].DynamicbackColor="IIf(recn()="+m_recnSTR+",RG
B(0,0,0),RGB(255,255,255))"
endfor
以上四行可置於 form.init 不須每次執行且不須 refresh 哦 !

Ruey · 發表於: 星期二十二月 30, 2003 11:47 am 文章主題:

我在post一個範例--當滑鼠點選紀錄時會反白的功能

1.GRID1自定義一個屬性
recno &&資料位置
nColumnCount &&欄位有幾個

myseltext類別是自定的類別可用預設的text1

2.在GRID1的init事件中:

THIS.HighlightRow=.F.
THIS.COLUMNCOUNT=THIS.nColumnCount
FOR i =1 TO THIS.COLUMNCOUNT
THIS.Columns[i].HEADER1.BACKCOLOR=RGB(162,81,81)
THIS.Columns[i].HEADER1.FORECOLOR=RGB(255,255,255)

THIS.Columns[i].mySelText1.BackColor=RGB(0,0,0)
THIS.Columns[i].mySelText1.FORECOLOR=RGB(255,255,255)
THIS.Columns[i].mySelText1.SELECTEDBACKCOLOR=RGB(0,0,0)
THIS.Columns[i].mySelText1.SELECTEDFORECOLOR=RGB(255,255,255)
ENDFOR

THIS.SETALL("CurrentControl","mySelText1","Column")

THIS.SETALL("DynamicBackColor","IIF(THIS.RecNo=recno(),RGB(0,0,0),RGB(209,248,242))","Column")
THIS.SETALL("DynamicForeColor","IIF(THIS.RecNo=recno(),RGB(255,255,255),RGB(0,0,0))","Column")

*THIS.BackColor=-RGB(255,255,132) &&不要拿掉註解,Grid會花掉
THIS.RECNO=RECNO() &&保留目前記錄

3.在GRID1的aferrowcolchange事件中:
LPARAMETERS nColIndex

THIS.RECNO=RECNO() &&保留目前記錄
THIS.REFRESH() &&GRID需要更新,游標才正確

asheen · 註冊時間: 2003-11-04 文章: 7 第 7 樓

嗯~~
效果不錯

Smile

小桑‧無痕 · 發表於: 星期三二月 18, 2004 4:55 pm 文章主題:

這是我自己建立的 Grid 類別，在我的程式中執行都正常，附上的版本是已經去除掉一些其它功能的oGrid自訂類別(因為跟主題無關，不去掉不好解釋)。

我用的原理跟 Ruey大大講的十分類似，當初是從 Microsoft Visual FoxPro 6.0 的 Sample中找出來參考的，我有附上原始碼，大家可以試試看。

另外，我比較喜歡在程式中定義Grid的內容，因為當初在使用Grid的時候，偶爾會遇到不明狀況。

每隔一個做反白動作，這個功能我曾經做過，原理是在DynamicBackColor中，增加判斷recno()是奇數還是偶數，然後給予不同的顏色，這也是從 Microsoft Visual FoxPro 6.0 的 Sample中找到的；不過，此中方法在面臨有索引或有刪除資料的TABLE時，你會發現它隔行換色的功能就會異常，由於找不到其他方法，所以後來我就不使用了(若使用VIEW應該就無此問題了)。

[每隔一個做反白]
THIS.SETALL("DynamicBackColor","IIF(THIS.RecNo=recno(),RGB(0,0,0),RGB(209,248,242))","Column")
改成
THIS.SETALL("DynamicBackColor","IIF(THIS.RecNo=recno(),RGB(0,0,0),IIF(MOD(RECNO(),2)=0,RGB(nR1,nG1,nB1),RGB(nR2,nG2,nB2)))","Column")

RGB(nR1,nG1,nB1) 及 RGB(nR2,nG2,nB2) 請換成自己喜歡的顏色。

Ruey · 發表於: 星期五二月 20, 2004 2:27 pm 文章主題:

可以試者THIS.RecNo
在更新後重新給定值

Ruey · 發表於: 星期日二月 29, 2004 12:19 am 文章主題:

VFP8 做到不寫一行程式方法,其他版本不適用

小桑‧無痕 · 發表於: 星期一三月 01, 2004 11:23 am 文章主題:

HighlightStyle=1 好像也可以 Rolling Eyes

----------------------------------

VFP8真方便

Ruey · 發表於: 星期一三月 01, 2004 1:20 pm 文章主題:

HighlightStyle=1
HighlightStyle=2
都是一樣的效果!!