閱讀950 返回首頁    go 阿裏雲 go 技術社區[雲棲]

evb 裏麵支持DoEvents

evb   裏麵不支持DoEvents,我在www.devbuzz.com裏麵找到了答案  
  'Listing   1   -   DoEventsCE  
  Declare   Function   PeekMessage   Lib   "coredll.dll"   Alias   "PeekMessageW"   _  
  (ByVal   MSG   As   String,   ByVal   hwnd   As   Long,   ByVal   wMsgFilterMin   As   Integer,   _  
  ByVal   wMsgFilterMax   As   Integer,   ByVal   wRemoveMsg   As   Integer)   As   Boolean  
  Declare   Function   TranslateMessage   Lib   "coredll.dll"   (ByVal   MSG   As   String)   As   Boolean  
   
  Declare   Function   DispatchMessage   Lib   "coredll.dll"   Alias   "DispatchMessageW"   _  
  (ByVal   MSG   As   String)   As   Boolean  
   
  Public   Const   PM_REMOVE   =   1  
  'Enof   Listing   1   -   DoEventsCE  
   
  Public   Sub   DoEventsCE()  
      Dim   MSG   As   String  
      MSG   =   String(18,   Chr(0))  
      '   Get   message   from   queue   and   dispatch   it  
      If   PeekMessage(MSG,   0,   0,   0,   PM_REMOVE)   Then  
          TranslateMessage   (MSG)  
          DispatchMessage   (MSG)  
      End   If  
  End   Sub    

最後更新：2017-04-02 00:06:24

  上一篇：go 你還在用if else嗎？
  下一篇：go 英特爾揭示四核心筆記本電腦處理器藍圖