如何在VB.NET的另一個班級中使用我的班級

是的，這是一個非常糟糕的問題，可能是任何一個體面的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

來源

2011-07-08 Odinulf

不知道從何處取得這個詞的InputBox？看看頂部的課程，你稱之爲「Form2」。這有幫助嗎？ – Smudge202

假設您的代碼是從您的實際代碼複製/粘貼的，您的課程名爲Form2而不是InputBox。更改您的自定義窗體上的類聲明爲Public Class InputBox

如果上面的代碼片段只是有一個錯字，那可能會改變某些內容。

來源

2011-07-08 13:39:33 AllenG

-1

InputBox不是一個類型或類別，這是一個方法。例如...

InputBox("The Title", "The prompt") 'and any other parameters you need

來源

2011-07-08 13:39:04 MGZero

真的，但並沒有幫助解決OPs問題 –

是的，應該有可能讀完整個問題而不是最後一個禮貌大聲笑。 – MGZero

那麼，根據你發佈的代碼，你的「的InputBox」被稱爲窗體2（類名稱）。改變它到InputBox，它應該工作。

來源

2011-07-08 13:39:17

這不起作用。 InputBox已被VB.NET用作方法名稱。它需要改變成別的東西。 – MGZero

你的代碼讀取：

Dim a As New InputBox

但類被定義爲：

Public Class Form2

也就是說你的代碼應該閱讀：

Dim as New Form2()

注意：此外，你可以在你的類重命名爲： Public Class Form2

到

Public Class InputBox

來源

2011-07-08 13:39:51

謝謝了。我從互聯網上獲得了代碼，並忘記更改代碼以適合代碼。咄。 – Odinulf

如何在VB.NET的另一個班級中使用我的班級

回答

相關問題