El código fuente de un subprograma VB~~~¡Ayúdame a comentar! ! ! ! ! ¡Puntuación más alta! ! ¡Esperando en línea! !

Private Sub Command1_Click()' Seleccione una imagen a través del cuadro de diálogo y cárguela en el cuadro de imagen de Imagen1.

CDlg. Nombre de archivo = " "

CDlg. MostrarOpen

Si CDlg. Nombre de archivo<& gt""Entonces

Imagen1. Imagen = LoadPicture(CDlg.Filename)

Terminará si...

Finalizar conector

Subcomando privado 2_Click()

Datos 1. 'Agregar un registro.

Conector final

Subcomando privado 3_Click()

Usar datos 1. Conjunto de registros

. Eliminar 'Elimina el registro.

. "MoveNext" mueve el puntero del registro al siguiente registro.

Si. Luego EOF. "MoveLast" EOF indica que la posición del registro actual está después del último registro del objeto Recordset.

Termina con...

Conector final

Subcomando privado 4_Click()

S oscuros como una cadena

Datos de uso 1. Conjunto de registros

S =. "Marcador" devuelve el marcador que identifica de forma única el registro actual en el objeto Recordset, o establece el registro actual del objeto Recordset en el registro identificado por un marcador válido.

. Buscar el primer texto4. texto

si. Entonces no compitas

MsgBox "Datos no encontrados"

. Bookmark = s

Termina si...

Termina con...

Finalizar conector

Subcomando privado 5_Click()

Dark s como una cadena

Usar datos 1. conjunto de registros

s =. Marcadores

. BuscarSiguiente. texto

si. Entonces no compitas

MsgBox "Datos no encontrados"

. Bookmark = s

Termina si...

Termina con...

Conector final

Subform_Load privado()

Datos 1. Nombre de la base de datos = aplicación. Caminos y caminos. "\MyData.mdb" se agrega a la ruta relativa de la base de datos MyData.mdb.

Conector final

Subetiqueta privada 2_Click()

Conector final