表单上的VB隐藏按钮答案

【问题标题】：VB hidden button on form表单上的VB隐藏按钮
【发布时间】：2013-07-18 10:37:06
【问题描述】：

我正在使用 VB 从文本文件中搜索一些数据，然后填充到 excel 中。它正在工作。问题是 xl.visible=true 使 Excel 工作表立即可见，然后值继续填充。我想隐藏 excel 直到数据填充完成。然后在表单上出现一个按钮，单击该按钮将显示excel文件。

请帮忙。这是我正在使用的代码：

 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

    ' create an excel instance
    Dim xl = Microsoft.VisualBasic.CreateObject("Excel.Application")
    xl.Visible = False
    Dim wb = xl.Workbooks.Add()
    Dim sheet = wb.ActiveSheet

    ' find lines starting with any whitepace followed by MTV or MTB and capture
    ' the text after =
    Dim pattern = "(?<=\s*(MTV).*=).*"

    Dim i = 1
    Dim arg = {Microsoft.VisualBasic.ControlChars.CrLf, Microsoft.VisualBasic.ControlChars.Lf}


    If RichTextBox3.Text = "" Then
        MsgBox("No input. What will I process??")

        Else
        Timer1.Start()
            For Each line In File.ReadLines(RichTextBox3.Text)
                Dim match = Regex.Match(line, pattern)
                ' check each line and fill sheet

            If match.Success Then
                sheet.Cells(i, 1).Value = match.Value
                i += 1
            End If
        Next
    End If

    xl.Visible = True


End Sub

【问题讨论】：

我认为这个序列可以避免它Dim xlApp As Excel.ApplicationxlApp.Visible = FalseSet xlApp = CreateObject("Excel.Application")
@mehow 按照您所说的进行操作，观察到以下错误：警告 1 变量“xlApp”在被赋值之前被使用。运行时可能会导致空引用异常。
是否总是有相同数量的文件被上传或未知数量？

标签： vb.net winforms

【解决方案1】：

使用 Button2 执行 Excel 工作，但删除以下行：xl.Visible = True

在您的表单上放置一个名为 Button3（或其他名称）的按钮；设置 Button3 属性 Visible = False。然后在Button2的底部点击事件放Button3.Visible = True

在您的 Button2 被点击后，您将看到 Button3。在 Button3 点击事件中放入xl.Visible = True

要完成这项工作，您需要将“xl”声明为模块或类变量。只需将Dim xl as object 放在您的潜艇上方并删除您的潜艇内的 Dim；这样就可以了。

【讨论】：

【解决方案2】：

简单类型button1.Hide() 当您单击按钮或其他内容时，它将隐藏该按钮。希望对您有所帮助。

请记住，button1.Hide() 指的是第一个按钮 - 如果是第二个按钮，它将是 button2.hide()，等等。

【讨论】：