|
VFP 愛用者社區 本討論區為 Visual Foxpro 愛用者經驗交流的地方, 請多多利用"搜尋"的功能, 先查看看有無前例可循, 如果還有不懂的再發問. 部份主題有附加檔案, 須先註冊成為社區居民才可以下載.
|
上一篇主題 :: 下一篇主題 |
發表人 |
內容 |
Ruey
註冊時間: 2003-03-12 文章: 1698 來自: tunglo
第 1 樓
|
發表於: 星期日 八月 24, 2003 5:06 pm 文章主題: Grid目前紀錄反白(轉貼) |
|
|
经研究,请参考:
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() _________________ #############################
快樂媽咪系列幸福宅配,喝十全雞湯~原來幸福那麼簡單!!
學會VFP使用者社區的搜尋,Code才會更有趣~
############################# |
|
回頂端 |
|
|
yctsai
註冊時間: 2003-04-11 文章: 179
第 2 樓
|
發表於: 星期六 八月 30, 2003 3:03 pm 文章主題: |
|
|
good |
|
回頂端 |
|
|
alensap
註冊時間: 2003-10-23 文章: 8
第 3 樓
|
發表於: 星期四 十二月 25, 2003 1:49 pm 文章主題: 一個字 好 |
|
|
謝謝分享了~~~大大 _________________ 人生有涯、學海無涯 ~^_^~ |
|
回頂端 |
|
|
Ruey
註冊時間: 2003-03-12 文章: 1698 來自: tunglo
第 4 樓
|
發表於: 星期四 十二月 25, 2003 5:10 pm 文章主題: |
|
|
這只是小技巧,還可以做更多變化的.
如每隔一個做反白動作等. _________________ #############################
快樂媽咪系列幸福宅配,喝十全雞湯~原來幸福那麼簡單!!
學會VFP使用者社區的搜尋,Code才會更有趣~
############################# |
|
回頂端 |
|
|
hsf
註冊時間: 2003-10-24 文章: 15
第 5 樓
|
發表於: 星期一 十二月 29, 2003 11:19 am 文章主題: |
|
|
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
註冊時間: 2003-03-12 文章: 1698 來自: tunglo
第 6 樓
|
發表於: 星期二 十二月 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需要更新,游標才正確 _________________ #############################
快樂媽咪系列幸福宅配,喝十全雞湯~原來幸福那麼簡單!!
學會VFP使用者社區的搜尋,Code才會更有趣~
############################# |
|
回頂端 |
|
|
asheen
註冊時間: 2003-11-04 文章: 7
第 7 樓
|
發表於: 星期三 二月 18, 2004 11:46 am 文章主題: |
|
|
嗯~~
效果不錯
_________________ ==============================
發奮圖強學會VFP |
|
回頂端 |
|
|
小桑•無痕
註冊時間: 2003-07-08 文章: 304 來自: Tainan, Taiwan
第 8 樓
|
發表於: 星期三 二月 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) 請換成自己喜歡的顏色。 _________________ 用力 Try 一下...可以發現很多好玩的事.... |
|
回頂端 |
|
|
Ruey
註冊時間: 2003-03-12 文章: 1698 來自: tunglo
第 9 樓
|
發表於: 星期五 二月 20, 2004 2:27 pm 文章主題: |
|
|
可以試者THIS.RecNo
在更新後重新給定值 _________________ #############################
快樂媽咪系列幸福宅配,喝十全雞湯~原來幸福那麼簡單!!
學會VFP使用者社區的搜尋,Code才會更有趣~
############################# |
|
回頂端 |
|
|
Ruey
註冊時間: 2003-03-12 文章: 1698 來自: tunglo
第 10 樓
|
發表於: 星期日 二月 29, 2004 12:19 am 文章主題: |
|
|
VFP8 做到不寫一行程式方法,其他版本不適用
代碼: | Grid反白方法如下:
AllowCellSelection=.F.
HighlightStyle=2
HighlightBackColor=RGB(0,0,0)
HighlightForeColor=RGB(255,255,255) |
_________________ #############################
快樂媽咪系列幸福宅配,喝十全雞湯~原來幸福那麼簡單!!
學會VFP使用者社區的搜尋,Code才會更有趣~
############################# |
|
回頂端 |
|
|
小桑•無痕
註冊時間: 2003-07-08 文章: 304 來自: Tainan, Taiwan
第 11 樓
|
發表於: 星期一 三月 01, 2004 11:23 am 文章主題: |
|
|
HighlightStyle=1 好像也可以
----------------------------------
VFP8真方便 _________________ 用力 Try 一下...可以發現很多好玩的事.... |
|
回頂端 |
|
|
Ruey
註冊時間: 2003-03-12 文章: 1698 來自: tunglo
第 12 樓
|
發表於: 星期一 三月 01, 2004 1:20 pm 文章主題: |
|
|
HighlightStyle=1
HighlightStyle=2
都是一樣的效果!! _________________ #############################
快樂媽咪系列幸福宅配,喝十全雞湯~原來幸福那麼簡單!!
學會VFP使用者社區的搜尋,Code才會更有趣~
############################# |
|
回頂端 |
|
|
|
|
您 無法 在這個版面發表文章 您 無法 在這個版面回覆文章 您 無法 在這個版面編輯文章 您 無法 在這個版面刪除文章 您 無法 在這個版面進行投票 您 無法 在這個版面附加檔案 您 無法 在這個版面下載檔案
|
|