Iniciar combobox com um item já selecionado

[Vander]

Como iniciar combobox com um item já selecionado ?
Por exemplo tenho
cTEXTCG := {"Selecione","Alameda","Avenida","Beco","Estrada","Praça","Rodovia","Rua","Travessa"}

Gostaria que ao abrir a tela o item Selecione já estivesse no combobox.



Obrigado;
Vander

[asimoes]

Olá bom dia,
Qual é a lib gráfica ?

[Pablo César]

Basta começar com Value 1

[asimoes]

Não sei qual lib gráfica que vocês está utilizando, mas em minigui pode fazer assim.
aCombo:={'DBFCDX','DBFNTX'}
cRDD:='DBFCDX'

VALUE AScan(aCombo, {|e| e = cRDD})

[asimoes]

Se for em hwgui pode fazer assim:

Código: Selecionar todos

 
   aTypes:={ "Character","Numeric","Date","Logical" }, nType:=1
   
   PREPARE FONT oFont2 NAME "Arial" WIDTH 0 HEIGHT -13 
   
   @ 0,20 GET COMBOBOX oGetCombo VAR nType ITEMS aTypes SIZE 100,24 FONT oFont2

   oGetCombo:SetItem( Ascan(aTypes,'Numeric' ) )

[Itamar M. Lins Jr.]

Hwgui é show de bola!
Pena que o Alexander toma uns chás de sumiço vez outra e deixou a 2.18 inacabada

Saudações,
Itamar M. Lins Jr.

[Vander]

Obrigado a todos,
Resolvido assim:

LOCAL cTEXTCG := {"Selecione","Alameda","Avenida","Beco","Estrada","Praça","Rodovia","Rua","Travessa"}
LOCAL nCombo := 1
..
..
..
REDEFINE COMBOBOX oCATEGO VAR nCombo ITEMS cTEXTCG ID 101 OF CADACEPS
..
..
..

Vander

[microvolution]

pessoal o meu problema com COMBOBOX é o seguinte. vejam no código a explicar abaixo:

Código: Selecionar todos

             // @  95,  90 COMBOBOX txbUserID ITEMS &nm_arq.->COD_USU WIDTH 195 BACKCOLOR WHITE // HELPID 101 OF FLogin VALUE 1
            // @  95,  90 TEXTBOX txbUserID WIDTH 85 HEIGHT 21  FONTCOLOR BLUE BOLD NUMERIC INPUTMASK '999999' ON ENTER { || FLogin.txbPasswrd.SetFocus } 
            // @  95,  90 COMBOBOX txbUserID ITEMS cd_usu WIDTH 195 BACKCOLOR WHITE // HELPID 101 VALUE 1 OF FLogin 
             @  95,  90 COMBOBOX txbUserID ITEMS {1,2,3}  VALUE 1 WIDTH 195 BACKCOLOR WHITE // HELPID 101 OF FLogin

Observem que tem 2 linhas comentadas.
* A primeira diz que o COMBOBOX irá pegar no arquivo &NM_ARQ.->COD_USU os usuários. Essa variável &NM_ARQ. contém o nome do arquivo USUARIOS.DBF. Ela está comentada pois aparece a mesma mensagem de erro que vou apresentar logo abaixo que é comum a todos.
* A 2ª, no lugar de um COMBOBOX é um TEXTBOX e está comentada, pois assim funciona. Só que dessa forma não tem como ser visualizado os usuários e como vi um exemplo na rede, quando se clica na seta do COMBOBOX é visualizado todos os usuários presentes.
* Na 3ª linha comentada, o ITEMS CD_USU é uma matriz/vetor onde todos os usuários são gravados nela, para que supostamente a COMBOBOX mostre todos automaticamente, mas, também apresentou a mesma mensagem de erro que passarei logo abaixo.
* Já a 4ª linha NÃO ESTÁ COMENTADA, pois pensei que o erro era porque estava pegando uma matriz ou campo do banco de dados de forma errada e mesmo assim apresenta a mesma mensagem de erro.

A mensagem de erro comum é exatamente na mesma linha de compilação, qualquer que seja das linhas comentadas acima (exceto TEXTBOX), é:
Error E0030 "syntax error at '@'"

Bom, outra coisa, que V.Sas. podem observar é que comentei o final de cada linha, pois esse tal de HELPID 101 não sei como funciona e o OF Login (nome do formulário em que está esse COMBOBOX) pensei que eram a causa do erro.

Também, achei interessante uma função ON GOTFUCUS, como descrito abaixo, mas, não compreendi sua sintaxe e sempre dá erro da forma em que vi nos tutoriais que é logo abaixo de um TEXTBOX/COMBOBOX, que quando estivermos no TEXTBOX/COMBOBOX o seu respectivo LABEL ficaria em NEGRITO, mas, como disso, dá um erro:

Código: Selecionar todos

            // @  95,  90 TEXTBOX txbUserID WIDTH 85 HEIGHT 21  FONTCOLOR BLUE BOLD NUMERIC INPUTMASK '999999' ON ENTER { || FLogin.txbPasswrd.SetFocus } ;
                   // ON GOTFOCUS FLogin.lblUserID.FontBold := .T. ;
                   // ON GOTFOCUS FLogin.lblUserID.FontBold := .F 

Experimentei tirar os ";" das 2 linhas, mas, não funciona mesmo assim.

Bom, agora está faltando mostrar pra todos o local onde é gerada a matriz CD_USU. Vejam como faço:

Código: Selecionar todos

      IF (substr (NOME_SIST,1,5) + '003')->(.NOT. EOF())
         DO WHILE .T.
            AADD(cd_usu,(substr (NOME_SIST,1,5) + '003')->COD_USU)
            AADD(nm_usu,(substr (NOME_SIST,1,5) + '003')->NOME_USU)
            AADD(ps_usu,(substr (NOME_SIST,1,5) + '003')->PASSWORD)
            AADD(em_usu,(substr (NOME_SIST,1,5) + '003')->MASTER)
            (substr (NOME_SIST,1,5) + '003')->(DBSKIP())
            IF (substr (NOME_SIST,1,5) + '003')->(EOF())
               EXIT
            ENDIF
         ENDDO   
      ENDIF

Espero que possam me ajudar diante das informações que ora passei.
Lembrando que estou usando para compilação a IDE da HMG 3.0.XX.
Abraços!
O Senhor Jesus é real e existe!!!