TAO SIMPLES E NAO FUNCIONA. POR QUE?
Passo a propriedade Text de um TextBox para que seja alterada em um outro Sub.
Mas não funciona. Sempre fiz isso em outras linguagens. Tô esquecendo de alguma coisa?
Private Sub Command1_Click()
AlterarTexto Text1.Text
End Sub
Public Sub AlterarTexto(ByRef Txt As String)
Txt = [Ô]abc[Ô]
End Sub
Exemplo:
Public Sub AlterarTexto(ByRef Txt As String)
Txt = [Ô]abc[Ô]
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
AlterarTexto(Text1.Text)
End Sub
Citação::
Aqui se você fizer com um botão faz certinho:
Exemplo:
Public Sub AlterarTexto(ByRef Txt As String)
Txt = [Ô]abc[Ô]
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
AlterarTexto(Text1.Text)
End Sub
Colega, valeu pela boa vontade, mas esse código nem complila.
Esse fórum é de VB e suponho que isso que você escreveu seja para .NET.
AlterarTexto Command1, Text1.Text
End Sub
Public Sub AlterarTexto(botao As CommandButton, Texto As String)
botao.Caption = Texto
End Sub
Não sei o que vc pretende fazer, mas pelo que entendi , use esse código
Private Sub Command1_Click()
Me.Text1.Text = AlterarTexto(Me.Text1.Text)
End Sub
Function AlterarTexto(ByRef Txt As String) As String
Dim rTxt As String
rTxt = [Ô]abc[Ô]
AlterarTexto = rTxt
End Function
Citação:Colega, valeu pela boa vontade, mas esse código nem complila.
Esse fórum é de VB e suponho que isso que você escreveu seja para .NET.
VB.NET oras??? rsrsrsrs
Explique melhor o que você quer fazer, você quer adicionar um comando em um botão ou algo do tipo é isso?
Se possivel, anexe seu projeto para analisarmos.
Citação::
Private Sub Command1_Click()
AlterarTexto Command1, Text1.Text
End Sub
Public Sub AlterarTexto(botao As CommandButton, Texto As String)
botao.Caption = Texto
End Sub
Olá.
Mas eu não quero passar o controle como parâmetro. Isso é absolutamente redundante e feio prá caramba, pois eu já tenho disponÃvel a propriedade Text antes de chamar o Sub.
Não há nenhum motivo lógico para o sub AlterarTexto não alterar a propriedade do Textbox.
Concorda?
Citação::
Tenta isso
Não sei o que vc pretende fazer, mas pelo que entendi , use esse código
Private Sub Command1_Click()
Me.Text1.Text = AlterarTexto(Me.Text1.Text)
End Sub
Function AlterarTexto(ByRef Txt As String) As String
Dim rTxt As String
rTxt = [Ô]abc[Ô]
AlterarTexto = rTxt
End Function
Os amigos não estão percebendo.
Esses exemplos que voces colocaram até funcionam, mas o problema é que não faz sentido o compilador do VB6 não executar o código que eu coloquei.
Essa função que eu mostrei aqui (AlterarTexto) é apenas uma simplificação de uma situação real bem mais complexa.
Passar propriedades de controles como parâmetros para serem alteradas em outros procedimentos e funções é algo muito básico para não funcionar.
Concordam?