Estoy buscando urgentemente el código fuente del sistema de gestión de información estudiantil VB ACCESS (debe poder ejecutarse)

-------- ------ Apéndice Lista de programas y notas

Lista de programas 6.1

Opción explícita

Dim Fichero

leName As String 'Nombre de archivo, usado para abrir y guardar archivos

Dim UndoString As String 'Usado para deshacer operaciones

Dim UndoNew As String 'Se utiliza para deshacer operaciones

Private Sub ImgUndoDisable()

'Desactiva el botón "Deshacer"

UndoString = ""

UndoNew = ""

ImgUndo.ListImages("Paste").Picture

Else

ImgPaste.Enabled = False

ImgPaste.Picture = ImageDisable.Picture

Else

ImgPaste.Enabled = False

ImgPaste.Picture = ImageDisable.PicturePicture

End If

End Sub

Private Sub Check_ImgCutCopy()

'Establecer botones de cortar y copiar

If Text1.SelLength gt; 0 Entonces

ImgCut.ListImages("Cut").Picture

Else

ImgCut.Enabled = False

ImgCut.Picture = ImageDisable.ListImages("Cut").Checked = True

CoolBar1.Visible = True[NextPage].

Visible = True[NextPage]

End If

Form_Resize 'Reposicionar el control

End Sub

Private Sub Close_Click ()

Dim FileNum As Integer

Si Len(FileName) gt;0 Entonces

'Hay un nombre de archivo de entrada

FileNum = FreeFile( ) 'Obtener el número de archivos disponibles

Abrir nombre de archivo para salida como número de archivo 'Abrir el archivo de salida

'Si no se especifica ningún archivo, crear uno nuevo

Imprimir #FileNum, Text1.Text 'Texto de salida

Cerrar FileNum 'Cerrar archivo

Finalizar si

Text1.Text = ""

FileName = ""

End Sub

Sub privado ComboSize_Click()

Texto1.

Sub privado ComboFont_Click()

Text1.FontName = ComboFont.Text

End Sub

Sub privado Copy_Click()

Clipboard.SetTextSetText Text1.SelText 'Copiar texto a Portapapeles

End Sub

Private Sub Cut_Click()

Clipboard.SelText = "" 'Borrar texto seleccionado

End Sub

Sub privado DataTime_Click()

Text1.)

Text1.SelText = "" 'Borrar texto seleccionado

End Sub

Private Sub Edit_Click()

'Se activa cuando el programa muestra el submenú de edición

'Se activa antes de que el programa muestre el submenú de edición. >Si Text1.SelLength gt; 0 Entonces

'Hay texto seleccionado en el cuadro de texto

Cut.Enabled = True

Copy.Enabled = True

Eliminar.

Cut.Enabled = False

Copiar.Enabled = False

Delete.Enabled = False

Finalizar si

Si Len(Clipboard.GetText()) gt; 0 Entonces

'Hay datos de texto en el portapapeles

Paste.Enabled = True

Else

'No hay texto para pegar

Paste.Enabled = False

Else

'No hay texto para pegar.Enabled = False

End If

End Sub

Private Sub Exit_Click()

Descargarme

End Sub

Sub privado FindText_KeyPress(KeyAscii como entero)

Atenuar BeginPos mientras

Si KeyAscii = 13 entonces

BeginPos = InStr(1, Text1.Text, FindText.Text, vbTextCompare)

Si BeginPos gt 0 Entonces

Text1.SelStart = BeginPos - 1

Texto1 SelLength = Len(FindText.Text)

Fin si

Fin si

Fin Sub

Sub privado Fontcolor_Click( )

CommonDialog1.ShowColor

Text1.ForeColor = CommonDialog1.ColorDim MaxLen As Long

MaxLen = 32768 'Longitud máxima del archivo

CommonDialog1.ShowOpen ' Mostrar el cuadro de diálogo "Abrir archivo"

Si Len(CommonDialog1.FileName) gt 0 Entonces

'Ingrese el nombre del archivo

FileName = CommonDialog1.FileName 'Guardar nombre del archivo.

FileName 'Guardar el nombre del archivo

FileSize = FileLen(FileName) 'Obtener la longitud del archivo

Si FileSize gt MaxLen Then[] 'Mostrar el cuadro de diálogo "Abrir archivo"

p>

Si Len(CommonDialog1.NextPage]

'El archivo es demasiado largo

MsgBox "El archivo es demasiado grande y solo se puede mostrar una parte del texto", , "Advertencia"

Exit Sub

End If

Screen.MousePointer = 11 'Establece el mouse como un reloj de arena

FileNum = FreeFile() 'Obtener el número de archivo disponible

Abrir nombre de archivo para ingresar como FileNum 'Abrir el archivo en modo de entrada secuencial

Hacer mientras no sea EOF(FileNum) y Len(buffer) lt ; MaxLen 'La lectura debe ser inferior a

32K

Entrada de línea #FileNum, buffer1 'Lee una línea de texto

buffer = buffer buffer1 Chr(13) Chr(10) 'Agregar retorno de carro y avance de línea

Bucle 'Texto en bucle

Cerrar FileNum 'Cerrar el archivo.

Caption = "Bloc de notas - " FileName 'Cambiar visualización del título

Finalizar si

End Sub

Private Sub Paste_Click()

Text1. SelText = Portapapeles. Luego

Label1.Width = Imagen1.ScaleWidth - Label1.Left

Fin si

Fin Sub

Sub privado Save_Click()

Dim FileNum As Integer 'Número de identificador de archivo

CommonDialog1.ShowSave 'Mostrar cuadro de diálogo para guardar

If Len(CommonDialog1.FileName) gt; Luego

'Hay un nombre de archivo de entrada

FileName = CommonDialog1.FileName 'Guardar el nombre del archivoGuardar el nombre del archivo

FileNum = FreeFile() 'Obtener el número de archivo disponible

Abrir nombre de archivo para salida como FileNum 'Abrir archivo de salida

'Si no se especifica ningún archivo, cree un nuevo archivo

Imprimir #FileNum, Text1.Text ' Texto de salida

Cerrar FileNum 'Cerrar el archivo

Me.Caption = "Bloc de notas - " FileName 'Modificar la visualización del título

ImgUndoDisable

Finalizar si

End Sub

Subtexto privado1_Change()

Si no es ImgUndo.Entonces

'Haga el Botón "Deshacer" disponible

p>

ImgUndoEnable

End If

UndoString = UndoNew

UndoNew = UndoNewText1

End Sub

Subtexto privado1_Click()

Check_ ImgCutCopy

End Sub

Subtexto privado1_KeyUp(Código clave como entero , Desplazar como entero)

Check_ImgCutCopy

End sub

End Sub

Sub privado ImgSave_MouseUp(Botón como entero, Desplazar como entero, X

Como único, Y como único)

Si el botón = 1, entonces

' Botón "Levantar"

ImgSave.Picture = ImageUp.ListImages("Guardar").Imagen

Finalizar si

Fin del sub

Sub privado ImgUndo_Click()

Texto1.Text = Deshacer cadena

End Sub

Pr

ivate Sub ImgUndo_MouseDown(Botón como entero, Mayús como entero,

X como único, Y como único)

Si el botón = 1 entonces

'"Presione" botón

ImgUndo.Picture = ImageDown.ListImages("Undo").Picture

Finalizar si

Finalizar sub