COMBOBOX
bom dia
Vi num programa dos correios de busca de cep, uma combobox na qual voce digita as duas iniciais da UF e ele abre a lista com a sigla da uf e o nome do estado a qual pertence. Quando voce seleciona a uf (por exemplo: SP SÃO PAULO) na combo aparece somente a sigla, ou seja UF
Alguem sabe esta rotina?
obrigado
luiz
Vi num programa dos correios de busca de cep, uma combobox na qual voce digita as duas iniciais da UF e ele abre a lista com a sigla da uf e o nome do estado a qual pertence. Quando voce seleciona a uf (por exemplo: SP SÃO PAULO) na combo aparece somente a sigla, ou seja UF
Alguem sabe esta rotina?
obrigado
luiz
carregue a combo:
Private Sub Combo_GotFocus()
Combo.Clear
Combo.AddItem [Ô]SP SÃO PAULO[Ô]
Combo.AddItem [Ô]MG MINAS GERAIS[Ô]
[ô]E os outros estados
End Sub
Private Sub Combo_Click()
Combo.Text = Mid(Combo.Text, 1, 2)
End Sub
Private Sub Combo_GotFocus()
Combo.Clear
Combo.AddItem [Ô]SP SÃO PAULO[Ô]
Combo.AddItem [Ô]MG MINAS GERAIS[Ô]
[ô]E os outros estados
End Sub
Private Sub Combo_Click()
Combo.Text = Mid(Combo.Text, 1, 2)
End Sub
deu o seguinte erro:
run-time error 383 text property is read-only
run-time error 383 text property is read-only
Pq seu combo esta como DropDown List
Assim não dá para escrever nele.
Faz assim:
Private Sub Combo_Click()
Combo.Clear
Combo.AddItem Mid(Combo.Text, 1, 2)
End Sub
Assim não dá para escrever nele.
Faz assim:
Private Sub Combo_Click()
Combo.Clear
Combo.AddItem Mid(Combo.Text, 1, 2)
End Sub
obrigado
Tópico encerrado , respostas não são mais permitidas