oribeiro Posted May 10, 2012 Report Share Posted May 10, 2012 Pessoal, Eu preciso abrir um campo do tipo COMBOBOX com algumas opções para o usuário selecionar, porém, eu gostaria que o usuário pudesse digitar nesse campo outras informações que não estão nas opções padrões (como um campo GET). Alguém tem alguma idéia de como eu posso fazer isso? Aguardo, Oscar Ribeiroid=size4> OASyS Informáticaid=blue>id=size4> Fwh+xHb1.0.0+BCC55+WorkShopid=size1> Editado por - oribeiro on 14/05/2012 09:02:12 Quote Link to comment Share on other sites More sharing options...
oribeiro Posted May 10, 2012 Author Report Share Posted May 10, 2012 Pessoal, Eu preciso abrir um campo do tipo COMBOBOX com algumas opções para o usuário selecionar, porém, eu gostaria que o usuário pudesse digitar nesse campo outras informações que não estão nas opções padrões (como um campo GET). Alguém tem alguma idéia de como eu posso fazer isso? Aguardo, Oscar Ribeiroid=size4> OASyS Informáticaid=blue>id=size4> Fwh+xHb1.0.0+BCC55+WorkShopid=size1> Editado por - oribeiro on 14/05/2012 09:02:12 Quote Link to comment Share on other sites More sharing options...
kapiaba Posted May 11, 2012 Report Share Posted May 11, 2012 Não vejo a minima necessidade de ser um COMBOBOX. Você pode usar o próprio GET, com ACTION e Bitmap de pesquisa, onde você pode abrir uma browse() onde esteja os textos que o usuário vai "pegar" e "joga" no GET com ACTION. Se não entender avise que posto uma imagem. João Santos - São Paulo. joao@pleno.com.br Fone: (11) 3106-2832 / 5150-7341 - TIM https://www.facebook.com/kapiaba FWH 2.7 - xHARBOUR WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
zekasan Posted May 11, 2012 Report Share Posted May 11, 2012 já tentou colocar um campo em branco junto com as suas opções? FWH 8.08 - xHarbour - xDev - VLib Quote Link to comment Share on other sites More sharing options...
kapiaba Posted May 11, 2012 Report Share Posted May 11, 2012 citação:já tentou colocar um campo em branco junto com as suas opções? FWH 8.08 - xHarbour - xDev - VLib id=quote>id=quote>E serviria para que Zeca?? João Santos - São Paulo. joao@pleno.com.br Fone: (11) 3106-2832 / 5150-7341 - TIM https://www.facebook.com/kapiaba FWH 2.7 - xHARBOUR WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
oribeiro Posted May 11, 2012 Author Report Share Posted May 11, 2012 João, Por favor, gostei da sua idéia! Por favor, me passe um exemplo de Get com BitMap de Pesquisa? Aguardo, Oscar Ribeiroid=size4> OASyS Informáticaid=blue>id=size4> Fwh+xHb1.0.0+BCC55+WorkShopid=size1> Quote Link to comment Share on other sites More sharing options...
kapiaba Posted May 11, 2012 Report Share Posted May 11, 2012 http://www.4shared.com/photo/Hi5yh168/EMAIL.html Veja que neste caso, eu nem uso o ACTION, simplesmente coloquei uma BITMAP ao lado e disparo para uma Listbox, onde o usuário "pega" os emails cadastrados e "joga" no GET, ele pega quantos emails quiser no GET MULTILINE. João Santos - São Paulo. joao@pleno.com.br Fone: (11) 3106-2832 / 5150-7341 - TIM https://www.facebook.com/kapiaba FWH 2.7 - xHARBOUR WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
kapiaba Posted May 11, 2012 Report Share Posted May 11, 2012 Para usar GETS com ACTION, dependendo da sua versão do FIVE, voce pode usar BTNGET.PRG ou nas novas versões, veja com os usuários que usam as novas versões, pois a BTNGET.PRG foi abolida das novas versoes se não me engano. É isso, abs. João Santos - São Paulo. joao@pleno.com.br Fone: (11) 3106-2832 / 5150-7341 - TIM https://www.facebook.com/kapiaba FWH 2.7 - xHARBOUR WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
crisvam Posted May 11, 2012 Report Share Posted May 11, 2012 oRibeiro, Veja o exemplo do fivewin versão 10,11 #include "FiveWin.ch" function Main() local oWnd, cTest := "Hello world!" DEFINE WINDOW oWnd COLOR "N/W*" @ 2, 2 GET cTest SIZE 110, 22 ; ACTION MsgInfo( "click" ) BITMAP "..\bitmaps\16x16\find.bmp" ACTIVATE WINDOW oWnd return nil Crisvam - xHarbour_FWH_10.11 - Whorkshop Quote Link to comment Share on other sites More sharing options...
Erciley Junior Posted May 11, 2012 Report Share Posted May 11, 2012 LOCAL aTitulos:={PADR('RUA',30),PADR('AVENIDA',30),PADR('BARREIRO',30)} LOCAL cTitulo:=aTitulos[1] @ 01.0,01.0 COMBOBOX oTitulo VAR cTitulo ITEMS aTitulos OF oDlg STYLE 2 PICT '@!' SIZE 55,50 id=code>id=code>Respondendo a primeira mensagem.... Combobox com as opções da tabela aTitulos e com edição a gosto do freguês. Erciley Junior (FWH8.01 + SQLLIB 1.9d + xHB 1.10 + xDev 0.65 + @SAY) NÃO ABANDONE O POST, QUEREMOS SABER SE SUA DÚVIDA/PROBLEMA TEVE SOLUÇÃO Editado por - eco_fw on 11/05/2012 15:40:22 Quote Link to comment Share on other sites More sharing options...
oribeiro Posted May 14, 2012 Author Report Share Posted May 14, 2012 Erciley, Esse exemplo é perfeito! Atenda ao que preciso. Entretanto, não consegui ativar a opção STYLE 2 com REDEFINE. Tem algum segredo? Exemplo: function Main() local oDlg, oCbx, oSayItem, oSayAt local cItem := "" SET _3DLOOK ON DEFINE DIALOG oDlg DEFINE DIALOg oDlg RESOURCE "TestCombo" REDEFINE COMBOBOX oCbx VAR cItem ITEMS {"Testing","this","ComboBox"} ID 110 OF oDlg STYLE 2; ON CHANGE ( oSayItem:cTitle:=cItem, oSayAt:cTitle:=":nAt = "+Str(oCbx:nAt,2)) VALID (MsgBeep(), .t.) REDEFINE SAY oSayItem ID 120 OF oDlg REDEFINE BUTTON ID 130 OF oDlg ACTION oCbx:Reset() REDEFINE BUTTON ID 140 OF oDlg ACTION oCbx:SetItems( { "Let's", "Set", "a new", "List" } ) REDEFINE BUTTON ID 220 OF oDlg ACTION MsgInfo( Str( oCbx:nAt ) ) REDEFINE SAY oSayAt ID 150 OF oDlg ACTIVATE DIALOG oDlg CENTERED return nil Aguardo, Oscar Ribeiroid=size4> OASyS Informáticaid=blue>id=size4> Fwh+xHb1.0.0+BCC55+WorkShopid=size1> Quote Link to comment Share on other sites More sharing options...
oribeiro Posted May 14, 2012 Author Report Share Posted May 14, 2012 Resolvido! Apenas para registrar. Se não utilizar recurso, utilize STYLE 2, com o recurso modifique o Type do COMBO para Drop Down. O COMBO ficará editável em ambas as situações. Muito obrigado. Oscar Ribeiroid=size4> OASyS Informáticaid=blue>id=size4> Fwh+xHb1.0.0+BCC55+WorkShopid=size1> Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.