Combobox

[Guest - Felipe -]

Olá pessoal,

eu fiz um combobox para os dias e eu não sei como fazer para recuperar o dia selecionado na combo em uma variavel qualquer

Obrigado

[Graymalkin]

Qualquer uma das duas maneiras é válida:

    valor = Combo1.List(Combo1.ListIndex)

    valor = Combo1.Text

Certo?

Abraços,

Graymalkin

[Guest - Felipe -]

Qualquer uma das duas maneiras é válida:

    valor = Combo1.List(Combo1.ListIndex)

    valor = Combo1.Text

Certo? Abraços, Graymalkin

Mas como eu declaro a variavel valor no caso para depois eu poder recuperá-la

Private Sub cmdcalcula_Click()
lblmostra.Caption = valor
End Sub

Private Sub Form_Load()
valor = cmbdia.List(cmbdia.ListIndex)
End Sub

eu tentei como integer só q da erro e só funciona como string, mas quando recupera a variavel no cmdcalcula ele não mostra nada

[Graymalkin]

Isso deve ao escopo de variáveis. Variáveis declaradas (ou simplesmente criadas) dentro de procedimentos (subs ou functions) *só* existem dentro das mesmas. No caso ali, a variável "valor" que você utiliza em Form_Load é destruída ao final do procedimento. Para que ela exista o tempo todo, você tem duas opções: declará-la em um módulo ou no General Declarations do form. Quanto ao tipo, você pode declará-la como integer sim, bastando converter o valor para um inteiro ao atribuir. Exemplo:

valor = int(cmbdia.List(cmbdia.ListIndex))

Certo?

Graymalkin