我已经把WINDOWS的窗口的背景颜色都改成了绿色。
我现在用VB写的软件,Text等控件都是绿色的了。阿里旺旺 系统设置 里面 也没有 修改聊天框背景颜色 的地方。
现在已知聊天框不同位置的控件类名:
WWUI.SuperListView 聊天对象列表
Internet Explorer_Server 显示聊天内容
RichEditComponent 打字的地方求高手帮我想想!
我现在用VB写的软件,Text等控件都是绿色的了。阿里旺旺 系统设置 里面 也没有 修改聊天框背景颜色 的地方。
现在已知聊天框不同位置的控件类名:
WWUI.SuperListView 聊天对象列表
Internet Explorer_Server 显示聊天内容
RichEditComponent 打字的地方求高手帮我想想!
解决方案 »
- 关于VB对图片文件的读写
- 在线高分求教一个telnet程序的制作!!!!!!50分!
- 关于Split函数和停止程序执行的问题(每问40分,回答上来后我会为本贴加分)
- VB(Help)
- VB中用什么函数自动打开IE啊?并且要转到某指定的网页地址上去!
- 河北李艳洁请进=====还在北京吗。
- 谁会用MSXML2.DOMDocument,指导一下小弟!(100分)
- 关于SQL “无效使用NULL”的正确解决方法。
- regread 键值带“\”
- 紧急求解;ListView中不同行有不同颜色如何实现?(不用消息处理,只用SetBKColor或其他方法,300分!!!!!
- VB 如何透明PICTUREBOX?
- 【经验共享】关于“运行时错误430:类不支持自动化或不支持期望接口”问题的解决
' "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没有反应啊
他肯定是测试不行,再注释,然后用别的代码测试啊。我测试了
SendMessage(hwnd, EM_SETBKGNDCOLOR, 0, ByVal TranslateColor(longColor))
这一句只对RichEditComponent 这个控件有效
对Internet Explorer_Server (显示聊天内容) 无效
这个控件好像有一个背景图,颜色很淡