在标准对话框中添加一个按钮后，如何使对话框处理按钮的消息？（恭请zyl910及其他高人出手！））

Question

不是放假，是在读书or上班ing
对Hook没什么研究，好像是捕获WM_MOUSEDOWN消息，忘了，帮你Up

Answer 1

不是WM_MOUSEDOWN，应该是WM_LBUTTONUP
你看这样做一个Hook好不好：
在模块中：
Option ExplicitPrivate 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
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As LongPrivate Const GWL_WNDPROC = (-4)
Private Const WM_SETFOCUS = &H7
Private Const WM_COMMAND = &H111
Private Const WM_LBUTTONDBLCLK = &H203
Private Const WM_LBUTTONDOWN = &H201Private OldProc&
Private mhWnd&
Private Const WM_LBUTTONUP = &H202'==================================================
'回调
Private Function WinProc&(ByVal hWnd&, ByVal wMsg&, _
                  ByVal wParam&, ByVal lParam&)
                  
    Select Case wMsg
        Case WM_LBUTTONUP
            MsgBox "You have clicked!" '这里，出来鼠标按下的消息
    End Select
    
    WinProc& = CallWindowProc(OldProc, hWnd, wMsg, wParam, lParam)
End Function
'==================================================
'==================================================
'挂钩
Sub HookCmd(ByVal nhWnd&)    If OldProc <> 0 Then Exit Sub
    
    mhWnd& = nhWnd&
    
    OldProc = SetWindowLong(nhWnd&, GWL_WNDPROC, AddressOf WinProc)End Sub
'==================================================
'==================================================
'脱钩
Sub UnHookCmd()    If OldProc = 0 Then Exit Sub    SetWindowLong mhWnd, GWL_WNDPROC, OldProc
    OldProc = 0
End Sub
'==================================================
在窗体中：
Private Sub Form_Load()
HookCmd CmdOk.hWnd
End SubPrivate Sub Form_Unload(Cancel As Integer)
UnHookCmd
End Sub
这里的CmdOk你可以换成任何你添加的按钮，只要有hWnd就可以了

Answer 2

多谢thirdapple(明珠有泪，暖玉生烟) ，哪第二问呢？

Answer 3

对标准对话框的修改，比如返回文件名之类的，看Zyl910写的程序：
http://3rdapple.51.net/MyOpenDlg.zip

Answer 4

在VB中动态添加可响应消息的控件    TechnoFantasy（原作）  
  
关键字     VB;控件;动态添加 
  
在VB中动态添加可响应消息的控件
    在VB编程中，经常要根据不同的情况在运行时向窗口中添加或者删除控件，而各个控件还要
