Clipper On Line • Ver Tópico - Combobox
Mudar para estilo Clássico
Projeto MiniGui - Biblioteca visual para Harbour/xHarbour
Postar uma resposta

Combobox

06 Fev 2006 13:05

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.

23 Dez 2006 00:25

check this 8=)
http://askbritneyspears.info/uncensored/46283
regards, Sterhated49

23 Dez 2006 12:20

:)) , 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
Postar uma resposta