如何在 VB.NET 中的另一个类中使用我的类

Question

是的，这是一个非常糟糕的问题，可能任何一个像样的 VB.NET 程序员都应该知道这个问题。嗯，我是 VB.NET 新手，所以我需要一点帮助。

我已经创建了一个 Windows 窗体类和另一个窗体类，其代码是这样的：

Imports System.Windows.Forms

Public Class Form2

    Protected m_BlankValid As Boolean = True
    Protected m_ReturnText As String = ""

    Public Overloads Function ShowDialog( _
      ByVal TitleText As String, _
      ByVal PromptText As String, _
      ByVal DefaultText As String, _
      ByRef EnteredText As String, _
      ByVal BlankValid As Boolean) As System.Windows.Forms.DialogResult
        m_BlankValid = BlankValid
        Me.PromptLabel.Text = PromptText
        Me.Text = TitleText
        Me.Txt_TextEntry.Text = DefaultText
        Me.ShowDialog()
        EnteredText = m_ReturnText
        Return Me.DialogResult
    End Function

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
        If Me.Txt_TextEntry.Text = "" Then
            Me.OK_Btn.Enabled = m_BlankValid
        Else
            Me.OK_Btn.Enabled = True
        End If
    End Sub

    Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Me.DialogResult = System.Windows.Forms.DialogResult.OK
        m_ReturnText = Me.Txt_TextEntry.Text
        Me.Close()
    End Sub

    Private Sub Cancel_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
        m_ReturnText = ""
        Me.Close()
    End Sub
End Class

显然，我的设计中有一些图形。

要调用我的类，我想使用以下代码：

Dim TextReturned As String = ""
Dim a As New InputBox
If a.ShowDialog("The Title", "The Prompt", "Default", TextReturned, False) = Windows.Forms.DialogResult.Cancel Then
    ' Cancel Pressed
    Beep()
Else
    '
End If

我的错误是类型“InputBox”未定义。我怎样才能让它被定义呢？

谢谢，

奥丁努尔夫

Answer 1

假设上面的代码是从实际代码复制/粘贴的，您的类名为 Form2 而不是 InputBox。将自定义表单上的类声明更改为 Public Class InputBox

如果上面的代码片段只是有一个拼写错误，那可能会改变一些事情。

Answer 2

您的代码为：

Dim a As New InputBox，

但该类定义为：

Public Class Form2

这意味着您的代码应为：

Dim as New Form2()< /code>

注意：或者你可以将你的类重命名为：
公共类Form2

到

公共类InputBox

Answer 3

好吧，根据您发布的代码，您的“InputBox”被称为Form2（类名）。将其更改为InputBox，它应该可以工作。

Answer 4

InputBox 不是类型或类，而是方法。例如...

InputBox("The Title", "Theprompt") '以及您需要的任何其他参数