VFP 愛用者社區

sunghsia · 註冊時間: 2003-06-13 文章: 52 來自: 台北 第 1 樓

* 表單的 MouseMove 事件
*===========================================================

LPARAMETERS nButton, nShift, nXCoord, nYCoord

* 半徑與角度要為隨機值 , 才會是個漂亮的噴槍 ,

IF nButton = 1 && 按住著滑鼠左鍵

R = 10 && 噴滴離滑鼠的最大範圍
P = 50 && 多少噴滴
This.Forecolor= RGB(0, 0, 0) && 黑色

FOR n = 1 To P && 共有250個噴滴
Dis = Mod(Val(Sys(3)) , R) && 噴滴的距離
Si = Mod(Val(Sys(3)), 360) && 噴滴的角度
X= Dis * Sin(Si * 0.01745) + nXCoord
Y= Dis * Cos(Si * 0.01745) + nYCoord
This.Line(x, y, x+1, y)
* This.pset(x,y) && 表單的 DrawWidth 必須設為2 , 才能顯示出"點"
ENDFOR

ENDIF

garfield · 發表於: 星期一八月 29, 2005 10:10 pm 文章主題:

vfp 除了處理文字外,
還可以畫圖!.
還真好玩^^