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

¥ÎVFP¶}µo±Ð¾Ç³nÅé(Âà¶K)

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



µù¥U®É¶¡: 2003-03-12
¤å³¹: 1698
¨Ó¦Û: tunglo

²Ä 1 ¼Ó

µoªíµoªí©ó: ¬P´Á¤G ¤Q¤ë 21, 2003 2:56 pm    ¤å³¹¥DÃD: ¥ÎVFP¶}µo±Ð¾Ç³nÅé(Âà¶K) ¤Þ¨¥¦^ÂÐ

¨Ó·½:½sµ{¶é¦a
http://www.vfptop.com/bcxjylist.asp?id=114

¥ÎVFP¶}µo±Ð¾Ç³nÅé

1¡@¤Þ¨¥

¡@¡@¹q¸£»²§U±Ð¾Ç¡]CAI¡^§@¬°¤@ºØ¥ý¶iªº±Ð¾Ç¤â¬q¡A¥¿³v¨Bº¯³z¨ì¦UÃþ¾Ç®Õªº¦U­Ó¾Ç¬ì¡A¨Ï±Ð¾Ç¼Ò¦¡¡B¤º®e©M§Î¦¡¡B½Ò°ó±Ð¾Çµ²ºc¡A¥H¦Ü±Ð¨|«ä·Q©MÆ[©À³£µo¥Í¤F­«¤jªºÅܤơC¦UºØCAI½Ò¥óÀ³¹B¦Ó¥Í¡A¥Î¹q¸£»²§U±Ð¾Ç§ó¬O³dµL®Ç¶U¡C
¡@¡@¦h´CÅé§Þ³Nµ¹CAIª`¤J¤F·sªº¬¡¤O¡C¥Ñ©ó¦h´CÅé§Þ³N¯à°÷ºî¦X³B²z¤å¥»¡B¹Ï¹³¡B­µÀW¡BµøÀWµ¥¦hºØ´CÅé¡A¨Ã³q¹Lµøı¡Bťı¹ï¤HÅé²£¥Í¦h­«·P©x¨ë¿E¡A¨Ï¾Ç¥Í¦b¸ûµuªº®É¶¡¤ºÀò±o¸û¦hªº«H®§¶q¡A¬G°ê¤º¥~ªºCAI½Ò¥ó¤j¦h¨Ï¥Î¤F¦h´CÅé§Þ³N¡C¦¹¥~¡A°ê¤º¥~ªºCAI¦³¦V´¼¼z¤Æ¡Aºô¸ô¤Æµo®iªº¥²µMÁͶաC
¡@¡@¬°¤F«P¶i§Ú®Õ¡]¥H¦Ü°ê¤º¡^¹q¸£»²§U±Ð¾Çªºµo®i¡A§Ú­Ì¶}µo¤F¡§¦h´CÅéVisual FoxPro¤¤¤åª©±Ð¾Ç³nÅé¨t²Î¡]VFPCAI¡^¡¨¡C
¡@¡@¬ü°ê·L³n¤½¥qªºVisual FoxPro¡]²ºÙVFP¡^¤w¨ú¥N¥e·L¾÷¸ê®Æ®w¥Î¤á85%¤WªºdBASEªº¦a¦ì¡A¦Ó¦¨¤FXbaseÃþ¸ê®Æ®wªº¤u·~¼Ð·Ç¡A¤¤°ê¥Î¤á«Ü¦h¡C§Ú®Õ¥h¦~¤T¤ë¦b°ê¤º²v¥ý¶}VFPªº½Ò«á¡A²{¦b¶}¦¹½Òªº¾Ç®Õ©M¾Ç²ß¯Z¤w¸g«Ü¦h¤F¡A§Ú­Ì¬ã»s¥XªºCAI½Ò¥ó©w¦³¸û¦nªº¥«³õ«e´º©MªÀ·|®Ä¯q¡A¯÷¤¶²Ð©ó¤U¡C

2¡@VFPCAIªº²Õ¦¨¡B¹B¦æÀô¹Ò¤Î¯SÂI

¡@¡@¦h´CÅéVisual FoxPro¤¤¤åª©±Ð¾Ç³nÅé¨t²ÎVFPCAI¬O¥Î©ó¡mVisual FoxPro ¤¤¤åª©±Ðµ{¡n½Òµ{ªº¹q¸£»²§U±Ð¾Ç¡]CAI¡^½Ò¥ó¡A¥R¤À§Q¥Î¹q¸£VB»y¨¥ªº¥æ¤¬©Ê¤Î¦h´CÅé§Þ³N¡A¬°VFP½Òµ{´£¨Ñ¤@­Ó¨}¦nªº¦h´CÅéºî¦X±Ð¾ÇªºÀô¹Ò¡A¨ã¦³«Ü±jªº±Ð¾Ç¥\¯à¡C¨Ï¨ä¬J¥i§@¬°±Ð®v½Ò°ó±Ð¾Ç¨Ï¥Î¡A¤]¥i¥Î¤_¾Ç¥Í¦Û¾Ç©M¹êÅç½Ò¨Ï¥Î¡C
2.1¡@³nÅ骺²Õ¦¨
¡@¡@VFPCAI¥]§t°ò¦½g¡B¹ê¾Ô½g¤Î½m²ß¾¹¤T­Ó³¡¤À¡C¦@¤À¤E­Ó±Ð¾Ç³æ¤¸¡GVisual FoxPro°ò¦¡Bªí¡Bµ{¦¡³]­p¡]¤TºØ°ò¥»µ²ºc¡^¡B³øªí³]­p¾¹¡B¥\¯àªí³]­p¾¹¡B¸ê®Æ®w¡Bªí³æ¡Bª«¥óÃìµ²©M´O¤J¡B±M®×ºÞ²z¾¹¡C
2.2¡@¹B¦æÀô¹Ò
¡@¡@µwÅéÀô¹Ò¡G586·L¾÷¡A­µ®Ä¥d¡B­µ½c¡Aºô¥d¡]­Y¬Oºô¸ôÀô¹Ò¡^¡C
¡@¡@³nÅéÀô¹Ò¡GWindows 95§@·~¨t²Î¡AWindows NT¡]­Y¬Oºô¸ôÀô¹Ò¡^¡C
2.3¡@¥\¯à¯SÂI
¡@¡@±Ä¥Î°ÊºA¹Ï§Î¤Î°t­µ¦P¨B¸Ñ»¡¹ïVFP¤¤¦p¡Gªí¡B³øªí³]­p¾¹¡B¥\¯àªí³]­p¾¹¡Bªí³æ³]­p¾¹¡Bª«¥óÃìµ²©M´O¤Jµ¥¤º®e¶i¦æ§Î¶H¡Bª½Æ[¡B·Ç½T¥Í°Ê¦aºt¥Ü¡C¾Ç¥Í¥i§Y®É¾Þ§@¡A­Y¦bµ¥«Ý®É¶¡¤º¾Ç¥Í¥¼¾Þ§@¡A¨t²Î«hÄ~Äò¦V¤Uºt¥Ü¡C³o¼Ë¯à«Ü¦n¦aÀ°§U¾Ç¥Í²z¸Ñ¡A¦³§Q©ó°ö¾i¾Ç¥Íªº°Ê¤â¯à¤O¡F
¡@¡@¨t²Î±±¨î¯à¤O±j¡A¨ã¦³¼È°±¡B­«½Æ©M«ì´_µ¥¥\¯à¡C¥i¥Î±²¶b¹ê²{§Ö¶i¡B§Ö°h¡A¥B¹ê²{¤FÁn­µªº§Y®ÉÅܤơF
¡@¡@¥Î¤á¤¶­±¤Í¦n¡A¾Þ§@²³æ¡C¥\¯àªí´£¥Ü¡A¥iÂIª«¥ó¿ô¥Ø¡F
¡@¡@¤º®e¦w±Æ¦X²z¡A±Ð¾Ç¯à¤O±j¡F
¡@¡@¥æ¤¬©Ê±j¡A¾Ç²ß¤º®e©M¶i«×¥i¥Ñ¨Ï¥ÎªÌ¦Û¦æ¿ï¾Ü¡F
¡@¡@³¡¤À´¼¼z¤Æ¡A®Ú¾Ú¾Ç¥Í¿ï¾Ü¸ÕÃDµª®×¡Aµ¹¥X±M®a¿Ô¸ß·N¨£¡Bµû¦ô¥´¤À¡F
¡@¡@¥iºûÅ@©Ê±j¡A¨t²Î±Ä¥Î¼Ò²Õ¤Æµ²ºc¡A©ö©óºûÅ@¡F
¡@¡@¥i¤Wºô¸ô¡A¦h­Ó¥Î¤á¦P®É¨Ï¥Î¡F
¡@¡@¦³À°§U¸ê°T¡C

3¡@Á`Åé³]­p«ä·Q©M¥D­nÃöÁä§Þ³N

¡@¡@¦b¹ê²{°Êµe¦Û°Ê¼½©ñ¹Lµ{¤¤¡A¥Ñ©ó¤£»Ý­n¨Ï¥ÎªÌ¿é¤J¥ô¦ó¤º®e¡A¬G¦b¼½©ñ°Ï°ì¥i¤£³]­p¦h¾lªº±±¨î¶µ¡A«K©ó²¤Æ³]­p¡C¨Ò¦p¡A¥J²ÓÆ[¹îVFP¤¤¥Í¦¨¥\¯àªíªº¹Lµ{¡A¥iµo²{¦bVFP¥Dªí³æ´X¥G¨S¦³Åܤƪº±¡ªp¤U¡A¶È¶È¬O¼u¥X¦¡µæ³æ¦bÅܤơC°²¦p±Ä¥Î¥Í¦¨¯u¥¿ªºAVI°ÊµeÀɪº¤èªk¡A¤£¶È§Þ³N¸û¬°½ÆÂø¡A¥B»Ý­n±Mªù³nÅ骺¤ä´©¤~¥i¹ê²{¡A¬G¤£¥i¨ú¡C¦pªG±NVFP¤¤¥Í¦¨¥\¯àªí¹Lµ{¤¤ªº¤@´T´T¹Ï¤ù«þ¨©¤U¨Ó¦A³sÄò¼½©ñ¤]¥i¹F¨ì¦p¦PAVIÀɼ½©ñªº¦P¼Ë®ÄªG¡A¦Ó¥B³o¼Ë¨Ó°µ¸û©ö¹ê²{¡C¥t¥~¡A¨C¦¸¤Á´«¹Ï¤ù®É¦pªG¬O¥þ«Ì§ó´«ªº¸Ü¡A¥[¤W¹q¸£³t«×ªº¼vÅT¡A¦³¥i¯à²£¥Í°{Ã{·P¡C¦pªG¤Á´«¸û¤p°Ï°ì¤ºªº¹Ï¤ù¡A«h·|²£¥Í¸û¦nªº®ÄªG¡C¥Ñ¦¹¥i³]·Q±NVFP¤¤­I´º¹Ï¤ù«þ¨©¤U¨Ó§@¬°°Êµe¤¤ªºªí³æºt¥Ü³¡¤Àªº­I´º¡A¦Ó±N¼u¥X¦¡¥\¯àªí¡Bµøµ¡µ¥§@¬°¤Á´«¡A³o¼Ë«K¥i¦û¥Î¸û¤Öªº¨t²Î¸ê·½¡A¹F¨ì¸û¨Îªººt¥Ü®ÄªG¡C
¡@¡@¬°¤F°t¥H¸Ñ»¡µü¡A¥i¥H¤@´Tµe­±°t¤W¤@­Ó­µ®ÄÀɮסA³o¼Ë¥i¥H¹F¨ìÁn­µ»Pµe­±ªº¹ïÀ³¡C¦Ò¼{¨ìµe­±¸û¦h¡A¹Lµ{¸ûªø¡A»Ý­n¤j¶qªºÁn­µ¡B¹Ï¤ùÀɤ䴩¡A¬°¤F¤è«K°_¨£¡A¥i±N¨ä©ñ¤J¸ê®Æ®wÀɤ¤¡A«K©óºÞ²z¡A½Õ¥Î¡A¨ä½sµ{¦¡½X¤]¥i¥H«Ü²·Ò¡C
¡@¡@¬°¤F¦³¸û¬°¯u¹êªº®ÄªG¡A¦bºt¥Ü°Ï°ìÁÙÀ³¦³¤@°¦¥i²¾°Êªº¡§·Æ¹«¡¨¥hÂIÀ»©Ò»Ý³¡¤À¡A¦Ò¼{¨ì¨Ï¥ÎªÌÀ³¨Ï¥Î¯u¡§·Æ¹«¡¨¨Ó±±¨î¹Lµ{¡Aºt¥Ü¹Lµ{¨S¦³¥ô¦ó¿é¤J¡A¬G¥i¥Î¤@¹Ï¤ù®Ø±±¨î¨Óºt¥Ü·Æ¹«ªº²¾°Ê¡A¹ï¾Ç²ßªÌ°_¨ì¥Ü½d§@¥Î¡A¦ý¨S¦³¥ô¦ó¿é¤J¿é¥X¡A¤]¤£·|¼vÅT¯u·Æ¹«ªº§@¥Î¡C
¡@¡@¬°¤F¼ÒÀÀAVI°Êµe¤¤¥i¦Û¥Ñ¸õÂà®É¶¡ªº¥\¯à¡AÀ³¦bµ{¦¡ªí³æ¤¤¥[¤@±²¶b¡A¦Ó±²¶bªº­È¥i¹ïÀ³¸ê®Æ®w¤¤ªº°O¿ý¸¹¼Æ¡C·í±²¶bµo¥ÍÅܤƮɡA¸ê®Æ®w¤¤°O¿ý«ü¼Ðµo¥Í¬ÛÀ³ÅܤơA¦¹®É¼½©ñªº¹Ï¤ù©M­µ®ÄÀɮפ]·|µo¥Í¬ÛÀ³ªºÅܤơA«h·|µ¹¨Ï¥ÎªÌ¥H®É¶¡¸õÂà¡B¼½©ñ¹Lµ{¥i±±¨îªº·Pı¡C
¡@¡@¥H¤U§Y¬Oµ{¦¡ªº³]­p¹Lµ{©M¥D­nÃöÁä§Þ³N¡C
¡@¡@¹ê²{¹ê¾Ô½g°Êµeºt¥Ü¹Lµ{ªº¥DÅé¬O¨â­Ótimer ¨Æ¥ó¡B±²¶b±±¨î¶µ¡B¥H¤Î¦X²zªºªíµ²ºc¡C¨ä¤¤¡A¤@­Ótimer±±¨î¶µ¹ï°Êµeºt¥Ü¹Lµ{§@¥DÅé±±¨î¡A·í¥¦¨Cµo¥Í¤@¦¸¡A¸ê®Æ®w«ü¼Ð´N²¾°Ê¤@¦¸¡Aºt¥Ü°Ï°ì¹ïÀ³ªº¹Ï¤ùµo¥ÍÅܤơA°t­µ¤]·|µo¥Í¬ÛÀ³ÅܤơF¥t¤@­Ótimer±±¨î¶µ±±¨î°²¡§·Æ¹«¡¨¹Ï§Îªº²¾°Ê¹Lµ{¡A¥¦¨Cµo¥Í¤@¦¸¡A°²¡§·Æ¹«¡¨¹Ï§Î²¾°Ê¤@¬q¶ZÂ÷¡A¥Ñ©ó¥¦µo¥Íªº®É¶¡¶¡¹j«D±`µu¡A«h¡§·Æ¹«¡¨¹Ï§Î´N·|²£¥Í³sÄò·Æ°Êªº·Pı¡F±²¶b±±¨î¶µªº­È¹ïÀ³©ó¸ê®Æ®w¤¤ªº°O¿ý¸¹¡A¤GªÌªºÅܤƤ¬¬Û¼vÅT¡A³o¼Ë´N¥i¹ê²{¹ïºt¥Ü¹Lµ{ªº±±¨î¡C
3.1¡@°Êµe¡BÁn­µªº¦P¨B
¡@¡@¦b¥»µ{¦¡¤¤¡AÁn­µ»P°Êµeªº¦P¨B¬O¤@­Ó­«ÂI¡C§Ú­Ì¦b³Ì¥ý¦Ò¼{Án­µªº³sÄò¼½©ñ®É¡A¹ï´X­ÓVB¤¤¹ê²{Án­µ¼½©ñªº¤èªk§¡°µ¹L¹Á¸Õ¡C³q¹L¤ñ¸ûµo²{¡A¬Û¹ï»¡¨ÓAPI¨ç¼Æ¤¤ªºmcisendstring¨ç¼Æªº¹ê¥Î©Ê¡A¥i¾Þ§@©Ê¸û±j¡A¤£©ö»P¨ä¥Lµ{¦¡µo¥Í½Ä¬ð¡AÀ³¸Ó¬O­º¿ïªº¼½©ñ¤â¬q¡C¦ý¦b°j°é¼½©ñ¤¤¡A¦¹¨ç¼Æ·|³sÄò¸õ¹L«e­±ªº­µ®ÄÀɮצӥu¼½©ñ³Ì«á¤@­º¡A¦]¦¹¡A¥²¶·¥Î¨ä¥L¤èªk¸Ñ¨M¦¹¨ç¼Æ¼½©ñ­µ®ÄÀɮ׮ɪº®É¶¡©µÄò°ÝÃD¡C¥»¨Ó¦bAPI¨ç¼Æ¤¤¦³¤@±Mªùªº©µ®É¨ç¼Æsleep(¡^¡A¥¦¥i¥H¨Ïµ{¦¡«öµ¹©w®É¶¡¶i¦æ©µ®É¾Þ§@¡A¦ý¦b¹ê»ÚÀ³¥Î¤¤¡A«oµo²{¸Ó¨ç¼Æ¦³¤@·¥¤jªº¹úºÝ¡X§Y¦b©µ®É¹Lµ{¤¤¡A¥ô¦óÁä½L¡B·Æ¹«¾Þ§@§¡±o¤£¨ì¤Î®É¦^À³¡A¥u¦³·í©µ®É§¹¦¨«á¡Aµ{¦¡¤~·|¹ï¿é¤J«H¸¹§@¥X¦^À³¡C¦]¦¹¡A­Y©ñ­µ®É¥Îsleep¨ç¼Æ©µ®É¡A«h¾¨ºÞÁn­µ¯à¨Ì¦¸§¹¥þ¼½©ñ¡A¦ý¤¤³~­Y·Q¼È°±¡A²×¤î§¡¬O¤£¥i¯à¹ê²{ªº¡C³Ì«á¡A§Ú­Ì¥Îsleep±±¨î¶µ¸û¦n¦a§¹¦¨¤F¥Ø¼Ð¡C¦b¦¹,timerªºintervalÄÝ©Ê°_¤F¨M©w©Êªº§@¥Î¡A¥Î¥¦¨Ó§@©µ®É¾Þ§@¡A¨Ï¨C±ø°O¿ýªº­µ®ÄÀɮק¡¯à¼½©ñ§¹²¦«á¦A±Ò°Ê¤U¤@¦¸¨Æ¥ó¡]¼½©ñ¤U¤@±ø°O¿ý¡^¡A¨Ã¥B,timer¨Æ¥ó¹Lµ{¤¤¡A·Æ¹«¾Þ§@¯à¨ü¨ì§Y®ÉÅTÀ³¡A¬°°Êµe¹Lµ{ªº¼È°±¡B²×¤îµ¥¾Þ§@´£¨Ñ¤F¨Ì¾Ú¡C
¡@¡@¥DÅéµ{¦¡³¡¤Àªºtimerl¡Xtimerªº¥N½X¦p¤U¡G
private sub timerl¡Xtimer()
timer3.Enadle=True
¡@¡@; ±Ò°Ê·Æ¹«¹Ï§ÎImage2ªº²¾°Ê¡A¨Ï¨ä²¾¦V³QÂIÀ»³B¡C
Timer3.interval=10
¡@¡@If Datal.Recordset.EOF=True then
timerl.Enabled=False
Exit sub
Else
Hscroll1.value= Datal.Record set.Fields¡]"§Ç¸¹"¡^
¡F±²¶b¦ì¸m»Pªí¤¤°O¿ý¦P¨BÅܤơC
I2=Datal.Record set.Fields("§Ç¸¹")
If (i2>=25 and i2¡Ði1<>1)
or (i2=25 and i1=24) then
¡F§PÂ_­I´º¬O§_»Ý­n§ó´«¡C
picturel.picture=loadpicture(app.path&"\pic Á`¹Ï2.bmp")
goto endl
end if
If (i2>=14 and i2¡Ði1<>1) or (i2=14 and il=13) then
picturel.picture=loadpicture(app.path &"\pic Á`¹Ïl.bmp")
goto endl
end if
if (i2<14 and i2¡Ði1<>1) then
picturel.picture=loadpicture(app.path &"\pic Á`¹Ï.bmp")
end if
end 1
Imagel.visible=False
¡F¤Á´«¹Ï§Î¦b¤Á´«¡B­«·s©w¦ì¤§«eÀ³®ø¥¢
Imagel.picture=loadpicture(app.pcoth &"\pic\" &
Datal.Recordset.Fields("¹Ï¤ù"))
Imagel.left=Datal.Recordset.Fields ("x")
Imagel.top=Datal.Recordset.Fulds ("y")
Imagel.Visible=True
Mcisendstring "close myware",o,o,o
¡F©ñ¤U¤@­º­µ®ÄÀɮפ§«eÀ³Ãö³¬¤W¤@­º¡C
mcisendstring "open" & app.path & "\WAV\"&
Datal.Recordset.Feclds("Án­µ")& "alias myWAV",o,o,o
¡F±N­µ®ÄÀÉ®×¥HmyhAV§O¦W¥´¶}¡C
mcisendstring "play mywAV",o,o,o
¡F¼½©ñ­µ®ÄÀɮסC
End if
Timerl.interval=Datal.Recordset.Fields("ªø«×")
¡F¹ï¼½©ñ¹Lµ{©µ®É¡A«OÃÒ­µ®ÄÀɮׯ৹¥þ¼½©ñ¡B¥H¤Îimage2¯à§¹¥þ²¾¨ì¥Øªº¦a¡C³o¬O¹ê²{Án­µ¡B°Êµe¦P¨BªºÃöÁä¡C
Il=Datal.Recordset.Ficlds("§Ç¸¹")
Text7.text=Datal.Recordset.Fields("¤å¥»")
¡F¦b¤å¥»®Ø¤¤°t¤W»¡©ú©Ê¤å¦r¡C
Datal.Recordset.Movenext
End sub.

3.2¡@¡§·Æ¹«¡¨¹Ï§Îªº°Êµe¹ê²{
¡@¡@¬°¤F¼W¥[¯u¹ê·P¡Aºt¥Ü¹Lµ{¤¤¡A·í¹Ï¤ù¤Á´«®É¡A»Ý­n¤@°¦°²¡§·Æ¹«¡¨¥hÂIÀ»»Ý­nÂIÀ»ªº³¡¤À¡C
¡@¡@°²¡§·Æ¹«¡¨¹Ï§Î¥i¥ÎImage2¨Ó°µ¡A²¾°Ê¥Øªº¦aªº¨ãÅé®y¼Ð­È¤]¥i¥H©ñ¤J¸ê®Æ®wªºªí¤¤¡AÀH®É¥i¥H½Õ¥X¡CImage2ªº²¾°Ê¹Lµ{¤]¥i¥Ñ¤@­Ó®É¶¡±±¨î¶µ¤@timer3¨Ó±±¨î¡A·ítimer3ªºÄ²µo®É¶¡¶¡¹j«Üµu®É¡Aimage2²¾°Ê¹Lµ{¤¤ªº¨ê·s²v¤]«Ü°ª¡A³o·|Åý¤H²´²£¥Í¥­·Æ²¾°Êªº·Pı¡C¥H¤W°ÝÃD³£¸Ñ¨M¤F¡A³Ñ¤U«h¬O¨C¦¸timer3¨Æ¥ó¤¤«ç»ò²¾°Êªº°ÝÃD¡C¦]¬°image2À³¥Hª½½u¹B°Ê²¾¦V¥Øªº¦a¡A¥B¨C¦¸¥u¯à²¾°Ê¸ûµuªº¤@¬q¶ZÂ÷¡A¬°¤Fºë½T¦a¡§ºâ¥X¡¨²¾°Ê­y¸ñ¡A«h¥u¯à³q¹L¼Æ¾Ç¹Bºâ¨Ó¹ê²{¡C
¡@¡@¦bµ{¦¡¤¤¡A§Ú­Ì³q¹L¤Ï¤T¨¤¨ç¼Æºâ¥X¡§­y¸ñ½u¡¨ªº¨¤«×¡A³q¹L¤ñ¸ûimage2ªº·í«e®y¼Ð©M¥Øªº¦a®y¼Ð¨Ó§PÂ_image2ªº²¾°Ê¤è¦V¡A³o¼Ë«K¥i§Y®É¦a¡B¸ûºë½T¦a±±¨îimage2ªº²¾°Ê¹Lµ{¡C¬°¤F½Õ¥Î¤è«K¡A§Ú­Ì³]­p¤F¤@¤p¬q°Æµ{¦¡¨Ó¹ê²{­pºâ¨¤«×ªº¥\¯à¡G
¡@¡@Private Sub jao¡Xdu(xa,ya,xb,yb)
¡@¡@¡@¡@;(xa,ya) image2¤§·í«e®y¼Ð
¡@¡@¡@¡@;(xb,yb) ¬°¥Øªº¦a¤§®y¼Ð
¡@¡@If yb=ya Then yb=yb+0.0001
¡@¡@If xb=xa Them xb=xb+0.0001
¡@¡@¡F¬°¤F¨¾¤î­pºâ¹Lµ{¤¤¥X²{¤À¤l¡B¤À¥Àµ¥©ó0ªº±¡ªp¡A¦b»~®t¤¹³\½d³ò¤º¡A±N®y¼Ð­È°µ·L¤pªºÅÜ°Ê¡A¹ïµ{¦¡¤£·|²£¥Í©úÅã¼vÅT¡C
¡@¡@Jaodu=Abs(Atn((yb¡Ðyb)/(xb¡Ðxa)))
¡@¡@¡F¬°¤F¨¾¤î¤zÂZ¡A±N©Ò±oµ²ªG¤@«ß¨Dµ´¹ï­È¡C
¡@¡@End Sub
¡@¡@¤W­±ªºµ{¦¡¹ê²{¤F¨¤«×ªº¨D¸Ñ¡A¦A¥[¤WImage2²¾°Êªº¨ãÅé¥N½X«K¥i¤F¡C

3.3¡@¶iµ{±ø©ì°Ê§Þ³Nªº¹ê²{
¡@¡@­Y¥u±q¦r­±¤W¨Ó²z¸Ñ¡A¥i¦b±²¶bHscroll1ªºChange¨Æ¥ó¤¤¥[¤J¬ÛÀ³¥N½X¡A§Y¥i¹F¨ì©ì°Ê±²¶b±±¨î¡B¸ê®Æ®w¤¤«ü¼Ð¸õ¨ì¬ÛÀ³¬ö¿ý¡A¹ê²{Án­µ»P¹Ï¤ù¦P®É¬ÛÀ³Åܤƪº§@¥Î¡A¦]¦¹¦¹ºØ§Þ³NÀ³¸û¬°®e©ö¹ê²{¡C¦ý¨Æ¹ê¤W«o»P·Q¹³¤¤ªº¤j¦³¥X¤J¡C·í§Ú­Ì­è¶}©l¦bHscroll1¡XChange)¤¤¥[¤J¬ÛÀ³¥N½X®É¡A«oµo²{µ{¦¡©¹©¹­«½Æ°õ¦æ¡A¥B©ì°Ê±²¶b«á¤]¤£¯à¹ê²{Án­µ¡B¹Ï¤ùªº§Y®ÉÂà´«¡C¸Ñ¨Mªº¿ìªk¬O¹ïHscroll1¡XChang¤¤¥N½X¬q¥Î¬ÛÀ³½Õ¾ã¡A¨Ã±N¥N½X¬q
¡@¡@Hscroll1.Value=Data1.Recordset.Fields¡]¡§§Ç¸¹¡¨¡^
¡@¡@±qtimer1¡Xtimerµ{¦¡¬q¤¤«e²¾¡A¨Ï¨ä¦b¹Ï¹³¼½©ñ»PÁn­µ¼½©ñ¤§«e¥ý¶i¦æ°õ¦æ¡A°ò¥»¤WÁקK¤F¹ï¥¿±`°Êµe¼½©ñ¹Lµ{ªº¤zÂZ¡A¤]¹ê²{¤F©ì°Ê±²¶b«á°Êµe¹Lµ{¯à¥ô·N¸õÂ઺¥\¯à¡C°ò¥»¤W¹ê²{¤F¥Ø¼Ð¡C
3.4¡@«ö¤U°h¥X«ö¶s®É°t­µªº¹ê²{
¡@¡@«ö¤U¬Y«ö¶s®É°t¥HÁn­µ·|µ¹¤H¥H¦Õ¥Ø¤@·sªº·Pı¡A³o¶µ§Þ³N¤]¬O¸û©ö¹ê²{ªº¡A¥u»Ý¦b°õ¦æ¬ÛÀ³¥N½X®É¼½©ñ¤@­µ®ÄÀɮקY¥i¡C
¡@¡@±q®É¶¡¤W¦Ò¼{¡A°h¥XÁn­µªº¼½©ñÀ³¦bend©R¥O¥H«e¡A¦ý¨Æ¹ê¤W¡AÁn­µ¥¼©ñ§¹¥H«e§Y³Qend©R¥O²×¤î¡C¬°¤F§¹¾ã¦a¼½©ñ¡A«h¦Ò¼{¥[¤Wslecp¡]¡^¨ç¼Æ¹ï¨ä¶i¦æ©µ®É¼½©ñ¡C
¡@¡@·í¥[¤Wslecp¡]¡^¨ç¼Æ¥H«á¡AÁn­µ¯à°÷¼½©ñ§¹¡A¦ý¦P®Éslecp¡]¡^¤S«ÊÂê¤F¿é¤J¿é¥X¡A¨Ï°h¥Xµe­±©T©w¤£ÅÜ¡A¤£¯à¦b¼½­µªº¦P®Éªð¦^§@·~¨t²Î¤¶­±¡C
¡@¡@©ó¬O§Ú­Ì±qªí³æ¥»¨­¤J¤â¡A§Y¦b©µ®É¨ç¼Æ°õ¦æ¥H«e¡A±Nªí³æªºVisibleÄݩʧאּFalse ¡A¨Ï¨ä¤£¥i¨£¡Cµ²ªGªGµM¹F¨ì¤F³]·Qªº­n¨D¡A§Y·í³æÀ»Ãö³¬µ{¦¡ªº°h¥X«ö¶s®É¡Aªí³æ³QÃö±¼¡AÅã¥XWin95ªº®à­±¡A¦P®É°t¥HÃö³¬®É­µ¼Ö¡A¥B¯à¥ß¨è°õ¦æWin95¤Uªºµ{¦¡¡C
¡@¡@¥»¨t²ÎÁ٨ϥΤF¶W¤å¥»¡B¶W¹Ï¹³¡B´å¼Ð°{Ã{¡B¹Ï¹³·Æ¤Jµ¥¦hºØ§Þ³N¡A³oùØ´N¤£ÂØ­z¤F

_________________
#############################
§Ö¼Ö¶ý«}¨t¦C©¯ºÖ¦v°t,³Ü¤Q¥þÂû´ö~­ì¨Ó©¯ºÖ¨º»ò²³æ!!

¾Ç·|VFP¨Ï¥ÎªÌªÀ°Ïªº·j´M,Code¤~·|§ó¦³½ì~
#############################
¦^³»ºÝ
À˵ø·|­û­Ó¤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§@