遇到两个问题：1是命名管道通讯，客户端连接上了，但写数据“无效句柄”错误；2是用API创建的控件，改变字体颜色和背景颜色起不到作用。

[舉杯邀明月]

最近捣鼓一些小程序玩，遇到两个问题，查了不少资料、也试了几种不同的方案，始终搞不定。
发到论坛来，看有没有高手能指点迷津。　

1.　命名管道通讯
　　主要是想用在两个进程之间传递一些比较多的数据、并要“实时”。
　　当然，这个也可以通过“窗口消息”这个渠道解决，但有时候因“权限”问题：
低权限进程不能直接向高权限进程发消息。（虽然这个仍然有解决方法，还是想“多掌握一条路”）
　　所以，最近查了一下资料，尝试用命名管道方式通讯。
　　结果，遇到的问题，是客户端连接服务器端成功后，“写数据”失败！查到的错误原因是“句柄无效”！
　　网上的代码，都是C++的，反复对照了一下代码，感觉自己写的没有错误。
　　开始以为是“在VB6中用多线程实现”有问题，然后改代码，测试“单线程”的，但问题依旧。　
　　因此发来请大家看看，能不能找到原因。

2.　API创建标准控件
　　VB6自带的标准控件，以及一些常用的第三方控件，总有时候不能满足某些特定的“高标准要求”，因此有时候想要自己
创建控件来处理。
　　不过遇到一个比较诡异的问题，就是“文本颜色”、“背景颜色”不受控制！！！
　　文本的颜色，似乎总是以系统的“窗口文本”颜色为准；
　　至于“背景颜色”，就更怪了：它似乎是“透明”效果的！直接看到的是在它下面的对象的颜色！
　　用API对它操作的“返回结果”，看起来都是“操作成功”了的，但却总是没有起到作用。
　　当然这个“背景颜色”，目前能想到的方法就是用“容器控件”来控制。但是我来这儿提问的目的，不是要这种思路，
只是想看能不能找到直接控制相应对象的方法（难道要HOOK、自绘？），用“容器”绕个弯子，有时候也不合适。


　　等下我把我写的测试代码打包上传到资源，有兴趣的朋友请下载来测试一下。
　　下载链接只有等会儿在楼下贴出来了。

资源下载链接（自然是不需要资源分的）：
http://download.csdn.net/detail/chen8013/9778762

[赵4老师]

以下是使用OleView.exe的File、View TypeLib...查看DBLIST32.OCX的截图：

[笨狗先飞]

引用 27 楼 Chen8013 的回复:

[quote=引用 26 楼 zhao4zhong1 的回复:] WinAPIOverride http://jacquelin.potier.free.fr/winapioverride32/

你看清楚我问的是什么没！！！ 现在不是“如何实现重叠操作”的问题，要实现也得用“多线程”。 开始的代码就是设计的多线程，但“写数据”时不成功。 我想是不是“VB6中多线程”有什么问题造成影响，于是改成“单线程操作”（VB6程序的“标准模式”）来测试， 结果还是无法写入数据到管道中。 现在的关键是：客户端连接命名管道时，连接成功，返回了一个“有效的句柄”！！ 　但是在之后，客户端用这个句柄向管道中写数据，操作失败！！！ 　查错误代码，原因是“句柄无效”！ 　前段时间看了网上一大堆的例子，都是C++的代码， 　但“用法”都是用的连接时CreateFile()返回的句柄，向里面写数据（或读数据）。 问题的重点：　我的代码中，同样是用那个句柄写数据，为什么会失败？？？ [/quote] 我觉得那个server有问题，你先做个死等的试试，程序死在那里就死在那里，反正那个死机是假的，有数据来的时候它会有输出的。

[笨狗先飞]

有doevents的代码不是好代码

[赵4老师]

引用 41 楼 bakw 的回复:

有doevents的代码不是好代码

有doevents+队列化和池化或防/可重入所有事件处理过程的代码是好代码。

[笨狗先飞]

引用 42 楼 zhao4zhong1 的回复:

[quote=引用 41 楼 bakw 的回复:] 有doevents的代码不是好代码

有doevents+队列化和池化或防/可重入所有事件处理过程的代码是好代码。 [/quote] 队列化和池化之后根本不需要doevents了，timer控件就很好用了。

[舉杯邀明月]

引用 40 楼 bakw 的回复:

. . . . . . . . . 我觉得那个server有问题，你先做个死等的试试，程序死在那里就死在那里，反正那个死机是假的，有数据来的时候它会有输出的。

明显 WaitForMultipleObjects() 是否“死等”，跟客户端能否成功写入数据无关吧！ 刚才我把服务器端改成“死等”的，编译成 EXE程序运行， 客户端连接时，它“响应”了一次，然后又卡死在那儿。 接着，客户端写数据，仍然操作失败。

[笨狗先飞]

[笨狗先飞]

第一题搞定

‘建个模块
Public Const GWL_WNDPROC = (-4)
Public Const TRANSPARENT = 1
Public Const WM_CTLCOLOREDIT = &H133

Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Public Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Public Declare Function SetTextColor Lib "gdi32" (ByVal hdc As Long, ByVal crColor As Long) As Long
Public Declare Function SetBkMode Lib "gdi32" (ByVal hdc As Long, ByVal nBkMode As Long) As Long
Public Declare Function CreateSolidBrush Lib "gdi32" (ByVal crColor As Long) As Long

