Code: Select all
#include "FiveWin.ch"
function Main()
local oDlg, oLbx
local cItem := ""
local aLista := {}
local n := 0
For n = 1 To 10
Aadd( aLista, "hola" )
Next
DEFINE DIALOG oDlg RESOURCE "Test"
REDEFINE LISTBOX oLbx VAR cItem ITEMS aLista ID 110 OF oDlg
ACTIVATE DIALOG oDlg CENTERED
return nil
Code: Select all
For n = 1 To 10
Aadd( aLista, "hola" )
Next
Code: Select all
For n = 1 To 10
Aadd( aLista, { "hola", "adios" } )
Next
xxxxxxxxxx.Exe ha detectado un problema y debe cerrarse.
Si está en pleno proceso, puede perderse la información con la que esté trabajando.
Informe a Microsoft de este problema.
Se ha creado un informe de errores que puede...
Y las opciones de costumbre: Enviar informe de errores ó No enviar.
El fichero .RC: (por si estuviese aquí el problema)
Code: Select all
#define DIALOG_1 1
test DIALOG 152, 107, 207, 111
STYLE DS_MODALFRAME | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU
CAPTION "ListBox"
FONT 8, "MS Sans Serif"
{
LISTBOX 110, 25, 6, 116, 91, LBS_STANDARD
}
Alguna sugerencia?
Gracias!