VFP 愛用者社區

[goodnight]

之前曾經看過有人做 commend buttom 滑鼠移過去時字體就會閃爍
今天花了一下午研究 timer 的用法, 終於做成功了, 但我是用最笨的方法
不過我有個小小問題, 想求教一下先進們

以下是在 timer1.timer 的程式:

IF _TIMER &&mouse enter
THISFORM.Label1.ForeColor=RGB(255,0,255)
_TIMER = .F.
ELSE && mouse leave
THISFORM.Label1.ForeColor=RGB(0,0,255)
_TIMER = .T.
ENDIF

問題:
如果有很多 label , 讓如何能自動執行 THISFORM.LabelX.ForeColor=RGB(255,0,255),
例如滑鼠指標移到 Lable2 就會執行 THISFORM.Label2.ForeColor=RGB(255,0,255)

[garfield]

寫在各物件的
mousemove()
mouseleave()

[goodnight]

[garfield]

在 thisform.init()
thisform.AddProperty('labelobj')
thisform.AddProperty('oldlabelobj')
thisform.AddProperty('timercount',0)
thisform.timer1.Interval=500
thisform.timer1.enabled = .t.

**
在 thisform.timer1.timer()
if vartype( thisform.labelobj )<> 'O'
if vartype( thisform.oldlabelobj )='O'
thisform.oldlabelobj.ForeColor=RGB(0,0,255) &&--回復內定顏色.
thisform.oldlabelobj =''
endif
return .f.
endif
thisform.timercount = thisform.timercount + 1
if thisform.timercount>2
thisform.timercount = 0
thisform.labelobj.ForeColor=RGB(255,0,255)
else
thisform.labelobj.ForeColor=RGB(0,0,255)
endif

*****
寫在各物件的程式 , 建議用繼承的方式才不用在每一個label 或 button 裡編寫程式.
mousemove()
thisform.labelobj = this

mouseleave()
thisform.oldlabelobj= this
thisform.labelobj = ''

[goodnight]

[garfield]

thisform.AddProperty 是動態增加物件的屬性,
你也可以將它看成在整個form 皆可以使用的區域變數.
跟public及local都不同, 也是書上都沒教的概念.

講繼承有點不貼切,
應該說是 自定class
去查看看 modify class 命令的說明應該可以略知一二.

[ptiger]

如果有很多 label , 讓如何能自動執行 THISFORM.LabelX.ForeColor=RGB(255,0,255),

大大的方法小弟看不太懂
我 都是土法作業
for i= 1 to 10
_va="thisform.label"+alltrim(str(i))+"."
&_va.forecolor=rgb(255,0,255)
next

[garfield]

我寫的程式是只要滑鼠移到某一個 label 就改變它的顏色, 滑鼠離開後就回復顏色,
你想要的功能又是什麼?

[goodnight]

[garfield]

你想要的功能又是什麼? -->問ptiger 的

vartype() 的help 裡面有寫, 請養成查看 help 的好習慣.

[ptiger]

[goodnight]

[pilipala]

[garfield]

提示一下 巨集用法
&巨集名稱.
後面的那個 . 表示巨集結束的地方
例:
abc='123'
abcd='456'
marconame='abc'
? &marconame
123
? &marconame.d
456

所以
_label = "label1"
thisform.&_label.forecolor=rgb(255,0,255)
要改成
thisform.&_label..forecolor=rgb(255,0,255)

[goodnight]