如何在VB.NET中的其他类中使用我的类

是的，这是一个非常糟糕的问题，可能是任何半体面的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”类型。我怎样才能使它被定义

谢谢

---

Odinulf

InputBox

不是一个类型或类，而是一个方法。例如

---

InputBox（“标题”、“提示”）和您需要的任何其他参数

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

假设您上面的代码是从实际代码复制/粘贴的，则您的类命名为

Form2

而不是

InputBox

。将自定义表单上的类声明更改为

Public class InputBox

如果上面的代码片段只是输入错误，那么可能会有所改变。

您的代码如下：

Dim a As New InputBox

但该类定义为：

公共类表单2

这意味着您的代码应为：

Dim为新表单2（）

注意：您也可以将类重命名为：

公共类表单2

到

---

公共类InputBox

不确定InputBox这个词是从哪里来的？看看你的班级，你把它叫做“Form2”。那有用吗？非常感谢。我从网上弄到了密码，忘了把密码改成合适的。这不行。InputBox已被VB.NET用作方法名。它需要换成别的东西。是的，应该读整个问题，而不是最后一句话。