Board logo

¼ÐÃD: DOEVENTS «ü¥O«Ü­«­n [¥´¦L¥»­¶]

§@ªÌ: sjgau    ®É¶¡: 2013-10-25 13:09     ¼ÐÃD: DOEVENTS «ü¥O«Ü­«­n

http://www.programmer-club.com/showSameTitleN/vb/16866.html

§Ú¦A ºCºC¸Ñ»¡
§@ªÌ: sunnyso    ®É¶¡: 2013-10-25 13:49

¦^´_ 1# sjgau

´Á«Ýing ¤j¤jªº¸Ñ»¡
§@ªÌ: sjgau    ®É¶¡: 2013-10-25 14:04

¦^´_ 2# sunnyso


    ¤µ¤Ñ¦­¤W¡A²×©ó¹ª°_«i®ð ¶}©l¼gµ{¦¡¥h§ì¨ú ½L¤¤ªº §Y®É³ø»ù¡C

¦ý¬O¡A¥u­n µ{¦¡¤@°_°Ê¡A³ø»ù´N °±¤îªñ¨Ó¡C

§Ú¤j·§ ª¾¹D¬O «ç»ò ¤@¦^¨Æ¡A»°§Ö¥hºô¸ô¤W §ä´M¸ê®Æ

¥u­n¦b °j°éùØ­±¥[¤W
DOEVENTS
´N¸Ñ¨M¤F

¤j·§¬O 100¬íÄÁªº µ{¦¡
¥i¥H¶] ¤j¬ù ¤T¦Ê¸U­Ó °j°é

¥i¥H ¥¿½T§ì¨ú¤j¬ù 200µ§ ³ø»ù¸ê®Æ

¸Ô²Ó¡Aµ¥§Ú ¤U­Ó§«ô¾ã²z¤@¤U µ{¦¡
¦A§â µ{¦¡©M ¿é¥X ¶Ç°e¤W¨Ó
§@ªÌ: sjgau    ®É¶¡: 2013-10-25 19:48

DoEvents ¨ç¼Æ
½Ð°Ñ¾\     ½d¨Ò     ¯S©Ê

¼È°±°õ¦æ¡A¥H«KÅý§@·~¨t²Î¥i¥H³B²z¨ä¥¦ªº¨Æ¥ó¡C

»yªk

DoEvents( )

½Ðª`·N

DoEvents ¨ç¼Æ·|¶Ç¦^¤@­ÓInteger¡A¥H¥Nªí Visual Basic ªº³æ¤@ª©¥»¤¤©Ò¶}±Òªºªí³æ­Ó¼Æ¡A¨Ò¦p¡A Visual Basic±M·~ª©¡C¦b¨ä¥¦ªºÀ³¥Îª©¥»¤¤¡ADoEvents ·|¶Ç¦^ 0¡C

DoEvents ·|±N±±¨îÅv¶Çµ¹§@·~¨t²Î¡AµM«á·í§@·~¨t²Î³B²z§¹¦î¦C¤¤ªº¨Æ¥ó¡A¨Ã¥B¦b SendKeys ¦î¦C¤¤ªº©Ò¦³ Key ³£¤w°e¥X«á¡A±±¨îÅv·|¦A¶Ç¦^¡C

DoEvents ±`¥Î©ó¥iÅý¨Ï¥ÎªÌ¨ú®ø¤@¬q³B²z§Ç¡A¨Ò¦p·j´MÀɮסC¹ï©ó¤@¬q»Ýªá¶O¸ûªø®É¶¡ªº°Ê§@¦Ó¨¥¡A¨Ï¥Î Timer ¨Ó³B²z©Î¥æ¥Ñ¤@­Ó ActiveX EXE ¤¸¥ó·|¤ñ¸û¦n¡C¥H«áªÌ¦Ó¨¥¡A³o­Ó¤u§@¥i¤£¨Ì¾aÀ³¥Îµ{¦¡¦Ó¿W¥ß¶i¦æ¡A§@·~¨t²Î·|¥H¦h¤u¤è¦¡³B²z¡C

ª`·N ½Ð½T©w¥H DoEvents ¨Ó©ñ±ó±±¨îÅvªºµ{§Ç¡A¦b²Ä¤@¦¸ DoEvents ¶Ç¦^¤§«e¡A¤£¯à¦A«×°õ¦æ¡A§_«h·|²£¥Í¤£¥i¹w´Áªºµ²ªG¡C¦¹¥~¡A¦pªG¨ä¥¦ªºÀ³¥Îµ{¦¡¦b±z©ñ¥X±±¨îÅv®É¡A¥i¯à·|©M±zªºµ{§Ç²£¥Í¤¬°Ê¡A¨º»ò¤]¾¨¶q¤£­n¨Ï¥Î DoEvents¡C
§@ªÌ: sjgau    ®É¶¡: 2013-10-25 19:52

¦p¦ó ÁקK DoEvents ©|¥¼µ²§ô¤§«e¡A
­«½Æ °õ¦æ DoEvents???
§@ªÌ: sunnyso    ®É¶¡: 2013-10-25 22:02

¦^´_ 5# sjgau

doevent ·|­°§Cµ{¦¡®Ä²v¶Ü¡H
§@ªÌ: sjgau    ®É¶¡: 2013-10-26 03:56

¦^´_ 6# sunnyso


    ·|¡A¦ý¬O ¤£±o¤£ ¥[¤W¥h¡C
¦]¬°¡A¦pªG¤£¥[¤W¥h¡ACPU ´N³Q§Úªºµ{¦¡µ¹ÅQ¦û¡A
§Ú»Ý­nªº DDE³ø»ù¡A´N¤£·|¶i¨Ó¡A
©Ò¥H¡A»Ý­n ­pºâ¥L delay µ{¦¡ªº¼vÅT¦³¦h¤j¡H
§@ªÌ: sunnyso    ®É¶¡: 2013-10-26 08:11

¦^´_ 7# sjgau


    ¦³¦ó¤èªk­pºâ®Ä²v®t©O¡H
§@ªÌ: sjgau    ®É¶¡: 2013-10-26 09:49

¦^´_ 8# sunnyso

§Ú¦³¡A½Ðµ¹§Ú ¤@ÂIÂI®É¶¡¡A
½ÐºCºC¦a ±K¤ÁÆ[¹î ³o­Ó ªOªO
§@ªÌ: sunnyso    ®É¶¡: 2013-10-26 10:04

¦^´_ 9# sjgau

·PÁÂ
§@ªÌ: sjgau    ®É¶¡: 2013-10-26 12:32

irnd(s1, 100, 999, c);

¨Æ¥ý¡AÅý rv1= rv2= c

doEvents() ·|¶Ç¦^¤@­Ó­È --> RV2
if (rv2 <> rv1 )  ªí¥Ü doEvents() ¤w¸g§â¨Æ±¡°µ§¹¡A
¦Ó¥B¶Ç¦^ ¤@­Ó ·sªº­È
§@ªÌ: sjgau    ®É¶¡: 2013-10-27 04:36

Timer ¨ç¼Æ½d¨Ò
¥»½d¨Ò¨Ï¥Î Timer ¨ç¼Æ¨ÓÅýÀ³¥Îµ{¦¡¼È°±¡C½d¨Ò¤¤¦b¼È°±®É¨Ï¥Î¨ì DoEvents ¨Ó±Nµ{¦¡°õ¦æÅvÅýµ¹¨ä¥¦µ{¦¡¡C

Dim PauseTime, Start, Finish, TotalTime
If (MsgBox("Press Yes to pause for 5 seconds", 4)) = vbYes Then
    PauseTime = 5    ' ³]©w¼È°±®É¶¡¡C
    Start = Timer    ' ³]©w¶}©l¼È°±ªº®É¨è¡C
    Do While Timer < Start + PauseTime
        DoEvents    ' ±Nµ{¦¡°õ¦æÅvÅýµ¹¨ä¥¦µ{¦¡¡C
    Loop
    Finish = Timer    ' Ū¨ú²{¦b®É¨è¡C
    TotalTime = Finish - Start    ' ­pºâ¼È°±©Ò¸g¹Lªº®É¶¡¡C
    MsgBox "Paused for " & TotalTime & " seconds"
Else
    End
End If
§@ªÌ: handsometrowa    ®É¶¡: 2013-10-31 13:54

¦^´_ 12# sjgau


   ªO¤j

¨ä¹êDoevents ³o­Ó¨ç¼Æ

¯à¤£¯à¥Î¥Õ¸Ü¤å¸ÑÄÀ¤@¤U©O@@" §Ú¤§«e¤]¦³¥h¬d³o­Ó¨ç¼Æªº¸ê®Æ

¥i¯à¤£¬O¬ì¯Z¥X¥ÍªºÃö«Y§a

»¡¯uªº ¥Lªº²¾¥æµ{¦¡¨ì©³¬O¤°»ò·N«äªü@@?
§@ªÌ: sjgau    ®É¶¡: 2013-10-31 19:35

¦^´_ 13# handsometrowa


    Excel ªº VBA «ÜÅQ¹D¡C
§A¥i¥H·Q¹³¡A¹q¸£ªº CPU ´N¹³¬O À\ÆUªº waiter,
¥u¦³ ¤@­Ó water, ¥L­n ¦P®É¦ø­Ô ¤Q´X®àªº «È¤H¡A
CPU ´N¦b¤£¦Pªº®à¤l ¤¤¶¡¡AÂà°Ú Â઺¡C
¦ý¬O¡AVBA ´N«ÜÅQ¹Dªº ¹J¨ì °j°éªº®É­Ô¡A´N¸j¦í CPU
¤£Åý¥L Âà¥x¡A©âªÅ¥h ¦ø­Ô §Oªº ®à¤l¡A
¾É­P ¡A³s ¦Û¤v¤]µLªk §¹¦¨¨Æ±¡¡C

Ä´¦p»¡¡A§Úªº °j°é¡A¬O­n ºÊ´ú ¬O§_¦³ DDEªº³ø»ù¸ê®Æªñ¨Ó¡C
CPU ¦pªG¤£Åý¥X¥h ¡A«ù¦æ DDE ³ø»ùªº°Ê§@¡A
§Úªº °j°é¡A¦A«ç»òÂà¡A¤]°»´ú¤£¨ì ·s¶i¨Óªº ³ø»ù¸ê®Æ¡C

µ²ªG¤j®a³£ ¤£­n ¿ì¨Æ¡C

DoEvents §âCPU ªº®É¶¡¡AÂàÅý¥X¥h¡A¦ø­Ô §O®àªº«È¤H¡C
³o¼Ë¤l¡A¤j®a³£¥i¥H°Ê¤F¡A¦h¦nªº ¨Æ±¡¡C
«Ü¹³¬O ª±¸õ´Ñ¡C§AÄÒ§Ú¡A§Ú¾×§A¡A¤j®a³£°Ê¤£¤F
§@ªÌ: ui123    ®É¶¡: 2013-11-7 19:39

ÁÂÁ¤j¤jªº¸Ñ»¡
§@ªÌ: sjgau    ®É¶¡: 2013-11-7 21:11

¦^´_ 15# ui123


    ÁÂÁ §Aªº ÁÂÁÂ
´N ·P¤ß£°




Åwªï¥úÁ{ ³Â»¶®a±Ú°Q½×ª©ª© (http://forum.twbts.com/)