Cómo utilizar la programación vb texto1 "entrada hacer" texto2 "entrada hacer" presione comando1 "agregar registro"

Simplemente, luego de salir del programa, el registro será eliminado, solo cópielo directamente al código del formulario:

Opción Explícita

Dim Col1 As New Collection

Atenuar Col2 como nueva colección

Subcomando privado1_Click() 'Agregar

Col1.Agregar texto1.Text

Col2.Agregar texto2 . Texto

End Sub

Private Sub Command2_Click() 'Traducción

Dim i

Text2.Text = ""

Para i = 1 a Col1.Count

Si Col1.Item(i) = Text1.Text Entonces

Text2.Text = Col2.Item(i)

Salir Sub

Finalizar si

Siguiente i

MsgBox Text1.Text amp; "¡Aún no grabado!"

Finalizar sub

Subcomando privado3_Click() 'Eliminar

Atenuar i

Text2.Text = ""

Para i = 1 A Col1.Count

Si Col1.Item(i) = Text1.Text Entonces

Col1.Remove (i)

Col2.Remove (i)< / p>

Texto1.Text = ""

Texto2.Text = ""

Salir Sub

Finalizar si

Siguiente i

MsgBox Text1.Text amp; "¡Aún no grabado!"

End Sub

'Si es ciento ochenta, guárdelo en txt Si hay decenas de miles, se almacenará en la base de datos (se recomienda buscar información sobre el acceso a vb ---------------------). --- ------------------

Sub privado Form_Load()

Dim str1

Dim grp() Como cadena

Si Dir(App.Path amp; "\trans.txt") lt;gt "" Entonces

Abra App.Path "\trans. .txt" para entrada como #1

Hacer mientras no sea EOF(1)

Entrada de línea #1, str1

Si str1 lt;gt; "" Entonces

grp = Split(str1, "|")

Col1.Add grp (0)

Col2.Add grp(1)

Finalizar si

Bucle

Cerrar 1

End If

End Sub

Sub privado Form_Unload(Cancelar como entero)

Si Col1.Count gt 0 Entonces

Dim i;

Abra App.Path & "\trans.txt" para obtener salida como #1

Para i = 1 a Col1.Count

Imprima #1, Col1 .Item(i) & "|" & Col2.Item(i)

Siguiente i

Cerrar 1

Finalizar si

Fin Sub