请问高手：如何修改Msgbox左上角控制菜单的控制图标？

请问高手：如何修改Msgbox左上角控制菜单的控制图标？

解决方案 »

  1.   

    msgbox "X",vbCritical
    MsgBox "I", vbInformation
    有vb常量
      

  2.   

    vbCritical 16 关键消息 
    vbQuestion 32 警告询问 
    vbExclamation 48 警告消息 
    vbInformation 64 通知消息 
    vbDefaultButton1 0 第一个按钮是缺省的（缺省值） 
    vbDefaultButton2 256 第二个按钮是缺省的 
    vbDefaultButton3 512 第三个按钮是缺省的 
    vbDefaultButton4 768 第四个按钮是缺省的 
    vbApplicationModal 0 应用程序形态的消息框（缺省值） 
    vbSystemModal 4096 系统强制返回的消息框 
    vbMsgBoxHelpButton 16384 添加Help按钮到消息框 
    VbMsgBoxSetForeground 65536 指定消息框窗口作为前景窗口 
    vbMsgBoxRight 524288 文本是右对齐的 
    vbMsgBoxRtlReading 1048576 指定在希伯来语和阿拉伯语系统中，文本应当显示为从右到左读 
      

  3.   

    请参考下面的提示!!
    vbCritical 16 关键消息 
    vbQuestion 32 警告询问 
    vbExclamation 48 警告消息 
    vbInformation 64 通知消息 
    vbDefaultButton1 0 第一个按钮是缺省的（缺省值） 
    vbDefaultButton2 256 第二个按钮是缺省的 
    vbDefaultButton3 512 第三个按钮是缺省的 
    vbDefaultButton4 768 第四个按钮是缺省的 
    vbApplicationModal 0 应用程序形态的消息框（缺省值） 
    vbSystemModal 4096 系统强制返回的消息框 
    vbMsgBoxHelpButton 16384 添加Help按钮到消息框 
    VbMsgBoxSetForeground 65536 指定消息框窗口作为前景窗口 
    vbMsgBoxRight 524288 文本是右对齐的 
    vbMsgBoxRtlReading 1048576 指定在希伯来语和阿拉伯语系统中，文本应当显示为从右到左读 
      

  4.   

    最后一个参数就是，.NET代智能感知的，MessageBoxIcons
      

  5.   

    msgbox 在XP下都没有图标，自己做一个msgbox