TABCONTROL

JOHNHEY 19/08/2010 08:05:46
#350657
Boa Tarde Pessoa, preciso de mais uma ajudinha

tenho uma tabcontrol com 3 orelhas, ou guia, como queiram chamar e gostaria de limpar o combobox21 só que não consigo.

ja coloquei

combobox21.text = [Ô][Ô]
e não da certo

minha tabcontrol tem o nome de tbdados
e a combobox21 esta na guia documentação
JONATHANSTECKER 19/08/2010 08:19:10
#350661 Resposta escolhida
Caso queira limpar todos os itens da ComboBox use:

Me.combobox21.Items.Clear()


Caso a propriedade DropDownStyle da sua ComboBox estiver definida como ComboBoxStyle.DropDownList e você queira simplesmente deixar sem nenhuma seleção use:

Me.combobox21.SelectedIndex = -1
JOHNHEY 19/08/2010 10:11:58
#350673
ótimo jonathanstecker, só mais um pergunta, como eu faço deixar todos os combobox sem seleção, usando

Me.combobox21.SelectedIndex = -1
JONATHANSTECKER 19/08/2010 10:39:36
#350675
Faça dessa forma:

        For Each ctl As Control In Me.Controls
            If TypeOf (ctl) Is ComboBox Then
                DirectCast(ctl, ComboBox).SelectedIndex = -1
            End If
        Next
JOHNHEY 19/08/2010 11:29:54
#350678
coloquei como me disse, só que infelizmente os combobox e textbox do tabcontrol não é feito, somente é executado os campos do form
JONATHANSTECKER 19/08/2010 12:57:43
#350691
Faça uma rotina para limpar os ComboBox

Sub LimparCombo
    Me.combobox21.SelectedIndex = -1
    Me.combobox20.SelectedIndex = -1
    Me.combobox19.SelectedIndex = -1
End sub
JOHNHEY 19/08/2010 14:03:21
#350698
ok, funcionou, mas agora gostaria de outra coisa se for possivel.

ao inves de encher minha rotina de linhas de comando, seria possivel o proprio programa ver quantos combobox eu possuo no form e fazer a limpeza, tipo assim:

Primeiro verifica quantos combobox tem e devolve o numero em uma variavel X

combo = X
for combo = 1 to X
me.combobox(combo).selectedindex = -1
next

não sei se é bem assim, por favor desculpe pela minha ignorancia
JONATHANSTECKER 19/08/2010 14:18:58
#350700 
        [ô] Identifico todos controles do Forms
        For Each objControle As Control In Me.Controls
            [ô] Verifico se é um TabControl
            If TypeOf objControle Is TabControl Then
                [ô] Verifico se é um tabpage
                For Each tpg As TabPage In DirectCast(objControle, TabControl).TabPages
                    [ô] verifico se é um ComboBox
                    For Each Combo As Control In tpg.Controls
                        If TypeOf (Combo) Is ComboBox Then
                            DirectCast(Combo, ComboBox).SelectedIndex = -1
                        End If
                    Next
                Next
            End If
        Next
Tópico encerrado , respostas não são mais permitidas
Voltar