Guten Abend,
ich sitze vor einer ComboBox die Ich als DropDown habe...
In der ComboBox habe Ich Daten hinterlegt.
Das Funktioniert auch...
Wenn Ich nun das Programm starte und tippe in die Box hinein, soll er nach eingabe der Enter-Taste oder Tab-Taste den Wert übernehmen und mir in einer Separaten Textbox den Wert ausgeben zum Test.
Allerdings scheitere Ich da
Es soll ein Postleitzahlen Tool werden welches mir folgend Werte liefern soll:
Postleitzahl
Ort
Bundesland
TNA (Vorwahl)
Dafür hab Ich auch eine CSV wo eben diese daten stehen, dass sind aber mehr als 10000 Datensätze
Jetzt dachte Ich mir, ich lese die CSV aus, und hinterlege die Inhalte in
Kann mir hierbei einer unter die Arme greifen?
Hier noch die XLS:
plz_de.xls
ich sitze vor einer ComboBox die Ich als DropDown habe...
In der ComboBox habe Ich Daten hinterlegt.
Das Funktioniert auch...
Wenn Ich nun das Programm starte und tippe in die Box hinein, soll er nach eingabe der Enter-Taste oder Tab-Taste den Wert übernehmen und mir in einer Separaten Textbox den Wert ausgeben zum Test.
Allerdings scheitere Ich da
Es soll ein Postleitzahlen Tool werden welches mir folgend Werte liefern soll:
Postleitzahl
Ort
Bundesland
TNA (Vorwahl)
Dafür hab Ich auch eine CSV wo eben diese daten stehen, dass sind aber mehr als 10000 Datensätze
Jetzt dachte Ich mir, ich lese die CSV aus, und hinterlege die Inhalte in
VB.NET-Quellcode
- Public Class Form1
- Dim plz() = {"99510", "99423", "99091", "01234"}
- Dim ort() = {"Apolda", "Weimar", "Erfurt", "Test"}
- Dim vWahl() = {"03644", "03643", "0361", "0123"}
- Dim bLand() = {"Thüringen", "Thüringen", "Thüringen", "Testland"}
- Dim zustand() = {"VKDG", "VKDG", "VKDG", "UnityMedia"}
- Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
- ComboBox1.Items.Clear()
- ComboBox1.Items.AddRange(plz)
- End Sub
- Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
- tb_ort.Text = ort(sender.selectedIndex)
- tb_bundesland.Text = bLand(sender.selectedIndex)
- tb_gehoert_zu.Text = zustand(sender.selectedIndex)
- tb_tna.Text = vWahl(sender.selectedIndex)
- End Sub
- End Class
Kann mir hierbei einer unter die Arme greifen?
Hier noch die XLS:
plz_de.xls