Portada
Banner
Portada Foros Manuales Enlaces Email
clear1x1.gif clear1x1.gif clear1x1.gif
clear1x1.gif
clear1x1.gif

Portada
Foros
Manuales
Enlaces
Distribuidores
Precios
Sugerencias

Contacto

 

clear1x1.gif clear1x1.gif
 GuiBuilder - Manual del Usuario (Parte 21/55)
Primero Previo Próximo Último

Ambos gb__event$ y gb__notice$ son fijos en el loop de eventos: 

gb__event$:tmpl(gb__sysgui)
gb__event=len(gb__event$)
dim gb__generic$:noticetpl(0,0)
gb__eoj=0


repeat 
   read record (gb__sysgui,siz=gb__event,err=gb__event_loop_end)gb__event$  
   if gb__event.code$="N" then
:     gb__generic$=notice(gb__sysgui,gb__event.x%);  
:     gb__notice$:noticetpl(gb__generic.objtype%,gb__event.flags%);  
:     gb__notice$=gb__generic$


   cuerpo del loop de evento

until gb__eoj

Note que todas las variables definidas empiezan con gb__ (con dos rayas "underscores"). Semejantemente, todas las funciones definidas empiezan con fngb__.

_label 

Convierte Números de Línea a Líneas de Etiquetas 

Sintaxis 

call "_label",inpgm$,outpgm$,errmsg$,always_create 

Descripción

Esta utilidad examina un programa de Visual PRO/5 para todas las referencias de número de línea, las convierte a líneas que referencian una etiqueta, y genera etiquetas de línea como sea necesario. La salida se escribe a un archivo de programa separado. Esta utilidad es usada por el GUIBuilder en la función "Get Existing Code". 

Argumento Descripción
inpgm$  Nombre del programa fuente. No se modificará de forma alguna.
outpgm$ Programa de Salida (destino). Si existe, se borrará.
errmsg$
Retornado como "" si el outpgm$ se creó ok.
  
Retornado como "OK" si ninguna conversión fue necesaria y outpgm$ no fue creado.

Retornado como un mensaje de error si un problema fue encontrado.
always_create
Si es 0: No crea el outpgm$ si no hay línea de etiqueta a convertir.

Si es 1: Crea el outpgm$ aún cuando no hay ninguna línea de etiqueta para convertir.
Primero Previo Próximo Último

Portada -- Foros -- Manuales -- Enlaces-- Sugerencias
Para comentarios: webmaster@essnet.com

clear1x1.gif
clear1x1.gif
clear1x1.gif
Portada Email Foros