VSTO实现Excel子窗体模式。实现VBA子窗体效果

1059526347

    在VSTO开发中时常使用 winfrom窗体用于用户互交，为了避免点击单元格时导致窗体被excel覆盖，最简单的方式就是设置 form.TopMost 属性，使窗体置于最上层。但是这种方式不但会置于excel的上层，同时也会覆盖其他应用的窗体，体验略差。
    在vba中使用窗体，是以excel的子窗体模式显示的（子窗体仅在excel的上层，不会覆盖其他应用，并且子窗体会随着excel最小化而隐藏）
    早期我在E速中实现了这种效果。


下面截取E速中实现的代码片段

1.实现 IWin32Window 接口

''' <summary>
''' 父窗口为Excel
''' </summary>
Class ParentForm

    Implements IWin32Window
    Sub New(Handle As Integer)
        Me.Handle = New IntPtr(Handle)
    End Sub
    Public ReadOnly Property Handle As IntPtr Implements IWin32Window.Handle

End Class





2. 添加Form拓展函数

    ''' <summary>
    ''' 以Excel形式子窗体显示
    ''' </summary>
    <Extension>
    Public Sub ExShow(form As Form)
        form.Show(New ParentForm(Ex.Hwnd))
    End Sub



3.以子窗体模式显示
    Private Sub Button55_Click(sender As Object, e As RibbonControlEventArgs) Handles Button55.Click
        Dim A As New 关于
        A.ExShow()
    End Sub





    引用原文：http://yshblog.com/blog/129

1059526347

不好意思，因为代码是从自己项目复制过来的，忘记标注 Ex就是  Globals.ThisAddIn.Application了，4楼的做法是对的，不过我不想每次都 new一下 ParentForm ，所以就加了一个拓展函数，直接 ExShow()调用了。

eq7200

引用原文的网址打不开了，你的代码又不全。

1059526347

eq7200 发表于 2020-12-15 13:35
引用原文的网址打不开了，你的代码又不全。

原文是打不开了，因为作者是在博客里写的，好像是域名到期了

EH2003

简化一下上面代码：

1.实现 IWin32Window 接口（不变）
先建 一个类
Class ParentForm
    Implements IWin32Window
    Sub New(Handle As Integer)
        Me.Handle = New IntPtr(Handle)
    End Sub
    Public ReadOnly Property Handle As IntPtr Implements IWin32Window.Handle
End Class

2.建一个模块
Module Module1
    Public Ex As Excel.Application = Globals.ThisAddIn.Application
End Module

3.调用窗体时
Dim a As New FormTest 'FormTest为窗体名
a.Show(New ParentForm(Ex.Hwnd))

搞定..............................

一执成念

4楼大哥，！！！！！！

1059526347

EH2003 发表于 2020-12-16 21:35
简化一下上面代码：

1.实现 IWin32Window 接口（不变）

嗯嗯，不好意思，直接复制的代码，忘记标明 Ex 是Globals.ThisAddIn.Application ，我最早是也是这样操作的，不过每次都 new比较麻烦，所以就加了一个拓展函数

zanjero

谢谢分享，收藏了

gaolzhen

不错,不错 真心不错

shenjianrong163

谢谢！能介绍下怎样更改窗体标题栏的颜色吗？