Public lpPrevWndProc As Long

Public Function WindowProc(ByVal hw As Long, ByVal uMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
    Select Case uMsg
        Case WM_CTLCOLOREDIT '在这个消息中设置字体颜色
            SetBkMode wParam, TRANSPARENT
            SetTextColor wParam, vbGreen '文本色
            WindowProc = CreateSolidBrush(vbRed) '背景色
        Case Else
            WindowProc = CallWindowProc(lpPrevWndProc, hw, uMsg, wParam, lParam)
    End Select
End Function

窗体代码里加一行

   If (0& = mlhWnd) Then
      picCont.Cls
      picCont.Print "创建控件出错。"
   Else
      lpPrevWndProc = SetWindowLong(picCont.hWnd, GWL_WNDPROC, AddressOf WindowProc) '<----Bingo
      Call SetWindowText(mlhWnd, StrPtr("Abc 123-XYZ"))
      ' List控件添加文本：
      'Call SendMessage(mlhWnd, &H180&, 0&, StrPtr("列表项文本"))
   End If

[笨狗先飞]

第二题。。。。。。

[笨狗先飞]

CreateSolidBrush没有释放，解决的不完美，时间久了可能有内存溢出的问题。楼主自己解决吧

[舉杯邀明月]

看来是应该HOOK消息处理才行。

引用 23 楼 bakw 的回复:

CreateSolidBrush没有释放，解决的不完美，时间久了可能有内存溢出的问题。楼主自己解决吧

解决这个释放问题，是So Easy 啊。

[舉杯邀明月]

引用 23 楼 bakw 的回复:

CreateSolidBrush没有释放，解决的不完美，时间久了可能有内存溢出的问题。楼主自己解决吧

刚注意到，是SetWindowLong(picCont.hWnd, . . . . .) 不是HOOK的被创建的那个啊。

[赵4老师]

WinAPIOverride http://jacquelin.potier.free.fr/winapioverride32/

[无·法]

太高深，没接触过这些东西。。 围观下你们俩好了

[赵4老师]

引用 43 楼 bakw 的回复:

[quote=引用 42 楼 zhao4zhong1 的回复:] [quote=引用 41 楼 bakw 的回复:] 有doevents的代码不是好代码

有doevents+队列化和池化或防/可重入所有事件处理过程的代码是好代码。 [/quote] 队列化和池化之后根本不需要doevents了，timer控件就很好用了。[/quote]

[舉杯邀明月]

[CHRL]

引用 28 楼 Chen8013 的回复:

[quote=引用 23 楼 bakw 的回复:] CreateSolidBrush没有释放，解决的不完美，时间久了可能有内存溢出的问题。楼主自己解决吧

先前进行了大量的测试，字体颜色、背景颜色问题算是解决了。已经弄清楚如何使用了。 看来那个HOOK，只能HOOK它的“容器”的，HOOK控件自身是不行的。 不知道你们有谁知道 ListBox（API创建的，不是VB6的那个），有没有让它“一次性清空所有项目”的方法？ 目前我把那个WM_xxxxx 的消息看了个遍，只找到逐条删除的消息。 这样的操作，如果项目数稍多一点，就十分费时。[/quote] CB_RESETCONTENT 删除所有的项

[CHRL]

引用 48 楼 CHRL 的回复:

[quote=引用 28 楼 Chen8013 的回复:] [quote=引用 23 楼 bakw 的回复:] CreateSolidBrush没有释放，解决的不完美，时间久了可能有内存溢出的问题。楼主自己解决吧

先前进行了大量的测试，字体颜色、背景颜色问题算是解决了。已经弄清楚如何使用了。 看来那个HOOK，只能HOOK它的“容器”的，HOOK控件自身是不行的。 不知道你们有谁知道 ListBox（API创建的，不是VB6的那个），有没有让它“一次性清空所有项目”的方法？ 目前我把那个WM_xxxxx 的消息看了个遍，只找到逐条删除的消息。 这样的操作，如果项目数稍多一点，就十分费时。[/quote] 'ListBox SendMessageLongA m_lHwnd, LB_RESETCONTENT, 0&, 0& 'Combo SendMessageLongA m_lHwnd, CB_RESETCONTENT, 0&, 0&

[舉杯邀明月]

引用 49 楼 CHRL 的回复:

. . . . . . 'ListBox SendMessageLongA m_lHwnd, LB_RESETCONTENT, 0&, 0& 'Combo SendMessageLongA m_lHwnd, CB_RESETCONTENT, 0&, 0&

原来是它呀………… 谢谢指点！　

[舉杯邀明月]

这个帖子挂了这么久了，是时候结贴了。 命名管道通讯那个没搞定，也有一段时间没管它了，反正这只是“偶然想到”这个，试一下而已。 那个“句柄无效”的问题，还真有点想不通为什么会那样………… 网上一大堆的C++代码，感觉我的用法跟他们的也并没有“实质区别”的呀； 　　为什么C++的都可以，而我的VB代码就行不通呢！