响应各种事件。在一般的情况下是首先在设计时将控件加入到窗口中，在它们的各个事件中写入
代码，然后将它们的Visible属性设置为False。在运行时再使控件显示出来，但是这样既不方便
同时也因为在设计时在窗口中加入太多的控件而使得程序的运行速度变慢。下面我向大家介绍一
种通过编程在运行时动态添加和删除控件的方法
    首先建立一个工程文件，然后在Form1中加入以下的代码：
    Dim WithEvents cmdMyCommand As VB.CommandButton
    Option Explicit
    '在下面的定义中，程序定义了一个TextBox控件、一个CommandButton控件
    '和一个附加控件。
    Dim WithEvents ctlDynamic As VBControlExtender
    Dim WithEvents ctlText As VB.TextBox
    Dim WithEvents ctlCommand As VB.CommandButton
    Dim WithEvents ctlCommandDel As VB.CommandButton
    Private Sub ctlCommandDel_Click()
        Dim i As Integer
        
        '将控件的许可证信息删除
        Licenses.Remove "MSComctlLib.TreeCtrl"
        If MsgBox("是否删除所有控件", vbYesNo) = vbYes Then
        For i = 1 To Form1.Controls.Count
            Controls.Remove 0
        Next i
        End If
    End Sub
    Private Sub ctlCommand_Click()
        ctlText.Text = "你点击的是控制按钮"
    End Sub    Private Sub ctlDynamic_ObjectEvent(Info As EventInfo)
        '当点击树形控件的某一个条目后，在ctlText中显示条目。
        If Info.Name = "Click" Then
            ctlText.Text = "你点击的条目是 " & _
                    ctlDynamic.object.selecteditem.Text
        End If
    End Sub    Private Sub Form_Load()
        Dim i As Integer
        ' 将树形控件的许可证信息加入到许可证集合中
        ' 如果许可证已经存在，则会返回错误信息732
        Licenses.Add "MSComctlLib.TreeCtrl"        ' 在Form中动态的加入一个树形控件，如果你想树形控件建立到不同的
        '容器中，象一个Frame控件或者PictureBox控件，你只要将Controls.Add
        '函数的第三个参数改为特定的容器名就可以了
        Set ctlDynamic = Controls.Add("MSComctlLib.TreeCtrl", _
                        "myctl", Form1)
        '设置树形控件的位置和尺寸
        ctlDynamic.Move 1, 1, 2500, 3500
        '在树形控件中加入10个节点
        For i = 1 To 10
            ctlDynamic.object.nodes.Add Key:="Test" & Str(i), _
                    Text:="Test" & Str(i)
            ctlDynamic.object.nodes.Add Relative:="Test" & Str(i), _
                    Relationship:=4, Text:="TestChild" & Str(i)
        Next i
        '使树形控件可见
        ctlDynamic.Visible = True        '加入一个TextBox
        Set ctlText = Controls.Add("VB.TextBox", "ctlText1", Form1)
        '设置TextBox的位置和尺寸
        ctlText.Move (ctlDynamic.Left + ctlDynamic.Width + 50), _
                        1, 2500, 100
        '将textBox的背景色设置为蓝色并将前景色设置为白色
        ctlText.BackColor = vbBlue
        ctlText.ForeColor = vbWhite
        '使TextBox可见
        ctlText.Visible = True        '加入一个CommandButton
        Set ctlCommand = Controls.Add("VB.CommandButton", _
                        "ctlCommand1", Form1)
        '设置CommandButton的位置和尺寸
        ctlCommand.Move (ctlDynamic.Left + ctlDynamic.Width + 50), _
                        ctlText.Height + 50, 1500, 500
        '设置CommandButton的标题
        ctlCommand.Caption = "点击"
        '使CommandButton可见
        ctlCommand.Visible = True
        
        '建立一个删除按钮
        Set ctlCommandDel = Controls.Add("VB.CommandButton", _
                        "ctlCommand2", Form1)
        ctlCommandDel.Move (ctlDynamic.Left + ctlDynamic.Width + 50), _
                        ctlText.Height + 650, 1500, 500
        ctlCommandDel.Caption = "删除所有控件"
        ctlCommandDel.Visible = True
    End Sub
    运行上面的程序，可以看到程序在窗口中加入了三个VB标准控件：一个TextBox和两个
CommandButton还加入了一个扩展的ActiveX控件：树形控件。这些控件还可以响应消息，
点击树形控件中的项目或者“点击”按钮就可以在文本框中显示相应的内容。点击“删除
所有控件”按钮就可以删除加入的所有控件了。
    通过上面的程序可以看到，通过WithEvents可以定义带事件相应的控件，对于标准的VB
控件（例如CommandButton、TextBox等）可以通过VB.XXX来定义，其中XXX是控件的类的名称
，而对于扩展的ActiveX控件，可以通过VBControlExtender来定义，在装载扩展控件以前，
首先要使用Licenses对象加入控件的许可证信息。
    上面的程序在VB6，WIN98中文版下运行通过。http://www.applevb.com

Answer 5

我就是看的Zyl910写的程序：
http://3rdapple.51.net/MyOpenDlg.zip返回文件名可以，因为它是OPENFILENAME结构成员。
但是要返回对话框中OPENFILENAME结构以外的数据数据该如何做呢？

Answer 6

比如对话框中的一个CHECKBOX的值。

Answer 7

实际上还有一种更简单的方法：把按键放在PictureBox的上面http://cocgame.myetang.com/zyl910/gui/myopendlg2.zip

Answer 8

to:zyl910兄
你说的“再SubClassing住对话框的消息”是不是跟thirdapple兄所说的HOOK方法一样？

Answer 9

当然不是
“thirdapple兄所说的HOOK”实际上不是SubClassing、Hook
就是先前写的打开对话框的回调函数
SubClassing：子类，一种消息处理技术，特征是用SetWindowLong设置窗口的消息处理函数地址Hook：钩子，能对某个线程或整个系统的某些信息（消息、键盘、鼠标……）进行监视，特征是用SetWindowsHookEx挂上Hook

Answer 10

明白，但zyl910兄可能没有仔细看thirdapple兄提供的程序，里面用的就是SetWindowLong，应用的就是SubClass技术。
结贴了，最后zyl910兄能不能提供一个Hook的程序，则不胜感激。