Collection Hash Table Example
Imports System Imports System.Collections.Generic Imports System.Collections Imports System.ComponentModel Imports System.Data Imports System.Drawing Imports System.Linq Imports System.Text Imports System.Windows.Forms Namespace CollectionHashtableExample Public Partial Class Form1 Inherits Form Public Sub New() InitializeComponent() End Sub Private Sub button1_Click(ByVal sender As Object, ByVal e As EventArgs) Dim weeks As Hashtable = New Hashtable() weeks.Add("1", "SunDay") weeks.Add("2", "MonDay") weeks.Add("3", "TueDay") weeks.Add("4", "WedDay") weeks.Add("5", "ThuDay") weeks.Add("6", "FriDay") weeks.Add("7", "SatDay") MessageBox.Show(weeks("5").ToString()) If weeks.ContainsValue("TueDay") Then MessageBox.Show("Find") Else MessageBox.Show("Not find") End If weeks.Remove("3") For Each day As DictionaryEntry In weeks MessageBox.Show(day.Key & " - " & day.Value) Next If weeks.ContainsValue("TueDay") Then MessageBox.Show("Find") Else MessageBox.Show("Not find") End If End Sub End Class End Namespace
©Copyright 2016 All Rights Reserved LearnDotNetHome.com