在窗口的属性能改变默认图标。
用API即时捕捉。

解决方案 »

  1.   

    同上,
    API,VB书上有。
    一定要句柄吗?用焦点转移,能解决吗?
      

  2.   

    哪个属性?是MOUSERICON吗?但只要将BORDERSTYLE设为NONE,就没用了。
    是哪个API函数?
    能告诉我吗?
      

  3.   

    1、右点项目窗口中你的项目,选“xxx property……”-->选“Make”-->选“Application”中的“Icon”……
    2、不是很明白你的意思,如果你是指该窗口的hWnd,则直接引用:form.hWnd
      

  4.   

    to nicefeather:
    谢了!我试试。2 是关闭窗口的句柄.不是form.hwnd。 就是窗体那右上角小小的“X”。如何捕获关闭窗体的东东?
      

  5.   

    1.你是说BorderStyle属性设为None,没有图标了?2.你是说BorderStyle属性设为None时不知道怎么关闭窗口吗?
      

  6.   

    To shines
    1、不是,但已解决了。谢谢各位。
    2、不是,我的意思像用VB的form中的Terminate事件一样,但是此事件,不管你如何操作,窗体总要关闭,我想实现:单击了关闭窗口(‘X’),但是窗体依旧存在于界面中。如何实现?
      

  7.   

    看这个例子:
    Private Sub Form_Unload(Cancel As Integer)
        Dim r As Integer
        r = MsgBox("  应用程序即将关闭..." + vbCrLf + vbCrLf + "  你的真的想现在退出吗?" _
            + vbCrLf + vbCrLf, vbInformation Or vbYesNoCancel, "退出...")
        If r = vbCancel Then
            '按下Cancel键
            Cancel = 1      '取消退出
        ElseIf r = vbYes Then
            '按下Yes键
            '相关处理.....
        ElseIf r = vbNo Then
            '按下No键
            '相关处理.....
        End If
    End Sub 
      

  8.   

    To NiceFeather and all:
        
         非常感谢各位!到此问题全部已解决,小弟在此再谢!
     我有个不请之问: 实现From_Unload事件的作用。请问如果改为用API调用,则用哪个API函数(具体的函数名)?
      

  9.   

    SendMessage form.hWnd , WM_CLOSE , 0& , 0&
      

  10.   

    NiceFeather,这个代码好像是我写的啊,一看风格就知道,我还说怎么这么熟悉呢,呵呵:))连连用两次VbCrLf都还在,这明显是我的风格:))