自认是软件开发的大牛，没想到被个小问题折磨了两天

scamboby

      大牛？ 虽然有点吹牛，但本人自认还是功底深厚的，早在2002年就做过外挂开发，某国产网游从分析其可执行程序汇编代码到
分析反汇编其加密函数，拦截数据包，分析其动作格式意义，到最后成功开发出全脱机外挂，包括脚本解释器开发，全由本人一手包办。没有俺 不会的开发工具,开发语言，不会的学两天就会了，当然c,c++是俺的本行
    对于excel，word，vba本人不屑一顾的，最近有单位要求俺帮他们开发一个基于excel上的应用，突击学习了两天,客户要求，完全不显示excel界面。
    首先碰到的一个问题就是如果隐藏Microsoft excel标题栏，整了两天，终于搞定了，其实很简单的，只是俺 不知道捷径而已，现在不敢藏私，说一下解决问题的过程。
     首先，我是用vb 开发基于excel的，我就想在vb里面控制excel窗口。
     用vc的spy++查看后，知道excel主窗口类是XLMAIN, 包含Sheet的窗口类是EXCEL7.
    然后用windowsAPI 的FindWindow可以得到这两个窗口的hwnd, 再通过SetWindowText函数就可以设置Excel窗口标题栏了，
因为Excel7类的窗口是XLmain的子窗口，所以得到xlMain的句柄后，需要用EnumChildWindow扁历其子窗口得到Excel7的句柄，
其中EnumChildWindow中回调函数的代码如下：
    Public Function EnumChildProc(ByVal lhWnd As Long, ByVal lParam As Long) As Long
         Dim RetVal As Long
         Dim WinClassBuf As String * 255, WinTitleBuf As String * 255
         Dim WinClass As String, WinTitle As String
         Dim WinRect As RECT
         Dim WinWidth As Long, WinHeight As Long
        Dim ta As Boolean
        Dim style As Integer
        Dim curStyle As Long
         RetVal = GetClassName(lhWnd, WinClassBuf, 255)
         WinClass = Trim(WinClassBuf)  ' remove extra Nulls & spaces
         RetVal = GetWindowText(lhWnd, WinTitleBuf, 255)
         WinTitle = Trim(WinTitleBuf)
         ChildCount = ChildCount + 1
         ' see the Windows Class and Title for each Child Window enumerated
         Debug.Print "   Child Class = "; WinClass; ", Title = "; WinTitle
         ' You can find any type of Window by searching for its WinClass
         If InStr(WinClass, "EXCEL7") <> 0 Then   ' TextBox Window
           ta = SetWindowText(lhWnd, "新标题栏")
           
           EnumChildProc = False
         Else
            EnumChildProc = True
         End If
      End Function
回调函数就是扁历子窗口时函数会将子窗口句柄传递到回调函数，再调用执行回调函数。
主程序示意代码如下：
    Dim xlApp As Excel.Application
   Dim xlBook As Excel.Workbook
   Dim eHwnd As Long
   Dim tHwnd As Long
   Dim lParam As Long


   Dim xlSheet As Excel.Worksheet

   
   Set xlApp = New Excel.Application
   xlApp.Visible = True
       xlApp.Workbooks.Open "c:\prj\test.xlsm"
       eHwnd = FindWindow("XLMAIN", xlApp.Caption)
       tHwnd = EnumChildWindows(eHwnd, AddressOf EnumChildProc, lParam)
在VB工程中调用后发现，窗口标题栏设置了，却始终不能显示，用spy++查看确实标题改变了，看到microsoft 用了另外的方法在显示标题栏上的字串，而不是简单的作为WindowsTitle在处理。
后来打开VBE，在VBE里写了下面两句，成功解决了，就是这么简单
       xlApp.Caption = "test"
       xlApp.ActiveWindow.Caption = "TestTile"


总结：Excel其实功能应用很复杂，不象以前想象的哪么简单

zm0115

先谢谢你的分享，我只看，不说话。

liuguansky

楼主是什么意思呢？
就为了教我们这三个API函数？

dudebad

没有俺 不会的开发工具,开发语言，不会的学两天就会了

牛人啊！！！

dudebad

隐藏菜单栏：
Application.ExecuteExcel4Macro "show.toolbar(""ribbon"",false)"

再到选项那去滚动条，标签，状态栏，这样就不像EXCEL界面了