|
|
|
|
|
|
Dim meineListe As List(Of KeyValuePair(Of String, ServerData))
meineListe = LeseServerDaten()
cboServer.DataSource = Nothing
cboServer.DataSource = list
cboServer.DisplayMember = "Value"
cboServer.ValueMember = "Key"
Private Sub cboServer_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboServer.SelectedIndexChanged
If (cboServer.SelectedIndex = -1) Then
Return
End If
Dim selectedItem = DirectCast(cboServer.SelectedItem, KeyValuePair(Of String, ServerData))
txtUser.Text = selectedItem.User
txtPassword.Text = selectedItem.Password
End Sub
|
|
|
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'############# XML Read for Select Combobox ##############
'################### Wert vorauswählen cbo Box ##############
Dim xml_doc As New XmlDocument
xml_doc.Load("serverlist.xml")
Dim SearchList As XmlNodeList = xml_doc.SelectNodes("employee/user/srv")
For Each Search As XmlNode In SearchList
cbologin.Items.Add(Search.InnerText)
Next
cbologin.SelectedIndex = 0
End Sub
Private Sub cbologin_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cbologin.SelectedIndexChanged
'Auslesen der Benutzer und password
Dim xmlFile As XDocument = New XDocument()
xmlFile = XDocument.Load("serverlist.xml")
Dim auswahlName As String = TryCast(cbologin.SelectedItem, String)
Dim user = (From xNode In xmlFile.Root.Descendants("user") Where xNode.Element("srv").Value = auswahlName Select xNode.Element("benutzer").Value).FirstOrDefault()
Dim pass = (From xNode In xmlFile.Root.Descendants("user") Where xNode.Element("srv").Value = auswahlName Select xNode.Element("pwd").Value).FirstOrDefault()
' Textboxen
txtuser.Text = user
txtpassword.Text = pass
End Sub
|
|
|
