VFP ·R¥ÎªÌªÀ°Ï ­º­¶ VFP ·R¥ÎªÌªÀ°Ï
¥»°Q½×°Ï¬° Visual Foxpro ·R¥ÎªÌ¸gÅç¥æ¬yªº¦a¤è, ½Ð¦h¦h§Q¥Î"·j´M"ªº¥\¯à, ¥ý¬d¬Ý¬Ý¦³µL«e¨Ò¥i´`, ¦pªGÁÙ¦³¤£À´ªº¦Aµo°Ý. ³¡¥÷¥DÃD¦³ªþ¥[ÀÉ®×, ¶·¥ýµù¥U¦¨¬°ªÀ°Ï©~¥Á¤~¥i¥H¤U¸ü.
 
 ±`¨£°ÝÃD±`¨£°ÝÃD   ·j´M·j´M   ·|­û¦Cªí·|­û¦Cªí   ·|­û¸s²Õ·|­û¸s²Õ   ·|­ûµù¥U·|­ûµù¥U 
 ­Ó¤H¸ê®Æ­Ó¤H¸ê®Æ   µn¤JÀˬd±zªº¨p¤H°T®§µn¤JÀˬd±zªº¨p¤H°T®§   µn¤Jµn¤J

¨©¯÷¦±½u

 
µoªí·s¥DÃD   ¦^ÂÐ¥DÃD    VFP ·R¥ÎªÌªÀ°Ï ­º­¶ -> VFP °Q½×°Ï
¤W¤@½g¥DÃD :: ¤U¤@½g¥DÃD  
µoªí¤H ¤º®e
sunghsia



µù¥U®É¶¡: 2003-06-13
¤å³¹: 52
¨Ó¦Û: ¥x¥_

²Ä 1 ¼Ó

µoªíµoªí©ó: ¬P´Á¤é ¤E¤ë 04, 2005 8:37 pm    ¤å³¹¥DÃD: ¨©¯÷¦±½u ¤Þ¨¥¦^ÂÐ

****************************************************************************
*«þ³Æ¦Ü *.PRG
*¸Ñ±x«× 800*600
****************************************************************************

ouserform=CREATEOBJECT("¨©¯÷¦±½u")
ouserform.SHOW

DEFINE CLASS ¨©¯÷¦±½u AS form
CAPTION=[«ö¦í¶êÂI©ìµÛ¨«¡AÂIÀ»µøµ¡Â÷¶}]
NAME=[Form1]

ADD OBJECT Shape1 AS ªí³æ_Shape WITH ;
LEFT=100,;
TOP=100

ADD OBJECT Shape2 AS ªí³æ_Shape WITH ;
LEFT=200,;
TOP=50

ADD OBJECT Shape3 AS ªí³æ_Shape WITH ;
LEFT=100,;
TOP=150

ADD OBJECT Shape4 AS ªí³æ_Shape WITH ;
LEFT=200,;
TOP=100

PROCEDURE DESTROY
= ReleaseDC(hWnd, hDC)
ENDPROC

PROCEDURE CLICK
IF MESSAGEBOX("¤£¦bª±ª±¶Ü! ­nÂ÷¶}¤F®@¡H¡H",4+32+256)=6
CLEAR EVENTS
THIS.RELEASE
ENDIF
ENDPROC

PROCEDURE ACTIVATE
DECLARE INTEGER PolyBezier IN gdi32;
INTEGER hdc,;
STRING @ lppt,;
INTEGER cPoints

DECLARE INTEGER GetFocus IN user32
DECLARE INTEGER GetWindowDC IN user32 INTEGER
DECLARE INTEGER ReleaseDC IN user32 INTEGER , INTEGER

public hWnd , hDC, cPoints , point_moveX , point_moveY
hWnd = GetFocus()
hDC = GetWindowDC (hWnd)

this.ø¹Ï
READ EVENTS
ENDPROC

PROCEDURE ø¹Ï
x1= this.shape1.left
y1= this.shape1.top
x2= this.shape2.left
y2= this.shape2.top
x3= this.shape3.left
y3= this.shape3.top
x4= this.shape4.left
y4= this.shape4.top

this.cls

this.forecolor=rgb(0,255,128)
this.line(x1+this.shape1.width/2 , y1+this.shape1.height/2 , x2+this.shape2.width/2 , y2+this.shape2.height/2) && ©Ô±ì½u
this.line(x3+this.shape3.width/2 , y3+this.shape3.height/2 , x4+this.shape4.width/2 , y4+this.shape4.height/2) && ©Ô±ì½u

cPoints = ; &&¦U¶êÂIªºX,Y¦ì¸m
this.RECT(x1+7) + this.RECT(y1+27) +; && +7 ©M +27 ¬O¦]¬° API ¨S¦³¥[¤J hWnd ªº¼ÐÃD¦C°ª«×©M¥ªÃ䮨¼e«×, ©Ò¥H¦Û¦æ°t¦X¦±½u©M¶êÂIªº¦ì¸m
this.RECT(x2+7) + this.RECT(y2+27) +;
this.RECT(x3+7) + this.RECT(y3+27) +;
this.RECT(x4+7) + this.RECT(y4+27)

this.forecolor=0
= PolyBezier (hDC , @cPoints , 4)
ENDPROC

PROCEDURE RECT
PARAMETER lnValue
#DEFINE m0 256
#DEFINE m1 65536
#DEFINE m2 16777216
LOCAL b0, b1, b2, b3
b3 = Int(lnValue/m2)
b2 = Int((lnValue - b3*m2)/m1)
b1 = Int((lnValue - b3*m2 - b2*m1)/m0)
b0 = Mod(lnValue, m0)
RETURN Chr(b0)+Chr(b1)+Chr(b2)+Chr(b3)
ENDPROC
ENDDEFINE



DEFINE CLASS ªí³æ_Shape AS SHAPE
BORDERCOLOR=8453888
* BORDERWIDTH=3
CURVATURE=90
HEIGHT=8
WIDTH=7
NAME=[Shape]

PROCEDURE MOUSEDOWN
LPARAMETERS nButton, nShift, nXCoord, nYCoord
point_moveX= nXCoord
point_moveY= nYCoord
ENDPROC

PROCEDURE MOUSEMOVE
LPARAMETERS nButton, nShift, nXCoord, nYCoord
if nButton=1
this.left = this.left + (nXCoord - point_moveX)
this.top = this.top + (nYCoord - point_moveY)
point_moveX = nXCoord
point_moveY = nYCoord
thisform.ø¹Ï
endif
ENDPROC

PROCEDURE MOUSEUP
LPARAMETERS nButton, nShift, nXCoord, nYCoord
= PolyBezier (hDC , @cPoints , 4) &&¦bø»s¤@¦¸, ¦]·Æ¹«©ñ¶}®É,¦³®É¦±½u·|®ø¥¢
ENDPROC

ENDDEFINE
¦^³»ºÝ
À˵ø·|­û­Ó¤H¸ê®Æ µo°e¨p¤H°T®§
bin1x



µù¥U®É¶¡: 2004-08-27
¤å³¹: 462


²Ä 2 ¼Ó

µoªíµoªí©ó: ¬P´Á¤@ ¤E¤ë 05, 2005 12:47 am    ¤å³¹¥DÃD: ¤Þ¨¥¦^ÂÐ

gdi32
¦³¤°»ò¸ê®Æ¥i¬d¨ì¬ÛÃö¸ê°T?
¹³document ¨ººØªF¦è
¦^³»ºÝ
À˵ø·|­û­Ó¤H¸ê®Æ µo°e¨p¤H°T®§ µo°e¹q¤l¶l¥ó °ÑÆ[µoªí¤Hªº­Ó¤Hºô¯¸ MSN Messenger
sunghsia



µù¥U®É¶¡: 2003-06-13
¤å³¹: 52
¨Ó¦Û: ¥x¥_

²Ä 3 ¼Ó

µoªíµoªí©ó: ¬P´Á¤@ ¤E¤ë 05, 2005 9:53 am    ¤å³¹¥DÃD: ¤Þ¨¥¦^ÂÐ

Gdi32.dll ¬°¹Ï§Î¤å¥ó¤¶­±¨ç¦¡®w
§A¥i¥H«ö·Æ¹«¥kÁäÂIÀ»¥¦
¦b¿ï[§Ö³tÀ˵ø]¬d¥¦ªº¸ê®Æ
ùØ­±¦³«Ü¦h¨ç¼Æ,¨Ñµ{¦¡¥Î API ©I¥s
¦^³»ºÝ
À˵ø·|­û­Ó¤H¸ê®Æ µo°e¨p¤H°T®§
impotence



µù¥U®É¶¡: 2005-02-21
¤å³¹: 135
¨Ó¦Û: Hong Kong

²Ä 4 ¼Ó

µoªíµoªí©ó: ¬P´Á¤G ¤E¤ë 06, 2005 4:49 pm    ¤å³¹¥DÃD: ¤Þ¨¥¦^ÂÐ

¬°¤°»ò§Ú§ä¤£¨ì "[§Ö³tÀ˵ø]" ??
_________________
¤@­Ó±`±`§Ñ°O Command ªº¤H !
¦^³»ºÝ
À˵ø·|­û­Ó¤H¸ê®Æ µo°e¨p¤H°T®§
bin1x



µù¥U®É¶¡: 2004-08-27
¤å³¹: 462


²Ä 5 ¼Ó

µoªíµoªí©ó: ¬P´Á¤G ¤E¤ë 06, 2005 5:20 pm    ¤å³¹¥DÃD: ¤Þ¨¥¦^ÂÐ

¤£¦n·N«ä,§Ú¤]¬O
¦^³»ºÝ
À˵ø·|­û­Ó¤H¸ê®Æ µo°e¨p¤H°T®§ µo°e¹q¤l¶l¥ó °ÑÆ[µoªí¤Hªº­Ó¤Hºô¯¸ MSN Messenger
sunghsia



µù¥U®É¶¡: 2003-06-13
¤å³¹: 52
¨Ó¦Û: ¥x¥_

²Ä 6 ¼Ó

µoªíµoªí©ó: ¬P´Á¤T ¤E¤ë 07, 2005 12:53 am    ¤å³¹¥DÃD: ¤Þ¨¥¦^ÂÐ

¼Ó¤Wªº¨â¦ì¤j¤j, §A­Ìªºwindows¨t²Î,¬O¬°¤F¸`ªÅ¶¡¦Ó³Ì¤p¦w¸Ë¶Ü????
¤£µM«ç»ò¨S¦³§Ö³tÀ˵ø,,
§A­Ì¥i¥H¨ì - ±±¨î¥x - ¦w¸Ëµ{¦¡­¶­± - ªþÄÝÀ³¥Îµ{¦¡,¥h¦w¸Ë§Ö³tÀ˵ø
¦^³»ºÝ
À˵ø·|­û­Ó¤H¸ê®Æ µo°e¨p¤H°T®§
bin1x



µù¥U®É¶¡: 2004-08-27
¤å³¹: 462


²Ä 7 ¼Ó

µoªíµoªí©ó: ¬P´Á¤T ¤E¤ë 07, 2005 7:02 am    ¤å³¹¥DÃD: ¤Þ¨¥¦^ÂÐ

xp home edition ¨S¦³
¦^³»ºÝ
À˵ø·|­û­Ó¤H¸ê®Æ µo°e¨p¤H°T®§ µo°e¹q¤l¶l¥ó °ÑÆ[µoªí¤Hªº­Ó¤Hºô¯¸ MSN Messenger
impotence



µù¥U®É¶¡: 2005-02-21
¤å³¹: 135
¨Ó¦Û: Hong Kong

²Ä 8 ¼Ó

µoªíµoªí©ó: ¬P´Á¤T ¤E¤ë 07, 2005 8:24 am    ¤å³¹¥DÃD: ¤Þ¨¥¦^ÂÐ

¥i¬O .. §Ú¬O¥Î XP Pro ªº .. ¦ý §Ú¤S§ä¤£¨ì§A­Ì»¡ªº ..¦w¸Ë§Ö³tÀ˵ø Confused
_________________
¤@­Ó±`±`§Ñ°O Command ªº¤H !
¦^³»ºÝ
À˵ø·|­û­Ó¤H¸ê®Æ µo°e¨p¤H°T®§
±q¤§«eªº¤å³¹¶}©lÅã¥Ü:   
µoªí·s¥DÃD   ¦^ÂÐ¥DÃD    VFP ·R¥ÎªÌªÀ°Ï ­º­¶ -> VFP °Q½×°Ï ©Ò¦³ªº®É¶¡§¡¬° ¥x¥_®É¶¡ (GMT + 8 ¤p®É)
²Ä1­¶(¦@1­¶)

 
«e©¹:  
±z µLªk ¦b³o­Óª©­±µoªí¤å³¹
±z µLªk ¦b³o­Óª©­±¦^ÂФ峹
±z µLªk ¦b³o­Óª©­±½s¿è¤å³¹
±z µLªk ¦b³o­Óª©­±§R°£¤å³¹
±z µLªk ¦b³o­Óª©­±¶i¦æ§ë²¼
±z µLªk ¦b³o­Óª©­±ªþ¥[ÀÉ®×
±z µLªk ¦b³o­Óª©­±¤U¸üÀÉ®×


Powered by phpBB © 2001, 2005 phpBB Group
¥¿Å餤¤å»y¨t¥Ñ phpbb-tw ºûÅ@»s§@