如何使用系统的提示框声音,就是MESSAGE的vbCritical,vbExclamation,vbInformation的声音

解决方案 »

  1.   

    Declare Function MessageBeep Lib "user32" Alias "MessageBeep" (ByVal uType As Long) As LonguType:
    0xffffffff         标准响铃 
    MB_ICONASTERISK    系统星号声(System asterisk sound) 
    MB_ICONEXCLAMATION 系统惊叹声 
    MB_ICONHAND        系统指针声(System hand sound) 
    MB_ICONQUESTION    系统提问声