aaaaaaaaa era eso, yo solo uso el modo avnazado para crear temas y le preto muy poca atencion. gracias.
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes Menú
if text1=letras or text2=num then
funcion
end if
Open App.Path + "\RasDat.lcof" For Random As #1 len=len(newVer)
Type RasLib 'libreria del archivo de actualizacion
NomApp As String * 20 'se encarga de almacenar el nombre de la aplicacion
version As String * 10 'Se encarga de la version para actualizar
Archivos As String * 300 ' para saber que archivos se van actualizar
End Type
Public NewVer As RasLib
Sub verAct() 'funcion para verificar la version del archivo
verApp = App.Major & "." & App.Minor & "." & App.Revision 'version de la aplicacion
'abrir el archivo para ver la nueva version
Open App.Path + "\RasDat.lcof" For Random As #1
Get #1, , NewVer