Ajuda Em VB6- TextBox

[vaurdan]

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

[pebat]

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

[vaurdan]

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

[UnKnowN]

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

[brink@ero]

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!

[vaurdan]

e se quiser retonar á frase tipo Olá nome , Como tas?

[vaurdan]

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

isto dá erro... :/ pk?

[vaurdan]

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

[Tiago Salgado]

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

[vaurdan]

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...

[brink@ero]

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

[vaurdan]

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

[brink@ero]

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

[vaurdan]

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

[vaurdan]

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

[Tiago Salgado]

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

[vaurdan]

pa n é isso.

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

[vaurdan]

ALOOO

[deathseeker25]

ALOOO

vaurdan, como administrador do forum, sugiro que leias isto: http://www.portugal-a-programar.pt/index.php?showtopic=1605.

Espero não ver mais destas mensagens ou começarei a tomar medidas.

[vbmaster]

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.... 🙂