FiveTech Software tech support forums

Gracias por responder, no me estaba funcionando el timer, lo declare así: ACTIVATE DIALOG oDlg ON INIT ( oDlg:SetPos( 0, 0 ), oDlg:nWidth := GetSysMetrics( 0 ), oDlg:nHeight := GetSysMetrics( 1 ), BuildTimer( oDlg, obrow )) function BuildTimer( oDlg, wobrow ) local oTmr DEFINE TIMER oTmr OF oDlg ; A...

use a TIMER,

Code: Select all  Expand view

   olbx:GoBottom()
   oLbx:Refresh()
   oLbx:GoTop()
 

Regards, saludos.

Hola buenos días, estoy mostrando en una pantalla datos que se van generando desde otro puesto de trabajo

Lo que necesito es que se refresque el listbox cada n segundos sin tener que hacer click para que me muestre los datos.

karinha wrote:Estimado Manuel, ¿estás usando TSBROWSE() en tu versión o XBROWSE()?

Gracias.

Regards, saludos.

Hola Karinha, uso Listbox

Code: Select all  Expand view

REDEFINE LISTBOX oBrowseZip FIELDS "" ;
      HEADERS "Nombre", "Tamaño", "Fecha", "Ruta" ;
      SIZES   100, 80, 80, 150 ;

... ) oPaci:SetFocus() oPaci:SetOrder( 2 ) DEFINE DIALOG oDlg RESOURCE "FONDO_PACIENTE" TITLE "ABM de Pacientes" REDEFINE LISTBOX oLbx FIELDS str(@oPaci:Codigo,6), @oPaci:Apynom,; @oPaci:Documento, @oPaci:Obrasoci; HEADERS "Código", "Apellido y Nombre", ...

... ) oPaci:SetFocus() oPaci:SetOrder( 2 ) DEFINE DIALOG oDlg RESOURCE "FONDO_PACIENTE" TITLE "ABM de Pacientes" REDEFINE LISTBOX oLbx FIELDS str(@oPaci:Codigo,6), @oPaci:Apynom,; @oPaci:Documento, @oPaci:Obrasoci; HEADERS "Código", "Apellido y Nombre", ...

... ) oPaci:SetFocus() oPaci:SetOrder( 2 ) DEFINE DIALOG oDlg RESOURCE "FONDO_PACIENTE" TITLE "ABM de Pacientes" REDEFINE LISTBOX oLbx FIELDS str(@oPaci:Codigo,6), @oPaci:Apynom,; @oPaci:Documento, @oPaci:Obrasoci; HEADERS "Código", "Apellido y Nombre", ...

Claro que si, hay muchos

textxrbw.prg
testxbr2.prg
...
testxbr6.prg

xbalpha.prg
...
xbxlsel.prg

en la carpeta samples hay algún ejemplo de xbrowse?

Holá, mejor és usar xBrowse() de mister Nages.

Saludos.

tengo un dialogo con un listbox y necesito cambiar su tamaño de dibujado dinamicamente, he estado probando nleft, nwidth , ntop etc.. y ninguna forma de cambiar sus dimensiones parece funcionarme, el codigo que lo declara es este y luegoo ...

Hola gente, necesito poder actualizar el listbox dinamocamente, lo tengo definido así: WITH OBJECT oResultado:Clasifica :bOnPostEdit := { | o, x, k | VeoClasifica( x, oResultado ) } // PostEditc( o, x, k ) } // EditaCelda( oaufactu, 1, x, k, ...

... after connect to Server-IP (?) using Port 5432 (can be different) to open "Catalog mdidemo" than Listbox will be filled with Table Name of Client

Wow, Antonio thanks for this. Btw I have been utilizing ChatGPT this morning and although I have not solved my specific question, I have learned alot. Thanks, for the Tip, and I will now go through your answers and see if I can get this.

... objectSet oExcel = CreateObject("Excel.Application")'Set Excel sheet objectSet oSheet = oExcel.Sheets("Sheet1")'Set listbox objectSet oListBox = oSheet.OLEObjects("ListBox1")'Loop through listbox itemsFor i = 1 To oListBox.ListCount'Get listbox item ...