我已经把WINDOWS的窗口的背景颜色都改成了绿色。
我现在用VB写的软件,Text等控件都是绿色的了。阿里旺旺 系统设置 里面 也没有 修改聊天框背景颜色 的地方。
现在已知聊天框不同位置的控件类名:
WWUI.SuperListView         聊天对象列表
Internet Explorer_Server   显示聊天内容
RichEditComponent           打字的地方求高手帮我想想!

解决方案 »

  1.   

    ret   =   SendMessage(richtextbox1.hwnd,   EM_SETIMECOLOR, 0,udtCOMPCOLOR)你需要做的就是想办法找到你要修改背景的控件的句柄而非类名。
      

  2.   

    '  Private Declare Function SendMessage Lib "user32" Alias _
    '    "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal _
    '    wParam As Long, lParam As Any) As Long
    '
    ' Private Type COMPCOLOR
    '                    crText   As Long
    '                    crBackground   As Long
    '                    dwEffects   As Long
    '                End Type
    '
    '
    '
    'Private Sub Form_Load()
    '                Dim udtCOMPCOLOR  As COMPCOLOR
    '                  With udtCOMPCOLOR                        '
    '                        .crText = RGB(255, 255, 0)
    '                        '   背景色青色指定
    '                        .crBackground = RGB(0, 0, 255)
    '                        '   文字効果指定
    '                        .dwEffects = 0
    '                End With
    '                Dim ret    As Long
    '                ret = SendMessage(132264, EM_SETIMECOLOR, 0, udtCOMPCOLOR)
    'End Sub没有反应啊
      

  3.   

    哈哈,你真幽默
    他肯定是测试不行,再注释,然后用别的代码测试啊。我测试了
    SendMessage(hwnd, EM_SETBKGNDCOLOR, 0, ByVal TranslateColor(longColor))
    这一句只对RichEditComponent 这个控件有效
    对Internet Explorer_Server (显示聊天内容) 无效
    这个控件好像有一个背景图,颜色很淡