Jump to content
aprendiz93

Perguntinha basica, limpando a tela"textbox, combobox, RichTextBox" em vb.net ?

Recommended Posts

aprendiz93

Bom dia familia portugual a programar.

Gostaria de saber como faço para quando a pessoa cadastrar os dados dela nos textbox, combobox, RichTextBox e depois clicar no botao salvar limpar os dados. No caso já esta salvando ta só que as informções continua na tela como faço para limpar?

agradeço desde já pela ajuda.

Share this post


Link to post
Share on other sites
Caça

Podes fazer assim

TextBox1.Text = ""

ou assim

TextBox1.Text = String.Empty

EDIT: Na Combobox para limpares deves usar antes

ComboBox1.SelectedIndex = -1


Pedro Martins

Não respondo a duvidas por PM

Share this post


Link to post
Share on other sites
ribeiro55

Podes fazer de uma de duas maneiras:

TextBox/RichTextBox.Clear ou TextBox/RichTextBox.Text = String.Empty

ComboBox.SelectedItem = Nothing

Depois de registar, óbvio.

EDIT: Caça, o cowboy mais rápido no gatilho :)


Sérgio Ribeiro


"Great coders aren't born. They're compiled and released"
"Expert coders do not need a keyboard. They just throw magnets at the RAM chips"

Share this post


Link to post
Share on other sites
aprendiz93

Desculpa minha ignorãncia mais tenho varios textbox onde eu colocaria essa função?

Share this post


Link to post
Share on other sites
Caça

Crias um procedimento que depois chamas à medida que precisas.


Pedro Martins

Não respondo a duvidas por PM

Share this post


Link to post
Share on other sites
aprendiz93

Amigos dixei assim:

conecção.Open()

        Dim insere As Integer = command.ExecuteNonQuery()

        If insere < 1 Then
            MsgBox("O contato não foi registrado!! Tente novamente!!")
        Else
            MsgBox("O contato foi registrado com sucesso!!")
        End If

        TextBox.Text = String.Empty

        
        sintaxe = Nothing
        conecção = Nothing

e esta dando erro Error:

Reference to a non-shared member requires an object reference.

Share this post


Link to post
Share on other sites
Caça

TextBox.Text = String.Empty

Em vez de "TextBox", colocas o nome da respectiva textbox


Pedro Martins

Não respondo a duvidas por PM

Share this post


Link to post
Share on other sites
aprendiz93

VLW BROWS CONSEGUI BRIGADAO NOS TEXTBOX.

SÓ O COMBOBOX QUE N LIMPO

NO COMBOBOX FIZ A MESMA COISA QUE NOS TEXTBOX

ComboBox1.SelectedItem = Nothing

ComboBox2.SelectedItem = Nothing

ComboBox3.SelectedItem = Nothing

Share this post


Link to post
Share on other sites
ribeiro55

Queres limpar a selecção ou todos os itens da combobox?

Se quiseres apagar todos os itens da combobox:

ComboBox.Items.Clear

Onde ComboBox é o nome da tua instância do controlo


Sérgio Ribeiro


"Great coders aren't born. They're compiled and released"
"Expert coders do not need a keyboard. They just throw magnets at the RAM chips"

Share this post


Link to post
Share on other sites
dio123

eu nao se isto dá jeito , crias um modulo  e colocas o código que está em baixo .

depois no teu  programa em vez de usares    TextBox.Text = String.Empty para cada textbox chamas o control assim:

Call Limpar(Me)

ele limpa todas as textboxs comboboxs, e maskbox que tenhas na form.

  Public Sub Limpar(ByVal controlP As Control)
        Dim ctl As Control
        For Each ctl In controlP.Controls
            If TypeOf ctl Is TextBox Then
                DirectCast(ctl, TextBox).Text = String.Empty
            ElseIf TypeOf ctl Is ComboBox Then
                DirectCast(ctl, ComboBox).Text = String.Empty
            ElseIf TypeOf ctl Is MaskedTextBox Then
                DirectCast(ctl, MaskedTextBox).Text = String.Empty
            ElseIf ctl.Controls.Count > 0 Then
               Limpar(ctl)
            End If
        Next
    End Sub

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.