NBW Publication Source File
(C)1993-2003 NeoSoft Corp.
Title=Ejemplo de menú y lista desplegable
Author=David Esperalta
Language=US
NeoBookVer=4,11
ScreenColors=16777216
ScreenWidth=400
ScreenHeight=250
BkndColor=0
LinkColor=16711680
WindowStyle=0
WindowOrder=0
WindowProps=29
UseUpdateTimer=Yes
ReturnTime=60
ShapeTransColor=536870912
CompiledName=C:\Documents and Settings\bubi.htm\Escritorio\lista_y_menu.exe
CompileType=0
MediaType=0
FilesIncluded=1
FontsIncluded=2
FontsToCompile=|
CopyExternalFiles=No
SetupMedia=3
SetupInstDir=C:\MyProgram
SetupTitle=Configuración
SetupColors=16711680|0|65535
CustomFontName=MS Sans Serif
CustomFontSize=8
CustomFontStyle=1
CustomCharset=1
CacheSize=30
ExtractOp=132
L_OK=Aceptar
L_CANCEL=Cancelar
L_YES=Sí
L_NO=No
L_CLOSE=Cerrar
L_ERRORTITLE=Error
L_FINDTITLE=Buscar
L_FINDPROMPT=Buscar &qué
L_FINDFIRST=Buscar &primero
L_FINDNEXT=Buscar &siguiente
L_FINDERROR=No se encontró el texto.
L_PWORDTITLE=Se requiere contraseña 
L_PWORDMSG=Antes de continuar debe primero|proporcionar la contraseña correcta.
L_PWORDPROMPT=&Contraseña:
L_PWORDERROR=¡Esa no es la contraseña correcta!
L_MEDIAERROR=Debe instalar el equipo y/o programa de multimedia apropiado para ejecutar este tipo de fichero.
L_INTERNETERROR=No se encontró el programa para navegar por Internet.
L_ABORTFUNCTION=Imprimiendo página:
L_EXTRACTERROR=¿Desea cancelar esta función?
L_INSTDIRPROMPT=Este fichero no pudo extraerse y por tanto no puede ejecutarse.
L_INSTFOLDERPROMPT=Por favor, teclee el lector y el directorio donde desee instalar el programa. Use la tecla Intro para aceptar el lector y directorio predeterminado.
L_INSTRUNPROMPT=¿Desea crear un archivo de programa?
L_INSTDISKPROMPT=¿Desea ejecutarlo?
L_INSTDISKERROR=Por favor, inserte el disco #
L_INSTGENERROR=Ese disquete no es el correcto, inténtelo de nuevo.
L_INSTEXITPROMPT=Instalación completada.
L_INSTWINTITLE=¿Desea cancelar la instalación?
L_INSTPROGTITLE=Configuración
L_SENDEMAIL=Enviando correo...
L_MAILSERVER=Proporcione el nombre de su servidor SMTP de correo electrónico saliente: 
L_TRAYOPEN=Abrir
L_TRAYCLOSE=Cerrar
L_COPY=Cortar
L_SELECTALL=Seleccionar todo
MasterPage
NewPage=pagina 1
PageStyle=0
PageColor=16777215
PageGradient1=16711680
PageGradient2=255
PageGradientDir=1
WallpaperStyle=0
EffectSpeed=5
ObjectType=8
Name=Texto1
X=4
Y=4
W=393
H=242
Font=Arial
FontSize=10
FontStyle=0
FontCharset=1
TextColor=0
Text={\rtf1\ansi\deff0\deftab254{\fonttbl{\f0\fnil\fcharset1 Arial;}}{\pard{\ql\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs28\cf0\b Ahora est\'e1s en la p\'e1gina 1}}}
HMargin=20
VMargin=20
LineColor=0
LineWidth=1
LineStyle=0
FillColor=16777215
FillPattern=0
TabOrder=2
ObjectType=8
Name=Texto2
X=23
Y=90
W=355
H=31
Font=Arial
FontSize=10
FontStyle=0
FontCharset=1
TextColor=0
Text={\rtf1\ansi\deff0\deftab254{\fonttbl{\f0\fnil\fcharset1 Arial;}}{\pard{\qc\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs20\cf0 Eliga en la lista o en el men\'fa a qu\'e9 p\'e1gina quieres ir}}}
HMargin=4
VMargin=4
LineColor=0
LineWidth=0
LineStyle=0
FillColor=16777215
FillPattern=0
TabOrder=3
ObjectType=11
Name=ListaDesplegable1
X=68
Y=130
W=130
H=24
Text=Ir a la página 2¶Ir a la página 3
VarName=[ListaDesplegable1]
VarType=0
ObjAction=¶.Se comprueba ahora qué se eligió en la lista desplegable¶¶.Si se eligió "Ir a la página 2", se procederá en consecuencia¶¶If "[ListaDesplegable1]" "=" "Ir a la página 2"¶GotoPage "pagina 2"¶EndIf¶¶.Y si se eligió "Ir a la página 3", lo mismo¶¶If "[ListaDesplegable1]" "=" "Ir a la página 3"¶GotoPage "pagina 3"¶EndIf
LineColor=0
LineWidth=1
LineStyle=0
FillColor=16777215
FillPattern=0
Font=Arial
FontSize=10
FontStyle=0
FontCharset=1
TextColor=0
TabOrder=1
ObjectType=3
Name=BotonComando4
X=212
Y=131
W=131
H=25
Text=^Menú
Align=2
Key=32845
ImageStyle=0
BevelWidth=0
ObjAction=¶Menu "262" "160" "Ir a la página 2|Ir a la página 3"¶GotoLine "ACCION_PAG2"¶GotoLine "ACCION_PAG3"¶GotoLine "SALIR"¶¶.Primero elegimos la acción para crear un menú¶¶.A continuación, la primera línea de código corresponderá a la acción¶.de "Ir a la página 2", y la segunda línea a "Ir a la página 3".¶¶.La tercera línea de código está por si acaso no se selecciona ningún¶.punto "válido" del menú, de forma que si es así se "salga" del proceso¶.sin llevar a cabo ninguna acción.¶¶.En las líneas correspondientes comenzará propiamente el código para¶.las acciones a llevar a cabo según qué se eliga en el menú. Antes se llamaba a las líneas¶.que ahora podrás ver más abajo.¶¶.Observa, también, que después de la línea "SALIR", no hay código, ¶.que es de lo que se trata para salir del proceso.¶¶.Por último, date cuenta de que no se han dejado arriba líneas vacías¶.entre el "menú" y las llamadas a las líneas correspondientes, y es que¶.hacer esto puede dar algún que otro quebradero de cabeza.¶¶.Si el menú no resultara complicado también podrías poner la acción que quisieras¶.sin llamar a ninguna línea... lo de las líneas se hace para tener un tanto más apañado el código¶.y porque si se complica el menú de este modo lo tendremos más bajo nuestro control.¶¶:ACCION_PAG2¶GotoPage "pagina 2"¶GotoLine "SALIR"¶¶¶:ACCION_PAG3¶GotoPage "pagina 3"¶GotoLine "SALIR"¶¶¶:SALIR¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶¶
LineColor=0
LineWidth=0
LineStyle=0
FillColor=16777215
FillPattern=0
Font=Arial
FontSize=10
FontStyle=1
FontCharset=1
TextColor=0
TabOrder=4
ObjectType=8
Name=Texto6
X=60
Y=175
W=296
H=25
Font=Arial
FontSize=10
FontStyle=1
FontCharset=1
TextColor=8421504
Text={\rtf1\ansi\deff0\deftab254{\fonttbl{\f0\fnil\fcharset1 Arial;}}{\pard{\ql\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs20\cf0\b * \plain\f0\fs16\cf0 Puedes acceder al men\'fa pulsando las teclas "ALT + M"}}}
HMargin=2
VMargin=2
LineColor=0
LineWidth=0
LineStyle=0
FillColor=16777215
FillPattern=0
TabOrder=5
NewPage=pagina 2
PageStyle=0
PageColor=16777215
PageGradient1=16711680
PageGradient2=255
PageGradientDir=1
WallpaperStyle=0
EffectSpeed=5
ObjectType=8
Name=Texto10
X=4
Y=4
W=393
H=242
Font=Arial
FontSize=10
FontStyle=0
FontCharset=1
TextColor=0
Text={\rtf1\ansi\deff0\deftab254{\fonttbl{\f0\fnil\fcharset1 Arial;}}{\pard{\ql\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs28\cf0\b Ahora est\'e1s en la p\'e1gina 2}}}
HMargin=20
VMargin=20
LineColor=0
LineWidth=1
LineStyle=0
FillColor=16777215
FillPattern=0
TabOrder=1
ObjectType=3
Name=BotonComando5
X=16
Y=71
W=373
H=165
Text=Volver a la página 1¶¶(haz clic aquí)
Align=2
ImageStyle=0
ObjAction=¶GotoPage "pagina 1"
LineColor=0
LineWidth=1
LineStyle=0
FillColor=16777215
FillPattern=0
Font=Arial
FontSize=10
FontStyle=1
FontCharset=1
TextColor=8421504
TabOrder=2
NewPage=pagina 3
PageStyle=0
PageColor=16777215
PageGradient1=16711680
PageGradient2=255
PageGradientDir=1
WallpaperStyle=0
EffectSpeed=5
ObjectType=8
Name=Texto11
X=4
Y=4
W=393
H=242
Font=Arial
FontSize=10
FontStyle=0
FontCharset=1
TextColor=0
Text={\rtf1\ansi\deff0\deftab254{\fonttbl{\f0\fnil\fcharset1 Arial;}}{\pard{\ql\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs28\cf0\b Ahora est\'e1s en la p\'e1gina 3}}}
HMargin=20
VMargin=20
LineColor=0
LineWidth=1
LineStyle=0
FillColor=16777215
FillPattern=0
TabOrder=1
ObjectType=3
Name=BotonComando6
X=16
Y=71
W=373
H=165
Text=Volver a la página 1¶¶(haz clic aquí)
Align=2
ImageStyle=0
ObjAction=¶GotoPage "pagina 1"
LineColor=0
LineWidth=1
LineStyle=0
FillColor=16777215
FillPattern=0
Font=Arial
FontSize=10
FontStyle=1
FontCharset=1
TextColor=8421504
TabOrder=2