VB隐藏在窗体上的按钮

时间:2013-07-18 10:37:06

标签: vb.net winforms

我正在使用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

2 个答案:

答案 0 :(得分:0)

使用Button2执行Excel工作,但删除行:xl.Visible = True

在表单上放一个名为Button3的按钮(或命名为any);设置Button3属性Visible = False。然后在Button2点击事件的底部放置Button3.Visible = True

点击Button2后,您将看到Button3。在Button3中单击事件放置xl.Visible = True

要使其工作,您需要将“xl”声明为模块或类变量。只需将Dim xl as object放在您的潜艇上方,然后移除潜艇内的Dim;这样做。

答案 1 :(得分:0)

简单类型button1.Hide()当您点击按钮或其他内容时,它将隐藏按钮。希望这会帮助你。

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