DoEventsã‚’ã†ã¾ã使ㆠ| Sunvisor Lab.Accessã®VBAã§æ™‚é–“ã®ã‹ã‹ã‚‹å‡¦ç†ã‚’ã™ã‚‹ã¨ï¼Œç”»é¢ãŒæ›´æ–°ã•ã‚Œãªã‹ã£ãŸã‚Šï¼ŒWindowsã‹ã‚‰ï¼ˆå¿œç”ãªã—）扱ã„ã•ã‚ŒãŸã‚Šã—ã¾ã™ã€‚ãれをã•ã‘ã‚‹ãŸã‚ã«ã¯ï¼ŒDoEventsを呼ã³å‡ºã™ã®ã§ã™ãŒï¼Œãªã«ã‚‚考ãˆãšã«å‘¼ã³å‡ºã™ã¨ãƒ‘フォーマンスãŒå¤§å¹…ã«ä½Žä¸‹ã—ã¾ã™ã€‚ã“れをãªã‚“ã¨ã‹ã—よã†ã¨ã„ã†è©¦ã¿ã§ã™ã€‚ ã¾ãšã¯ã€ŒDoEventsをパフォーマンスを下ã’ãšã«ä½¿ã†æ–¹æ³•ã€ã¨ã„ã†ãƒšãƒ¼ã‚¸ã«ç´¹ä»‹ã•ã‚Œã¦ã„ãŸæ‰‹æ³•ã‚’使ã£ã¦ã¿ã¾ã™ã€‚ Private Declare Function GetInputState Lib "USER32" () As Long Public Sub CheckEvents() If GetInputState() Then DoEvents End If End Sub ã“ã‚Œã¯ï¼ŒGetInputState APIをコールã—ã¦ï¼Œå¾…æ©Ÿä¸ã®ã‚¤ãƒ™ãƒ³ãƒˆãŒã‚ã‚Œã°DoEventsをコールã™ã‚‹ã¨ã„ã†ã‚‚ã®ã§ã™ã€‚ã“ã®CheckE
{{#tags}}- {{label}}
{{/tags}}