Property einer Form wird nicht angezeigt um es auszulesen

  • VB.NET

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von jan99.

    Property einer Form wird nicht angezeigt um es auszulesen

    Moin!

    ich habe eine Form mit folgendem Code:

    VB.NET-Quellcode

    1. Imports System.Windows.Forms
    3. Public Class frm_Verwaltung_Bausachen_Assi_Bezirk
    4. Const k_min_Letter As Integer = 10
    5. Private _Number As String = ""
    6. Public Property BsNummer As String
    7. Get
    8. Return _Number
    9. End Get
    10. Set(value As String)
    11. _Number = value
    12. End Set
    13. End Property
    14. Private Sub frm_Verwaltung_Bausachen_Assi_Bezirk_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    15. ZentralButtonControl()
    16. End Sub
    17. ''' <summary>
    18. ''' zentrale Schaltflächenüberwachung
    19. ''' </summary>
    20. Private Sub ZentralButtonControl()
    21. ' ggf. ausblenden des Bezeichnungsfeldes
    22. If chk_tmp.Checked = True Then
    23. txt_Bezeichnung.Text = ""
    24. txt_Bezeichnung.Enabled = False
    25. Else
    26. txt_Bezeichnung.Enabled = True
    27. End If
    29. Dim ButtonStatus As Boolean = True
    31. If txt_Bezeichnung.Text.Length < 4 Then ButtonStatus = False
    33. bt_generate.Enabled = ButtonStatus
    35. SetLableBezeichnung()
    36. End Sub
    37. Private Sub bt_generate_Click(sender As Object, e As EventArgs) Handles bt_generate.Click
    38. ' ermitteln der ersten freien Bezeichnung
    40. _Number = txt_NNNN.Text
    42. End Sub
    43. Private Sub SetLableBezeichnung()
    44. If chk_tmp.Checked = True Then
    45. lbl_Bezeichnung.Text = "Bezeichnung"
    46. Else
    47. lbl_Bezeichnung.Text = String.Format("Bezeichnung (min {0} Zeichen)", k_min_Letter.ToString)
    48. End If
    49. End Sub
    50. Private Sub txt_NNNN_TextChanged(sender As Object, e As EventArgs) Handles txt_NNNN.TextChanged
    51. ZentralButtonControl()
    52. End Sub
    54. Private Sub txt_Bezeichnung_TextChanged(sender As Object, e As EventArgs) Handles txt_Bezeichnung.TextChanged
    55. ZentralButtonControl()
    56. End Sub
    57. End Class


    Nun möchte ich

    VB.NET-Quellcode

    1. Public Property BsNummer As String


    auslesen.

    VB.NET-Quellcode

    1. Dim f As New frm_Verwaltung_Bausachen_Assi_Projekt
    2. With f
    3. If .ShowDialog = DialogResult.OK Then
    4. ' txt_BSNummer.Text = ***** Hier ist der Fehler ******
    5. End If
    6. End With


    Diese Property wird mir nicht angezeigt - wie auch die Namen der Controls.

    Hat einer eine Idee ?

    Gruß Jan

Facebook
Telefonspende