copyright 1999 - 2014 by heinz prelle - hannover  - lenbachstraße 42 - www.visual-basic5.de | impressum
VB .Net - Wert aus Dictionary zurückgeben
'
Option Explicit On
Option Strict On

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
            Handles Button1.Click
        With Me.Label1
            .Text = d.ElementAt(0).ToString()
            With Me.Label2
                .Text = d("rtf").ToString()
                With Me.Label3
                    Dim Item As String = String.Empty
                    If d.TryGetValue("bmp", Item) Then
                        .Text = Item
                    End If
                End With
            End With
        End With
    End Sub

    Private d As Dictionary(Of String, String) = New Dictionary(Of String, String)

    Private Sub InitDictionary()
        With d
            .Add("bmp", "paint.exe")
            .Add("txt", "notepad.exe")
            .Add("rtf", "wordpad.exe")
        End With
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) _
            Handles MyBase.Load
        With Me
            .Text = "Retrieving value from key in dictionary"
            .Button1.Text = "Test"
            .CenterToScreen()
            .InitDictionary()
        End With
        For Each Items As Control In Me.Controls
            If TypeOf Items Is Label Then
                Items.Text = "#"
            End If
        Next
    End Sub

End Class
Sourcecode Visual Basic