 |
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¸ü.
|
¤W¤@½g¥DÃD :: ¤U¤@½g¥DÃD |
µoªí¤H |
¤º®e |
sunghsia
µù¥U®É¶¡: 2003-06-13 ¤å³¹: 52 ¨Ó¦Û: ¥x¥_
²Ä 1 ¼Ó
|
µ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 |
|
¦^³»ºÝ |
|
 |
bin1x
µù¥U®É¶¡: 2004-08-27 ¤å³¹: 462
²Ä 2 ¼Ó
|
µoªí©ó: ¬P´Á¤@ ¤E¤ë 05, 2005 12:47 am ¤å³¹¥DÃD: |
|
|
gdi32
¦³¤°»ò¸ê®Æ¥i¬d¨ì¬ÛÃö¸ê°T?
¹³document ¨ººØªF¦è |
|
¦^³»ºÝ |
|
 |
sunghsia
µù¥U®É¶¡: 2003-06-13 ¤å³¹: 52 ¨Ó¦Û: ¥x¥_
²Ä 3 ¼Ó
|
µ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 |
|
¦^³»ºÝ |
|
 |
impotence

µù¥U®É¶¡: 2005-02-21 ¤å³¹: 135 ¨Ó¦Û: Hong Kong
²Ä 4 ¼Ó
|
µoªí©ó: ¬P´Á¤G ¤E¤ë 06, 2005 4:49 pm ¤å³¹¥DÃD: |
|
|
¬°¤°»ò§Ú§ä¤£¨ì "[§Ö³tÀ˵ø]" ?? _________________ ¤@Ó±`±`§Ñ°O Command ªº¤H ! |
|
¦^³»ºÝ |
|
 |
bin1x
µù¥U®É¶¡: 2004-08-27 ¤å³¹: 462
²Ä 5 ¼Ó
|
µoªí©ó: ¬P´Á¤G ¤E¤ë 06, 2005 5:20 pm ¤å³¹¥DÃD: |
|
|
¤£¦n·N«ä,§Ú¤]¬O |
|
¦^³»ºÝ |
|
 |
sunghsia
µù¥U®É¶¡: 2003-06-13 ¤å³¹: 52 ¨Ó¦Û: ¥x¥_
²Ä 6 ¼Ó
|
µ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À˵ø |
|
¦^³»ºÝ |
|
 |
bin1x
µù¥U®É¶¡: 2004-08-27 ¤å³¹: 462
²Ä 7 ¼Ó
|
µoªí©ó: ¬P´Á¤T ¤E¤ë 07, 2005 7:02 am ¤å³¹¥DÃD: |
|
|
xp home edition ¨S¦³ |
|
¦^³»ºÝ |
|
 |
impotence

µù¥U®É¶¡: 2005-02-21 ¤å³¹: 135 ¨Ó¦Û: Hong Kong
²Ä 8 ¼Ó
|
µoªí©ó: ¬P´Á¤T ¤E¤ë 07, 2005 8:24 am ¤å³¹¥DÃD: |
|
|
¥i¬O .. §Ú¬O¥Î XP Pro ªº .. ¦ý §Ú¤S§ä¤£¨ì§AÌ»¡ªº ..¦w¸Ë§Ö³tÀ˵ø  _________________ ¤@Ó±`±`§Ñ°O Command ªº¤H ! |
|
¦^³»ºÝ |
|
 |
|
|
±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§@
|