Question

Private Sub Button1_Click（ByVal sender As System.Object， ByVal e As System.EventArgs）处理Button1.Click

    With OpenFileDialog1
        .FileName = String.Empty
        .InitialDirectory = "C:\"
        .Title = "Open Excel File"
        .Filter = "Excel 97-2003|*.xls|Excel 2007|*.xlsx"
    End With
    Dim result As DialogResult = OpenFileDialog1.ShowDialog()
    If result = Windows.Form.DialogResult.OK Then
        Try
            TextBox1.Text = OpenFileDialog1.FileName
            GetExcelSheetNames(TextBox1.Text)
        Catch ex As Exception
            MsgBox("Error : " & ex.Message)
        End Try
    End If

End Sub

Answer 1

Public Class Form1
    Private loginLabel As String

    Public Sub New(ByVal loginParameter As String)
         InitializeComponent()

         Me.loginLabel = loginParameter

    End Sub
End Class

并以您的登录表单：

dim frm as new Form1(label.Text)

错误BC30456＆＃39;表格＆＃39;不是Windows＆＃39; Windows＆＃39;的成员。

1 个答案: