<?xml version="1.0" encoding="utf-8"?>
<CodeSnippets xmlns="http://schemas.microsoft.com/VisualStudio/2005/CodeSnippet">
  <CodeSnippet Format="1.0.0">
    <Header>
      <Title>Crear una colección con clave con un tipo de elemento.</Title>
      <Author>Microsoft Corporation</Author>
      <Description>Crea un diccionario para que contenga los tipos específicos de elementos indexados por clave.</Description>
      <Shortcut>colCreateKey</Shortcut>
    </Header>
    <Snippet>
      <Imports>
        <Import>
          <Namespace>Microsoft.VisualBasic</Namespace>
        </Import>
        <Import>
          <Namespace>System.Collections.Generic</Namespace>
        </Import>
        <Import>
          <Namespace>System.Collections</Namespace>
        </Import>
      </Imports>
      <Declarations>
        <Literal>
          <ID>storageVar</ID>
          <ToolTip>Reemplazar por un identificador para el almacenamiento de seguridad.</ToolTip>
          <Default>stateCaps</Default>
        </Literal>
        <Literal>
          <ID>keyType</ID>
          <ToolTip>Reemplazar por el tipo de claves de la colección. </ToolTip>
          <Default>String</Default>
        </Literal>
		<Literal>
			<ID>itemType</ID>
			<ToolTip>Reemplazar por el tipo de elemento que contiene la colección. </ToolTip>
			<Default>String</Default>
		</Literal>
	<Literal>
          <ID>keyValue1</ID>
          <ToolTip>Reemplazar por la clave para el primer elemento. </ToolTip>
          <Default>"WA"</Default>
        </Literal>
        <Literal>
          <ID>keyValue2</ID>
          <ToolTip>Reemplazar por la clave para el segundo elemento. </ToolTip>
          <Default>"NM"</Default>
        </Literal>
	<Literal>
          <ID>value1</ID>
          <ToolTip>Reemplazar por el valor del primer elemento. </ToolTip>
          <Default>"Olympia"</Default>
        </Literal>
	<Literal>
          <ID>value2</ID>
          <ToolTip>Reemplazar por el valor del segundo elemento. </ToolTip>
          <Default>"Santa Fe"</Default>
        </Literal>
      </Declarations>
      <Code Language="VB" Kind="method body"><![CDATA[' Backing storage -- a generic dictionary
Dim $storageVar$ As New Dictionary(Of $keyType$, $itemType$)

' Add items to the dictionary
$storageVar$.Add( $keyValue1$ , $value1$)
$storageVar$.Add( $keyValue2$ , $value2$)]]></Code>
    </Snippet>
  </CodeSnippet>
</CodeSnippets>
