码迷,mamicode.com
首页 > Windows程序 > 详细

VSTO避免多次加载窗体

时间:2020-06-09 09:38:29      阅读:70      评论:0      收藏:0      [点我收藏+]

标签:als   cep   一个   windows   end   演示   string   send   load   

使用VSTO编写Excel的加载项时,可动态地增加用户窗体,也可调用使用手工方法添加的Windows窗体。
Windows窗体其实是一个“类”,所以,调用手工添加的已经存在的Windows窗体时,使用这样的代码:

Dim frm_演示 as 手工窗体 ‘这个手工窗体是通过“项目-添加窗体(Windows窗体)",将新添加的窗体命名为”手工窗体“。

定义 frm_演示 变量时,要将放在“类内”、“过程外”,即“类的私有变量”。

然后判断是否实例化来确定是否需要 “frm_演示 = New 手工窗体”。

在程序运行过程中关闭窗体,会引发Disposal,此时,frm_演示 仍处于实例化状态,所以,"frm_演示 Is Nothing" 为“真”,但“frm_演示.Show()"时出错。

所以,要通过“Try”来处理。

为避免多次打开,可通过  Application.OpenForms.Count 来判断。当然,窗体数量超过1个时,要通过窗体名字等来判断。这里不赘述。

Imports Microsoft.Office.Tools.Ribbon

Public Class Excel加载项
  Dim frm_演示 As手工 窗体
  dim str_Msg as String‘用于查看错误代码.
  Private Sub 演示_Load(ByVal sender As System.Object, ByVal e As RibbonUIEventArgs) Handles MyBase.Load
    If frm_演示 Is Nothing Then
      frm_演示 = New 手工窗体
    Else
      Try
        frm_演示.Show()
      Catch ex As Exception
        str_Msg = String.Format("{0}ralsed exception :{1}", ex.Source, ex.Message)
        MsgBox(str_Msg)‘看一下错误代码是什么。
        frm_演示 = New 手工窗体
      End Try
    End If
    ‘通过判断打工的窗体数来决定是否要使用 “frm_演示.Show()"。
    If Application.OpenForms.Count = 0 Then
      frm_演示.Show()

    End If  

  End Sub

VSTO避免多次加载窗体

标签:als   cep   一个   windows   end   演示   string   send   load   

原文地址:https://www.cnblogs.com/doctor-cao/p/13070155.html

(0)
(0)
   
举报
评论 一句话评论(0
登录后才能评论!
© 2014 mamicode.com 版权所有  联系我们:gaon5@hotmail.com
迷上了代码!