TAO SIMPLES E NAO FUNCIONA. POR QUE?

Citação:

Private Sub Command1_Click()
AlterarTexto Text1
End Sub
Public Sub AlterarTexto(Txt As TextBox)
Txt.Text = [Ô]VbMania[Ô]
Txt.Font.Bold = True
Txt.Alignment = 1
Txt.BackColor = vbCyan
Txt.BorderStyle = 1
Txt.Width = 3000
End Sub

Private Sub Command1_Click()
   AlterarTexto Text1, [Ô]Roberto Martins[Ô]
End Sub
Public Sub AlterarTexto(Txt As TextBox, NovoValor As String)
    Txt.Text = NovoValor
 End Sub

Private Sub Command1_Click()
   MsgBox ValorTxt(Text1)
End Sub
Public Function ValorTxt(Txt As TextBox) As String
    ValorTxt = Txt.Text
End Function

Citação:

:
olha, se olhar o lado logico, uma propriedade e uma função GET, que dentro dessa funcao tem uma variavel.
Olhando dessa forma a referencia fica em cima da função e nao em cima da variavel privada dentro da propriedade.
Por isso que uma referencia nao funciona em cima de uma propriedade, nao sei se em java ou outra linguagem isso e possivel e o compilador consegue interpertar que na verdade vc quer fazer uma referencia a propriedade (funcao get) e ter ao endereço de memoria da variavel privada dentro desta função.

Se isso fosse prossivel, para que usar propriedades se é possivel associar diretamente a variavel dentro da propriedade.

Vejo isso como segurança!

Por isso associamos o objeto como referencia!

Citação:

:
:
olha, se olhar o lado logico, uma propriedade e uma função GET, que dentro dessa funcao tem uma variavel.
Olhando dessa forma a referencia fica em cima da função e nao em cima da variavel privada dentro da propriedade.
Por isso que uma referencia nao funciona em cima de uma propriedade, nao sei se em java ou outra linguagem isso e possivel e o compilador consegue interpertar que na verdade vc quer fazer uma referencia a propriedade (funcao get) e ter ao endereço de memoria da variavel privada dentro desta função.

Se isso fosse prossivel, para que usar propriedades se é possivel associar diretamente a variavel dentro da propriedade.

Vejo isso como segurança!

Por isso associamos o objeto como referencia!


Amigo, quando se passa alguma coisa ByRef para um sub, estamos informando ao sub o endereço da área de memória daquilo que estamos passando. O compilador, de posse desse endereço, DEVE poder ler e gravar nessa área. Não importa se é uma variável simples, uma propriedade de um controle, etc.

A prova de que isso que estamos discutindo aqui é um BUG do compilador, é que é possível mostrar que o valor da propriedade do controle FOI passado para dentro do sub. Basta usar um simples Msgbox (eu coloquei um exemplo acima). Existem outras situações em que o compilador avisa que um certo parâmetro só pode ser passado ByRef. No caso aqui, ele não fala nada. Ele aceita, compila e NÃO executa. Imagina esse BUG no meio de milhares de linhas de código. é aí que a coisa pega, não nesses exemplos inocentes que eu coloquei aqui.

Temos que aceitar que os [Ô]autores[Ô] do compilador ERRARAM e esqueceram de implementar ByRef para esse caso e ficaram apenas com ByVal, já que só é possível ler o valor.
Mais um bug prá coleção. E como o VB não tem mais atualizações, será um bug eterno.

Citação:

:
Você analisou a resposta que postei?

Private Sub Command1_Click()
AlterarTexto Text1
End Sub
Public Sub AlterarTexto(Txt As TextBox)
Txt.Text = [Ô]VbMania[Ô]
Txt.Font.Bold = True
Txt.Alignment = 1
Txt.BackColor = vbCyan
Txt.BorderStyle = 1
Txt.Width = 3000
End Sub

Veja esse outro exemplo:

Private Sub Command1_Click()
   AlterarTexto Text1, [Ô]Roberto Martins[Ô]
End Sub
Public Sub AlterarTexto(Txt As TextBox, NovoValor As String)
    Txt.Text = NovoValor
 End Sub

Outro Exemplo:

Private Sub Command1_Click()
   MsgBox ValorTxt(Text1)
End Sub
Public Function ValorTxt(Txt As TextBox) As String
    ValorTxt = Txt.Text
End Function

Citação:

Mesmo assim, acho que é questão de entender o conceito de como se acessa uma propriedade.

 
Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

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

    Sub alterartexto(ByRef txt As String)
        txt = [Ô]teste[Ô]
    End Sub
End Class

Citação:

:
Feito teste no vb.net (visual studio 2010)

 
Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

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

    Sub alterartexto(ByRef txt As String)
        txt = [Ô]teste[Ô]
    End Sub
End Class

Resultado, o valor é alterado sem problema.

Então o Vb.Net se comporta diferente do vb 6.