• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

vaurdan

Ajuda Em VB6- TextBox

31 mensagens neste tópico

Olhem como faço para que numa TextBox Apareca o que esta escrito no Text1?

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

textbox1.text = text1.text e assim nao se se a textbox primorio se a text mas ve das duas maneiras

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

lol

enganeune eu n queria dizer textbox keria dizer msgbox XD

pa n é

Private Sub Command1_Click()

msgbox ("Olá Text1.Text")

End Sub

depois aparecia: Olá Vaurdan

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Depois posta aqui o resultado final pk nao estou a perceber o objectivo sff :)

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

lol

enganeune eu n queria dizer textbox keria dizer msgbox XD

pa n é

Private Sub Command1_Click()

msgbox ("Olá Text1.Text")

End Sub

depois aparecia: Olá Vaurdan

Text1.Text() é uma função que devolve uma string, quando colocas entre aspas torna-se numa frase qualquer (string).

Por na mensagem apareceu o seguinte: Olá Text1.Text  ... assim não funciona!!

O que deves querer é isto:

MsgBox(" Olá " + Me.TextBox1.Text())

Assim tens a string " Olá " + a string devolvida pela função Text1.Text(), que é o texto que está no 'objecto' Text1!

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

MsgBox (" Olá " + Me.Text1.Text() + ", Como estas??", VBOkOnly+VBExclamation)

isto dá erro... :/ pk?

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

olha ja agora, como faço para defenir o me.Text1.Text na variable 'A' ?

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

MsgBox (" Olá " + Me.Text1.Text() + ", Como estas??", VBOkOnly+VBExclamation)

isto dá erro... :/ pk?

Dá erro porque tás a usar os () quando não estás a igualar isso a uma variavel, portanto retira os () e ja fica correcto. Outra coisa, não precisas de usar o "Me.Text1.Text()", basta-te por "Text1.text"

olha ja agora, como faço para defenir o me.Text1.Text na variable 'A' ?

Basta fazeres a declaração da variavel como string e igualares ao que tu queres.

Ex:

Dim a as String

a = text1.text

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

If Text1.Text = "" Then

MsgBox "Por Favor Insere um Nome.", vbInformation, "Erro"

End If

Eu tenho 9 Commandsbottons onde posso por isto sem ser nesses 9 botoes???

Edit: Onde Ponho a a = me.Text1.Text ? Na general declaracions? se for ai dá erro...

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

MsgBox (" Olá " + Me.Text1.Text() + ", Como estas??", VBOkOnly+VBExclamation)

isto dá erro... :/ pk?

A mim isto não deu erro:

MsgBox(" Olá " + Me.TextBox1.Text() + ", Como estas??", vbOKOnly + vbExclamation)

Talvez por utilizar o VB.NET

If Text1.Text = "" Then

MsgBox "Por Favor Insere um Nome.", vbInformation, "Erro"

End If

Eu tenho 9 Commandsbottons onde posso por isto sem ser nesses 9 botoes???

Crias uma função que é chamada em cada botão...

Um exemplo simples, em que retorna true ou false:

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.accao(Me.TextBox1.Text())
    End Sub

    Private Function accao(ByVal a As String) As Boolean
        If a = "" Then
            MsgBox("Por Favor Insere um Nome.", vbInformation, "Erro")
            accao = False
        Else
            MsgBox(" Olá " + a + ", Como estas??", vbOKOnly + vbExclamation)
            accao = True
        End If
    End Function

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

O Priblema desse code é que tem msgs diferentes cada botão...

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

O Priblema desse code é que tem msgs diferentes cada botão...

Como eu pus no código e que é puramente didáctico (pq não há necessidade de passar o Me.TextBox1.Text(), poix a funcção accao tem acesso à isso),

podes passar argumentos pela função!... e sendo mensagens diferentes, pk não passar a mensagem como um argumento da função?

