Inhalt der Combobox verschwindet

  • VB.NET

Es gibt 10 Antworten in diesem Thema. Der letzte Beitrag () ist von rade23.

    Inhalt der Combobox verschwindet

    Hallo zusammen,
    ganz untenstehender Code funktioniert soweit(bin noch nicht allzu lange dabei, und bin für jeden Verbesserungsvorschlag dankbar!)!
    Jetzt möchte ich aber aus:

    VB.NET-Quellcode

    1. 'Nachweise-Label füllen:
    2. lbl_VM.Text = cmb_Verbindungsmittel.SelectedItem.ToString & ", " & cmb_Stahlsorte.SelectedItem.ToString
    3. End Sub
    4. End Class

    folgendes machen:

    VB.NET-Quellcode

    1. 'Nachweise-Label füllen:
    2. lbl_VM.Text = cmb_Verbindungsmittel.SelectedItem.ToString & ", " & cmb_Stahlsorte.SelectedItem.ToString & ", d = " & cmb_Stabdübel_Durchmesser.SelectedItem.ToString
    3. End Sub
    4. End Class


    Dann füllt sich die cmb_Stabdübel_Durchmesser gar nicht mehr und die cmb_Stahlsorte zeigt nur noch das angewählte Item.
    Wenn ich nun die cmb_Verbindungsmittel-Auswahl ändere, kommt folgender Fehler: NullReferenceException wurde nicht behandelt.

    Was mache ich falsch, bzw. wo liegt mein Denkfehler?!

    Ich hoffe, irgendjemand hier hat die Muße, sich das mal anzugucken...

    Hier der komplette Code:

    VB.NET-Quellcode

    1. Imports System.IO
    2. Public Class frm_Laschenanschluss1
    3. Private spalten As String()
    4. 'Hier wird der pfad ermittelt, wo Projekt liegt:
    5. Private startpfad As String = Application.StartupPath.ToString
    6. 'Statt 9 Zeichen abzuziehen,könnte ich auch die Textdateien in den StartupPath (Pfad mit der .exe) legen - ist vielleicht besser...:
    7. Private pfad As String = startpfad.Substring(0, startpfad.Length - 9)
    8. Private MaterialartReader As String() = File.ReadAllLines(Path.Combine(pfad, "Materialart.txt"))
    9. Private LHReader As String() = File.ReadAllLines(pfad & "LH.txt")
    10. Private NHReader As String() = File.ReadAllLines(pfad & "NH.txt")
    11. Private BSHReader As String() = File.ReadAllLines(pfad & "BSH.txt")
    12. Private VMReader As String() = File.ReadAllLines(Path.Combine(pfad, "Verbindungsmittel.txt"))
    13. Private StabDübelStahlgüteReader As String() = File.ReadAllLines(pfad & "Stahlsorte-Stabdübel.txt")
    14. Private StabDübelDurchmesserReader As String() = File.ReadAllLines(pfad & "Stabdübel-Durchmesser.txt")
    15. Private BolzenklasseReader As String() = File.ReadAllLines(pfad & "Festigkeit-Bolzen-Passbolzen-Gewindestangen.txt")
    16. Private Sub frm_Laschenanschluss1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    17. 'Startfenster maximieren
    18. Me.WindowState = FormWindowState.Maximized
    19. 'panel an Formulargrösse anpassen
    20. pnl_links.Height = Me.Height - MenuStrip1.Height - 38 '38 wegen des Formularrahmens
    21. 'comboboxen füllen und Wert anzeigen:
    22. cmb_NKL.SelectedIndex = 1
    23. cmb_KLED.SelectedIndex = 4
    24. For Each line As String In MaterialartReader
    25. cmb_Materialart1.Items.Add(line)
    26. cmb_Materialart2.Items.Add(line)
    27. Next
    28. cmb_Materialart1.SelectedIndex = 2
    29. cmb_Materialart2.SelectedIndex = 1
    30. For Each line As String In VMReader
    31. cmb_Verbindungsmittel.Items.Add(line)
    32. Next
    33. cmb_Verbindungsmittel.SelectedIndex = 1
    35. End Sub
    37. Private Sub frm_Laschenanschluss1_SizeChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.SizeChanged
    38. 'panel an Formulargrösse anpassen
    39. pnl_links.Height = Me.Height - MenuStrip1.Height - 38 '38 wegen des Formularrahmens
    40. End Sub
    42. Private Sub chk_VM1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chk_VM1.CheckedChanged
    43. 'Verbindungsmittel-Checkboxen immer gleiche Anwahl:
    44. chk_VM2.Checked = chk_VM1.Checked
    45. End Sub
    47. Private Sub chk_VM2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chk_VM2.CheckedChanged
    48. 'Verbindungsmittel-Checkboxen immer gleiche Anwahl:
    49. chk_VM1.Checked = chk_VM2.Checked
    50. End Sub
    52. Private Sub cmb_Materialart1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmb_Materialart1.SelectedIndexChanged
    53. 'Festigkeitsklasse-Combobox füllen und Wert anzeigen:
    54. cmb_Festigkeitsklasse1.Items.Clear()
    55. Select Case cmb_Materialart1.SelectedItem
    56. Case "Nadelholz"
    57. For Each line As String In NHReader
    58. spalten = line.Split(vbTab)
    59. If Not spalten(0) = "Name" Then
    60. cmb_Festigkeitsklasse1.Items.Add(spalten(0))
    61. cmb_Festigkeitsklasse1.SelectedIndex = 0
    62. End If
    63. Next
    64. Case "Laubholz"
    65. For Each line As String In LHReader
    66. spalten = line.Split(vbTab)
    67. If Not spalten(0) = "Name" Then
    68. cmb_Festigkeitsklasse1.Items.Add(spalten(0))
    69. cmb_Festigkeitsklasse1.SelectedIndex = 0
    70. End If
    71. Next
    72. Case "BSH"
    73. For Each line As String In BSHReader
    74. spalten = line.Split(vbTab)
    75. If Not spalten(0) = "Name" Then
    76. cmb_Festigkeitsklasse1.Items.Add(spalten(0))
    77. cmb_Festigkeitsklasse1.SelectedIndex = 0
    78. End If
    79. Next
    80. End Select
    81. 'Nachweise-Label füllen:
    82. lbl_Materialart1.Text = cmb_Materialart1.SelectedItem.ToString & ", " & cmb_Festigkeitsklasse1.SelectedItem.ToString
    83. End Sub
    85. Private Sub cmb_Materialart2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmb_Materialart2.SelectedIndexChanged
    86. 'Festigkeitsklasse-Combobox füllen und Wert anzeigen:
    87. cmb_Festigkeitsklasse2.Items.Clear()
    88. Select Case cmb_Materialart2.SelectedItem
    89. Case "Nadelholz"
    90. For Each line As String In NHReader
    91. spalten = line.Split(vbTab)
    92. If Not spalten(0) = "Name" Then
    93. cmb_Festigkeitsklasse2.Items.Add(spalten(0))
    94. cmb_Festigkeitsklasse2.SelectedIndex = 0
    95. End If
    96. Next
    97. Case "Laubholz"
    98. For Each line As String In LHReader
    99. spalten = line.Split(vbTab)
    100. If Not spalten(0) = "Name" Then
    101. cmb_Festigkeitsklasse2.Items.Add(spalten(0))
    102. cmb_Festigkeitsklasse2.SelectedIndex = 0
    103. End If
    104. Next
    105. Case "BSH"
    106. For Each line As String In BSHReader
    107. spalten = line.Split(vbTab)
    108. If Not spalten(0) = "Name" Then
    109. cmb_Festigkeitsklasse2.Items.Add(spalten(0))
    110. cmb_Festigkeitsklasse2.SelectedIndex = 0
    111. End If
    112. Next
    113. End Select
    114. 'Nachweise-Label füllen:
    115. lbl_Materialart2.Text = cmb_Materialart2.SelectedItem.ToString & ", " & cmb_Festigkeitsklasse2.SelectedItem.ToString
    116. End Sub
    118. Private Sub cmb_Verbindungsmittel_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmb_Verbindungsmittel.SelectedIndexChanged
    119. 'Stahlsorte-Combobox und Durchmesser-Combobox füllen und Wert anzeigen:
    120. cmb_Stahlsorte.Items.Clear()
    121. cmb_Stabdübel_Durchmesser.Items.Clear()
    122. Select Case cmb_Verbindungsmittel.SelectedItem
    123. Case "Passbolzen"
    124. For Each line As String In BolzenklasseReader
    125. spalten = line.Split(vbTab)
    126. If Not spalten(0) = "Klasse" Then
    127. cmb_Stahlsorte.Items.Add(spalten(0))
    128. cmb_Stahlsorte.SelectedIndex = 0
    129. End If
    130. Next
    131. For Each line As String In StabDübelDurchmesserReader
    132. If Not line.ToString = "Durchmesser" Then
    133. cmb_Stabdübel_Durchmesser.Items.Add(line)
    134. cmb_Stabdübel_Durchmesser.SelectedIndex = 0
    135. End If
    136. Next
    137. Case "Stabdübel"
    138. For Each line As String In StabDübelStahlgüteReader
    139. spalten = line.Split(vbTab)
    140. If Not spalten(0) = "Stahlsorte" Then
    141. cmb_Stahlsorte.Items.Add(spalten(0))
    142. cmb_Stahlsorte.SelectedIndex = 0
    143. End If
    144. Next
    145. For Each line As String In StabDübelDurchmesserReader
    146. If Not line.ToString = "Durchmesser" Then
    147. cmb_Stabdübel_Durchmesser.Items.Add(line)
    148. cmb_Stabdübel_Durchmesser.SelectedIndex = 0
    149. End If
    150. Next
    151. Case "Gewindestangen"
    152. For Each line As String In BolzenklasseReader
    153. spalten = line.Split(vbTab)
    154. If Not spalten(0) = "Klasse" Then
    155. If spalten(4) = "Ja" Then
    156. cmb_Stahlsorte.Items.Add(spalten(0))
    157. cmb_Stahlsorte.SelectedIndex = 0
    158. End If
    159. End If
    160. Next
    161. For Each line As String In StabDübelDurchmesserReader
    162. If Not line.ToString = "Durchmesser" Then
    163. cmb_Stabdübel_Durchmesser.Items.Add(line)
    164. cmb_Stabdübel_Durchmesser.SelectedIndex = 0
    165. End If
    166. Next
    167. End Select
    168. 'Nachweise-Label füllen:
    169. lbl_VM.Text = cmb_Verbindungsmittel.SelectedItem.ToString & ", " & cmb_Stahlsorte.SelectedItem.ToString
    170. End Sub
    172. Private Sub cmb_Stahlsorte_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmb_Stahlsorte.SelectedIndexChanged
    173. 'f_uk-Textbox füllen:
    174. txt_fuk.Clear()
    175. Select Case cmb_Verbindungsmittel.SelectedItem.ToString
    176. Case "Passbolzen"
    177. For Each line As String In BolzenklasseReader
    178. spalten = line.Split(vbTab)
    179. If spalten(0) = cmb_Stahlsorte.SelectedItem.ToString Then
    180. txt_fuk.Text = spalten(1)
    181. End If
    182. Next
    183. Case "Stabdübel"
    184. For Each line As String In StabDübelStahlgüteReader
    185. spalten = line.Split(vbTab)
    186. Select Case cmb_Stahlsorte.SelectedItem.ToString
    187. Case "benutzerdefiniert"
    188. txt_fuk.Text = ""
    189. txt_fuk.Focus()
    190. Case Else
    191. If spalten(0) = cmb_Stahlsorte.SelectedItem.ToString Then
    192. txt_fuk.Text = spalten(1)
    193. End If
    194. End Select
    195. Next
    196. Case "Gewindestangen"
    197. For Each line As String In BolzenklasseReader
    198. spalten = line.Split(vbTab)
    199. If spalten(0) = cmb_Stahlsorte.SelectedItem.ToString Then
    200. txt_fuk.Text = spalten(1)
    201. End If
    202. Next
    203. End Select
    204. 'Nachweise-Label füllen:
    205. lbl_VM.Text = cmb_Verbindungsmittel.SelectedItem.ToString & ", " & cmb_Stahlsorte.SelectedItem.ToString
    206. End Sub
    208. End Class

    Fehler: NullReferenceException wurde nicht behandelt.
    in der Zeile

    VB.NET-Quellcode

    1. 'Nachweise-Label füllen:
    2. lbl_VM.Text = cmb_Verbindungsmittel.SelectedItem.ToString & ", " & cmb_Stahlsorte.SelectedItem.ToString & ", d = " & cmb_Stabdübel_Durchmesser.SelectedItem.ToString
    3. End Sub
    4. End Class

    Hi Leute,

    ich hab das Problem jetzt gelöst...einfach die cmb_Stabdübel_Durchmesser in ein Extra-Label...

    VB.NET-Quellcode

    1. Private Sub cmb_Stabdübel_Durchmesser_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmb_Stabdübel_Durchmesser.SelectedIndexChanged
    2. Label59.Text = ", d = " & cmb_Stabdübel_Durchmesser.SelectedItem.ToString & " mm"
    3. Label59.Location = New Point(lbl_VM.Location.X + lbl_VM.Width, lbl_VM.Location.Y)
    4. End Sub


    Trotzdem danke

    In folgendem Beispiel wird gezeigt, wie vorher geprüft wird.

    VB.NET-Quellcode

    1. Public Class Form1
    3. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    5. If (Me.ComboBox1.SelectedItem IsNot Nothing) Then
    7. MessageBox.Show(CStr(Me.ComboBox1.SelectedItem))
    9. End If
    11. End Sub
    13. End Class

Facebook
Telefonspende