none
Difícil explicar o que quero por isso olhem o exemplo RRS feed

  • Pergunta

  • label1.text = "Teste"

    ao invés de fazer isso queria fazer assim:

    dim a as string = "label1"

    a.text = "teste"

    Sera tem algum jeito parecido?

    quinta-feira, 28 de março de 2013 20:50

Todas as Respostas

  • Dim A as String = label1.text;

    messagebox.show(a.soString())


    A flower cannot blossom without sunshine, and man cannot live without love.


    quinta-feira, 28 de março de 2013 22:40
    Moderador
  • Existe.

    Isso se chama reflection.

    Veja um exemplo

    Dim obj As New MyObject()
    Dim prop As PropertyInfo = obj.GetType().GetProperty("Name", BindingFlags.Publi] Or BindingFlags.Instance)
    If prop IsNot Nothing AndAlso prop.CanWrite Then
    	prop.SetValue(obj, "MyName", Nothing)
    End If

    É claro que vc vai ter adicionar o System.Reflection para funcionar:

    Imports System.Reflection

    att


    William John Adam Trindade
    Analyste-programmeur
    ----------------------------------------------------------

    Sogi informatique ltée


    sexta-feira, 29 de março de 2013 18:01
    Moderador
  • O codigo acima nao funciona como vc quer... Para isso use o emplo abaixo:

    Imports System.Reflection
    
    Public Class Form1
    
        Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    
            Dim obj As Object = Me.Controls.Find(TextBox1.Text, False).First()
    
            Dim prop As PropertyInfo = obj.GetType().GetProperty("Text", BindingFlags.Public Or BindingFlags.Instance)
            If prop IsNot Nothing AndAlso prop.CanWrite Then
                prop.SetValue(obj, "Alterado", Nothing)
            End If
        End Sub
    End Class
    

    Veja o Formulario:

    Preenchendo o textbox com o valor Label1 ele vai trocar a propriedade Text deste Label,  veja:

    Att


    William John Adam Trindade
    Analyste-programmeur
    ----------------------------------------------------------

    Sogi informatique ltée

    sexta-feira, 29 de março de 2013 18:33
    Moderador