Jump to content
Ricardo_Ruivo

[Dúvida] - Actualizar ComboBox através de uma TextBox

Recommended Posts

Ricardo_Ruivo

Boa tarde,

estou a desenvolver uma mini-aplicação em que tenho duas textbox. A primeira para escrever o nome do parâmetro do eixo dos X e a segunda para escrever o nome do parâmetro do eixo dos Y.

A combobox que tenho na aplicação deve ser actualiza com os nomes dos dois parâmetros escritos nas textbox.

Para isso criei uma função para actualizar a combobox e faço a sua chamada no evento de cada textbox.

O que acontece é que à medida que estou a escrever na textbox o programa encrava.

Não haverá maneira de fazer tipo num break no programa entre o escrever na textbox e a actualização da combobox para que o texto escrito possa ser todo guardado na variável?

Private Sub TextBox7_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox7.TextChanged

        Dim grandezax As String

        grandezax = TextBox7.Text


        Dim actualiza As String

        actualiza = actualiza_combobox(grandezax, opcao)

    End Sub

    Private Function actualiza_combobox(ByVal grandezax As String, ByRef opcao() As String) As String

        opcao(0) = grandezax



        With Me.ComboBox3
            .DropDownStyle = ComboBoxStyle.DropDownList
            .Items.AddRange(opcao)
        End With


        Return opcao(1)
    End Function

Share this post


Link to post
Share on other sites
Andrepereira9

boas

porque não experimentas com o evento

Private Sub TextBox1_Leave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.Leave


A informática chegou para resolver problemas que antes não existiam

Quem ri por último é porque está conectado a 52 Kbs.

Share this post


Link to post
Share on other sites
Ricardo_Ruivo

boas

porque não experimentas com o evento

Private Sub TextBox1_Leave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.Leave

É isso mesmo. ;)

Com este evento resolvi o problema, ou seja, só vou actualizar a combobox depois de sair da textbox.

Private Sub TextBox7_Leave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox7.Leave



        grandezax = TextBox7.Text
        MsgBox(grandezax)

        actualiza = actualiza_combobox(grandezay, grandezax, opcao)


    End Sub

    Private Sub TextBox10_Leave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox10.Leave



        grandezay = TextBox10.Text

        MsgBox(grandezay)

        actualiza = actualiza_combobox(grandezay, grandezax, opcao)

    End Sub

    Private Function actualiza_combobox(ByVal grandezay As String, ByVal grandezax As String, ByRef opcao() As String) As String

        ReDim opcao(1)
        opcao(0) = grandezax
        opcao(1) = grandezay

        Dim a, b As Integer

        a = Len(grandezax)
        b = Len(grandezay)

        If a = 0 Then
            ReDim opcao(0)
            opcao(0) = grandezay

        ElseIf b = 0 Then
            ReDim opcao(0)
            opcao(0) = grandezax

        End If

       

        With Me.ComboBox3
            .DropDownStyle = ComboBoxStyle.DropDownList
            .Items.Clear()
            .Items.AddRange(opcao)
        End With


        Return a
    End Function

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.