Jump to content
emanuelx

passar valor da varialvel do dll para o .exe

Recommended Posts

emanuelx

Boas Pessoal!

Eu tenho algumas funções no dll.

mas existe uma função que eu precisava do valor de uma string ir para o executavel.

mas não sei como fazer.

 Public Sub lista(ByRef lista As ListBox)

        Using s As IO.Stream = System.Reflection.Assembly.GetExecutingAssembly().GetManifestResourceStream(strresources)
            
            xReader = XmlReader.Create(s)
            ' Dim xDoc As XElement = XElement.Load(xReader)

            XDOC.Load(xReader)
            For Each XMLE As Xml.XmlElement In XDOC.SelectNodes("telefone")
                Dim C As New telefone
                C.Nome = XMLE.Attributes("nome").Value
                C.Link = XMLE.Attributes("email").Value
                C.Img = XMLE.Attributes("telefone").Value
                Lista.Items.Add(C)
            Next
        End Using
    End Sub

  ^

  |

  |

codigo do dll

A variavél telefone eu queria que fosse para outra variavel dentro do .exe.


com calma e sem stresses

Share this post


Link to post
Share on other sites
Andrepereira9

Se criares uma varivael global e depois no codigo que apresentaste leres para dentro dessa variavel não funciona??

EX:

Dim telefone as string

 Public Sub lista(ByRef lista As ListBox)

        Using s As IO.Stream = System.Reflection.Assembly.GetExecutingAssembly().GetManifestResourceStream(strresources)
           
            xReader = XmlReader.Create(s)
            ' Dim xDoc As XElement = XElement.Load(xReader)

            XDOC.Load(xReader)
            For Each XMLE As Xml.XmlElement In XDOC.SelectNodes("telefone")
                Dim C As New telefone
                C.Nome = XMLE.Attributes("nome").Value
                C.Link = XMLE.Attributes("email").Value
                C.Img = XMLE.Attributes("telefone").Value

telefone = XMLE.Attributes("telefone").Value

                Lista.Items.Add(C)
            Next
        End Using
    End Sub


A informática chegou para resolver problemas que antes não existiam

Quem ri por último é porque está conectado a 52 Kbs.

Share this post


Link to post
Share on other sites
emanuelx

pois mas eu nao sei é como fazer no codigo para o .exe ir buscar o valor da variávél telefone.


com calma e sem stresses

Share this post


Link to post
Share on other sites
emanuelx

ja consegui resolver o problema obrigado na mesma :(;)

 Public Sub lista(ByRef lista As ListBox, byref telefone as string)

        Using s As IO.Stream = System.Reflection.Assembly.GetExecutingAssembly().GetManifestResourceStream(strresources)
           
            xReader = XmlReader.Create(s)
            ' Dim xDoc As XElement = XElement.Load(xReader)

            XDOC.Load(xReader)
            For Each XMLE As Xml.XmlElement In XDOC.SelectNodes("telefone")
                Dim C As New telefone
                C.Nome = XMLE.Attributes("nome").Value
                C.Link = XMLE.Attributes("email").Value
                C.Img = XMLE.Attributes("telefone").Value

telefone = XMLE.Attributes("telefone").Value

                Lista.Items.Add(C)
            Next
        End Using
    End Sub


com calma e sem stresses

Share this post


Link to post
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

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