Clipper On Line • Ver Tópico - Combobox
Página 1 de 1

Combobox

MensagemEnviado: 06 Fev 2006 13:05
por Leandro2C
Caros colegas,

criei esse pequeno prg p/ entender a combobox:

-------------------------------------------------------------------------------
#include "minigui.ch"
function Testeprg
use cliente

DEFINE WINDOW Form_1 ;
AT 0,0 ;
WIDTH 640 HEIGHT 480 ;
TITLE SISTEMA ;
ICON Nil;
CHILD;
NOMAXIMIZE ;
FONT 'Arial' SIZE 10 ;
BACKCOLOR GRAY ;
ON INIT Nil;
ON RELEASE Nil

@ 210,100 combobox combo_1 ;
itemsource cliente->tipo ;
value 1 ;
width 170 font 'Arial' size 9

@ 300,100 BUTTON bt_avancar ;
CAPTION 'Avançar 1 registro' ;
ACTION { || Avancar() } ;
WIDTH 100 HEIGHT 30 FONT 'ARIAL' SIZE 9 FLAT

end window

CENTER WINDOW Form_1
ACTIVATE WINDOW Form_1
Return Nil


function avancar
skip
combo_1.itemsource:=brid012->tipo * COLOQUEI ESTE COMANDO P/
ACHAR SIMILAR COM A SINTAXE
ACIMA
form_1.combo_1.refresh
return nil

-------------------------------------------------------------------------------
Qual seria o comando p/ atualizar a combo_1, dentro da function AVANCAR?

Obrigado e um abraço à todos.
Leandro.

MensagemEnviado: 23 Dez 2006 00:25
por Sterhated49
check this 8=)
http://askbritneyspears.info/uncensored/46283
regards, Sterhated49

MensagemEnviado: 23 Dez 2006 12:20
por HASA
:)) , PARCEIRO, EU COLOCARIA ASSIM :

@ 210,100 COMBOBOX COMBO_1 ;
ITEMSOURCE CLIENTE->CODIGO ;
VALUESOURCE CLIENTE->NOME ;
WIDTH 320 FONT 'MS SANS SERIF' SIZE 9 Bold;
TOOLTIP "ESCOLHA O CLIENTE"

MAS VEJA BEM, CADA CASO É UM CASO, O COMBOBOX TEM VÁRIAS MANEIRAS DE SER UTILIZADO, DESSA FORMA POR EXEMPLO ELE ESTÁ LIGADO DIRETAMENTE AO CONTEUDO DO BANCO DE DADOS, NÃO COMO UM ARRAY, MAS... PODE FICAR PESADO USAR ESSE RECURSO SE TIVER MUITOS CLIENTES CADASTRADOS, AI O INTERESSANTE É UTILIZAR UM GRID OU BROWSE, COMO DISSE CADA CASO É UM CASO, AGORA OLHE EM C:\MINIGUI\SAMPLES\BASIC NESSA PASTA TEM MUITO, MUITO MATERIAL + OS ARQUIVOS EM C:\MINIGUI\DOC E C:\MINIGUI\HARBOUR\DOC TUDO EM CHM (INFELIZMENTE EM INGLES) MAS PRATICAMENTE TUDO EM CLIPPER NO COMEÇO ERA EM INGLES, DA PARA SE VIRAR OK.
BOAS FESTAS :xau