VB versteckten button auf Formular
Ich bin mit VB zu suchen, einige Daten aus einer text-Datei, und füllen Sie anschließend in excel. Es funktioniert. Das problem ist xl.visible=true macht die excel-Tabelle sichtbar sein, einmal & dann werden die Werte halten, die auf das Auffüllen. Ich will verstecken Sie die excel-Daten bis Bevölkerung ist abgeschlossen. dann machen Sie eine Schaltfläche auf dem Formular angezeigt werden, die, wenn darauf geklickt wird, wird die Anzeige der excel-Datei.
Bitte helfen. Hier ist der code, den ich verwende:
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
- Ich denke, diese Reihenfolge könnte es vermeiden
Dim xlApp As Excel.Application
xlApp.Visible = False
Set xlApp = CreateObject("Excel.Application")
- Auf tun, als Sie sagte: der folgende Fehler wurde beobachtet : Warnung 1 der Variable 'xlApp' verwendet wird, bevor es wurde ein Wert zugewiesen. Eine null-Verweis-Ausnahme führen könnte, zur Laufzeit.
- Warnung keine Fehler
- Wird es immer die gleiche Anzahl von Dateien, die hochgeladen wird oder ein unbekannter Höhe?
Du musst angemeldet sein, um einen Kommentar abzugeben.
Verwenden Button2 zu tun, die Excel arbeiten, sondern entfernen Sie die Zeile:
xl.Visible = True
Setzen Sie einen button auf Ihrem Formular namens Button3 (oder named wie auch immer); set Button3 Eigenschaft Visible = False. Klicken Sie dann unten Button2 click-Ereignis setzen
Button3.Visible = True
Nach Ihrem Button2 geklickt wird haben Sie Button3 sichtbar. In Button3 click-Ereignis setzen
xl.Visible = True
Diese Arbeit zu machen, müssen Sie erklären, "xl" als Modul-oder class-variable. Setzen Sie einfach
Dim xl as object
über Ihre sub, und entfernen Sie die Dim in Ihrem sub haben; dass wird es tun.Einfache Art
button1.Hide()
wenn Sie klicken Sie auf die Schaltfläche oder etwas anderes wird es dann verstecken Sie die-Taste. Hoffe, das hilft Ihnen heraus.Erinnern,
button1.Hide()
bezieht sich auf die erste Schaltfläche - wenn es die 2. Taste es wärebutton2.hide()
usw.