Excel vb.net用InputBox+Button代替RefEdit控件的问题

jsz241001

用Visual Studio2015开发一个Excel外接程序，先建一个名为Get_Range_Address的WinForm，由于vb.net没有RefEditt控件，采用一个按钮Button1（下图中黑色方框）和一个文本框TextBox1（下图中灰色框）组合的方法替代RefEdit获取Excel单元格区域的地址。键入以下代码：

Public Class Get_Range_Address
    Public xlapp As Microsoft.Office.Interop.Excel.Application
    Dim DataRange As Excel.Range
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        xlapp = Globals.ThisAddIn.Application
        DataRange = xlapp.InputBox("选择数据区域", "选择数据区域", "$A$1", Type:=8)
        TextBox1.Text = DataRange.Address
    End Sub
End Class

调试未出现问题。运行以后，出现以下WinForm：


单击按钮Button1，出现以下InputBox对话窗口：


鼠标选择Excel数据区域B24:E26，对话窗口如期出现所选区域的地址：


以上结果都符合预期。下面问题出现了：单击“确定”按钮以后，Excel表连同WinForm都被最小化到任务栏，必须点击任务栏中的Excel或WinForm图标，才能出现WinForm以及获取了单元格区域的文本框。
问题：是什么原因使得Excel工作表和WinForm最小化，如何避免最小化。谢谢。

wpxxsyzx

把你的窗体的topmost属性设为true

jsz241001

"把你的窗体的topmost属性设为true"。

太好了，一语中的，立竿见影，把项目中30多个窗体的Topmost属性设置成True，单击Button窗体不再最小化，多时无法解决的顽疾药到病除，欣喜之情，难以言表。真的非常感谢。

感谢之余，还想继续请教一个问题：以上的代码，是为了突出问题，摘取了项目代码中最核心的几句。实际上，在执行InputBox语句以前，还有隐藏窗体的Hide()语句，执行InputBox语句以后，还有显示窗体的Show()语句：

Public Class Get_Range_Address
    Public xlapp As Microsoft.Office.Interop.Excel.Application
    Dim DataRange As Excel.Range
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        xlapp = Globals.ThisAddIn.Application
        Hide()
        DataRange = xlapp.InputBox("选择数据区域", "选择数据区域", "$A$1", Type:=8)
        Show()
        TextBox1.Text = DataRange.Address        
    End Sub
End Class

加上Hide()和Show()语句，是为了执行InputBox语句时，暂时隐藏主窗体，只看到InputBox选择单元格区域的对话窗口，选择单元格区域完毕以后，主窗体重新出现。

如果删除Hide()和Show()语句，设置了Get_Range_Address窗体的topmost属性为true，窗体最小化的问题就解决了，如果放上这两个语句，窗体最小化的问题依然存在。

当然，删除Hide()和Show()语句，也没有实质性的问题，无非是运行时，主窗体Get_Range_Address和InputBox获取单元格区域的窗体同时出现，界面显得不是很简洁而已。如果既能隐藏和显示主窗体，又能防止窗体最小化，那是最理想的。

期盼再次赐教。

wpxxsyzx

没发现你所说的问题

jsz241001

谢谢回复。运行一下附件就就可以发现这个问题。

wpxxsyzx

你的版本高，我是2010

jsz241001

你的文件在vs2015中打开了。确实，加了Hide()和Show()以后，Form也不会最小化。
这就很奇怪了，代码都是一样的，为什么运行结果不一样。唯一的差别是：你是在ThisAddin_Startup模块里打开Form的，我是用Ribbon功能区菜单打开Form的，因为这是一个多模块的系统，必须这样做。
另一个奇怪现象是，我的项目第一次点击Button按钮时Excel工作表和Form会最小化，再次点击就不会最小化了。
多谢你热心指点，我要好好研究一下究竟是什么原因。如果找到了原因，我会发帖告知的。谢谢。

ljtao888

如何返回用户调整 后听单元格地址呢？