fica aqui outro exemplo com dois botoes:

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.accao(" Nome", "Olá ", ", como estás??")
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.accao("a Idade", "Tu tens ", " anos!!!")
    End Sub

    Private Function accao(ByVal tipo As String, ByVal msg_antes As String, ByVal msg_depois As String) As Boolean
        If Me.TextBox1.Text() = "" Then
            MsgBox("Por Favor Insere um" + tipo + ".", vbInformation, "Erro")
            accao = False
        Else
            MsgBox(msg_antes + Me.TextBox1.Text() + msg_depois, vbOKOnly + vbExclamation)
            accao = True
        End If
    End Function

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

lol n ha nada + simples tipo por aquilo num modulo e pronto aquilo falta e da erro sem ter que identificar todos os botoes. tipo todos os botoes que tao redirecionados para o que esta escrito aparecia a msg

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

olha pá e como faço que um texto numa comon box apareca na Text1?

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

olha pá e como faço que um texto numa comon box apareca na Text1?

Se quiseres o texto q está exibido actualmente na combobox faz assim:

text1.text = combo1.text

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

pa n é isso.

eu kero tipo nos selecionamos o intem e depois aparece escrito... lol

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

vaurdan... como tu foste ao longo deste post todo explicando o teu problema por meias palavras gostava que no espaço a seguir ao meu post fizesses um post com cabeça tronco e membros onde explicásses o que queres fazer....

desculpa lá mas não me apetece descodificar.... :)

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

vaurdan... como tu foste ao longo deste post todo explicando o teu problema por meias palavras gostava que no espaço a seguir ao meu post fizesses um post com cabeça tronco e membros onde explicásses o que queres fazer....

desculpa lá mas não me apetece descodificar.... :)

Concordo, se não passamos o topico todo a tirar no escuro e tu a dizeres "Não é isso, o que eu queria era text1 pacotes texto mandar msg..." E ficamos na mesma.

Vou ser sincero, não percebi o que tu queres, tens de ser mais coerente, mais explícito, usar pontuação adequada e uma boa gramática, já que as outras pessoas não estão dentro do mesmo contexto que tu.

lol n ha nada + simples tipo por aquilo num modulo e pronto aquilo falta e da erro sem ter que identificar todos os botoes. tipo todos os botoes que tao redirecionados para o que esta escrito aparecia a msg

:eek: Não percebo... " esta escrito aparecia a msg" 3 verbos seguidos  :wallbash:

não disseste que cada botão tinha uma mensagem diferente? agora queres um módulo para todos os botões?

Bem mesmo que queiras um módulo para todos os botões, vais ter de fazer em cada bloco a função (penso eu de que...):

    Private Sub ButtonX_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.modulo()
    End Sub

tipo todos os botoes que tao redirecionados para o que esta escrito aparecia a msg

Queres isto?

Select Me.TextBox1.Text()
Case "Nome"
      MsgBox("Nome")
Case "Idade"
      MsgBox("Idade")
Case Else
      MsgBox("Por Favor Insere uma categoria!")
End Select

E

pa n é isso.

eu kero tipo nos selecionamos o intem e depois aparece escrito... lol

Não percebo o que queres...  :shocking:

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Coitado do Rapaz lol!

Eu sei que e vdd o que vces tao a dizer mas assim ele fica envergonhado :)

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Coitado do Rapaz lol!

Eu sei que e vdd o que vces tao a dizer mas assim ele fica envergonhado :P

Não é uma questão de ficar envergonhado ou não, é mesmo uma questão de expor correctamente o problema.Até agora ainda não o fez com os posts minúsculos que gostava de fazer... :)

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

muito bem, eu vou esplicar (ou tentar explicar) correctamente. Imaginem, Temos uma ComboBox. Tem as Opções Texto1,Texto2,Texto3. Ao selecionarmos num desses, aparece o texto escrito numa TextBox. Por Ex. Seleciono o Texto2 e na minha TextBox Aparece escrito 'Texto2'.

Compreenderam?

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora