VB ÓÃsleepʱ£¬³öÏÖ³ÌÐòÎÞÏìÓ¦
Ë®Á÷Ï߻ͼÈçÏ£º Picture1.CurrentX = pen(1).PenPointx Picture1.CurrentY = pen(1).PenPointy For temp1 = 1 To pointcount - 1 If (pen(temp1).PenPointx = -1 And pen(temp1).PenPointy = -1) Then Picture1.CurrentX = pen(temp1 + 1).PenPointx Picture1.CurrentY = pen(temp1 + 1).PenPointy Else Picture1.Line -(pen(temp1).PenPointx, pen(temp1).PenPointy ) Sleep (pen(temp1 + 1).time - pen(temp1).time) End If Next temp1 penµÄ¶¨ÒåÈçÏ£º Private Type paintpen PenPointx As Integer 'XÖá×ø±ê PenPointy As Integer 'YÖá×ø±ê time As Long ¡®Ê±¼äµã End Type £¨-1£¬-1£¬0£©ÊÇ¿ªÊ¼ÏÂÒ»±Ê ÔõôÎÒÒ»µ½ÏÂÒ»»®µÄʱºò¾Í³ö´íÁË£¬³ÌÐò¾Í²»¶¯ÁË ´ó¼Ò°ïÎÒ¿´¿´£¬ÄÄÀï³öÎÊÌâÁË
²»ÒªsleepÄǾä»ò¸Ä³Éapplication.doeventsÒýÓà ²»ÒªsleepÄǾä»ò¸Ä³Éapplication.doevents ²»ÒªsleepµÄ»°£¬ÎÞ·¨¿ØÖÆËÙ¶È ÔõôÓÃapplication.doevents£¿ Ææ¹ÖµÄ Else Picture1.Line -(pen(temp1).PenPointx, pen(temp1).PenPo
Ïà¹ØÎÊ´ð£º
ÎÒÓг§¼Ò×öµÄASPµÄ¼à¿ØÂ¼Ïñ£¨DVR£©µÄ¾ÖÓòÍø²¥·ÅµÄÔ´³ÌÐòÓë¿Ø¼þ£¬ÏëÒªÓÃASP.net×öÒ»¸öÊÓÆµ»Ø·ÅµÄ³ÌÐò£¨ÀûÓÃËûµÄ¿Ø¼þ£©µ«²»ÖªÈçÏÂÈ¥×ö£¬Íû¸÷λָµã¡£ ÏȸãÇå³þËûÃǵĿؼþÊÇÔõôÓõÄ, È»ºó¾ÍÖ±½ÓÓúÃÁË. ²»¹ý,Èç ......
±ÈÈç½ø³Ì¼ÓÔØÐµijÌÐò¡£ ÔÚÆäÔËÐÐ֮ǰ×èÖ¹¡£ È»ºóÔÊÐíºó·ÅÐС£ ±ÈÈç³ÌÐòÖ÷Îļþ·¾¶ÊÇc:\test\test.exe£¬½¨Á¢ÄÚÈÝÈÎÒâµÄÎļþc:\test\test.exe.manifest¡£ ¾ÍÊDz»ÖªµÀ³ÌÐòÎļþ·¾¶¡£ ÉèÖ ......
Ï£Íû´ó¼ÒÄܹ»°ïÎÒÏÂ.¸ÐлÁË.. Ô´Âë´«ÔÚ´óÃ×ÅÌ VB6 µÄÔ´Âë http://www.damipan.com/file/3wNoKLW.html תΪVB.NETÔ´Âë. СµÜÍêÈ«ÊÇÐÂÊÖ ²»¶®µÄ˵.Âé·³¸÷λ°ïæһÏ ÎÒµÄEMAILÊÇ:4452 ......
ÔÚvbÖÐÔõôÅжϣ¬²åÈëµ½Êý¾Ý¿âÖеÄÖµÊÇÖØ¸´µÄ£¬±¾È˲ŸսӴ¥VBÓïÑÔ£¬ÉõÊÇÓÐºÃ¶àµØ·½»¹²»¶®£¬»¹Çë¸÷λ´óÏÀÃǸø³ö´úÂ룬ллÁËѽ£¡£¡£¡ ²åÈë֮ǰselectһϰ¢¡£ »òÕßдһ¸ö×éºÏSQL²åÈëÓï¾ä£¬ÀýÈç IF not Exist( & ......