MasteringVFP/6/3

出自VFP Wiki

第一個Class

第一個class 免不了也要來個Hello World ~ 現在我們來做一個沒有介面的class 只有一個功能,就是說Hello World

先定義出這一個class

define class talk_to_you as custom

procedure say_hello
 ?[hello world]
endproc

enddefine

如何使用呢?在command window 中先指定要使用的 procedure. 假定剛剛我們所定義的 talk_to_you class 是存到 your_prg.prg 裡面 那麼

set procedure to your_prg additive
xx=createobject("talk_to_you")
?xx.say_hello()

如此在foxpro 中的 screen 中也就會出現 Hello world

簡單吧,如此就進入了 design class 的第一步 ^_^