Jump to content

Ajuda Em VB6- TextBox


vaurdan
 Share

Recommended Posts

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!

Link to comment
Share on other sites

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

Link to comment
Share on other 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...

http://www.neopt.org <- O meu blog xD
Link to comment
Share on other 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
Link to comment
Share on other 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
Link to comment
Share on other 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

http://www.neopt.org <- O meu blog xD
Link to comment
Share on other sites

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

Link to comment
Share on other 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.... :)

Link to comment
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
 Share

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