¿Cómo agregar favoritos en Easy Language Browser?

--LZ, preste atención a establecer una base de datos y asígnele el nombre "Favoritos". La interfaz de configuración es como se muestra en la figura: simplemente imito la operación, el navegador está configurado con los botones o el contenido propios de LZ. Consulte mi código fuente para comprender el significado del código, no seré detallado. ¡El código funciona! ----

Código:

Versión 2

Biblioteca de soporte iext

.

.Variable de ensamblaje Recuento, entero

. Variable de ensamblaje Posición, número entero

.Subroutine_Button1_Clicked

.Si es verdadero (editbox1.content ≠ "" y editbox2.content ≠ "")

Abrir (ejecutar directorio () + "\ Favoritos.edb", , , , )

., , )

.Count Loop First (tomar Record Count () + 1, Count )

Saltar a (Contar)

.Si es verdadero (Cuadro de edición 2.content = leer ("URL"))

Cuadro de mensaje ("¡El marcador ya existe! " , 48, "Tiger >Número de registros tomados ())

Agregar registro vacío ()

Escribir ("nombre del marcador", cuadro de edición 1. contenido)

Escribir ("url", editbox2.content)

Posición = SuperListBox1.InsertTableEntry()

. InsertTableEntry (0, EditBox1.Content, , , )

SuperListBox1.Title (Posición, 1, EditBox2.Content)

Asignaciones sucesivas ("", EditBox1.Content, EditBox2.Content )

.Finalizar si es verdadero

.Fin del ciclo de conteo ()

Cerrar ()

Regresar ()

.End if true

Cuadro de mensaje ("¡Por favor, complete la información completa!", 48, "Tiger X @_@~")

.Subroutine__Launch Window_Created

Abrir (obtener el directorio en ejecución () + "\\ Favorites.edb", , , , , )

.Count Loop First (obtener el recuento de registros (), Count)

Saltar a (Contar)

Posición = SuperListBox1.InsertTableItem (0, Leer ("Nombre del marcador"), , , )

SuperListBox1.Title (Posición, 0 , Leer ("Nombre del marcador"))

SuperListBox1.Title (posición, 1, leer ("URL"))

Contar cola de bucle ()

Cerrar ()