none
Exibir numero da guid em um textbox RRS feed

  • Pergunta

  • Bom Dia Pessoal,

    Estou fazendo uma rotina em vb.net e preciso que aparece o numero da guid do sistema em uma textbox, tem jeito de fazer isso????

    Procurei na web mas so encontrei gerar um novo numero da guid, mas não e isso que quero, so quero pegar o numero que já tenho, e colocar em um textbox, se tiver alguem que possa dar um exemplo de como fazer isso, agradeço.

    Desde já muito obrigado.

    Pablo Sousa.


    PabloSousa

    segunda-feira, 17 de julho de 2017 12:38

Respostas

  • Seu Framework deve ser 2.0...

             Utilize dessa maneira:

      Dim assembly As Assembly
            assembly = Assembly.GetExecutingAssembly()
    
            Dim atributos As GuidAttribute
    
            atributos = CType(assembly.GetCustomAttributes(GetType(GuidAttribute), True)(0), GuidAttribute)
    
    
            If atributos IsNot Nothing Then
    
                MessageBox.Show(atributos.Value)
    
            End If

    • Marcado como Resposta Pablo_1977 terça-feira, 18 de julho de 2017 17:44
    terça-feira, 18 de julho de 2017 17:38

Todas as Respostas

  • Boa tarde, Pablo_1977.

    Tudo bem?

    Obrigado por usar o fórum MSDN.

    Essa seria uma questão de "Break Fix/Erro" ou "How to/Customização"?

    Atenciosamente,


    Filipe B de Castro

    Esse conteúdo é fornecido sem garantias de qualquer tipo, seja expressa ou implícita

    MSDN Community Support

    Por favor, lembre-se de Marcar como Resposta as postagens que resolveram o seu problema. Essa é uma maneira comum de reconhecer aqueles que o ajudaram e fazer com que seja mais fácil para os outros visitantes encontrarem a resolução mais tarde.

    segunda-feira, 17 de julho de 2017 20:51
    Moderador
  • Boa Noite Filipe,

    Obrigado pela resposta, felipe nem break fix, nem how to, e um help mesmo campeão, preciso fazer essa rotina pegar o numero ou string da guid do sistema e colocar em um textbox, já procurei por toda web, so achei exemplo de como criar uma nova guid, mas não quero criar uma nova guid para meu sistema não do windows, meu sistema em vb.net, você pode me ajudar filipe???

    Desde já agradeço, muito obrigado.

    Pablo Sousa.


    PabloSousa

    segunda-feira, 17 de julho de 2017 23:21
  • Bom dia, 

      Veja esse "help" pode lhe ajudar:

    Imports System.Reflection
    Imports System.Runtime.InteropServices
    
    Public Class Form1
        Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    
            Dim assembly As Assembly
            assembly = Assembly.GetExecutingAssembly()
    
            Dim atributos As GuidAttribute
    
            atributos = assembly.GetCustomAttributes(Of GuidAttribute).FirstOrDefault()
    
            If atributos IsNot Nothing Then
    
                MessageBox.Show(atributos.Value)
    
            End If
    
        End Sub
    End Class

    terça-feira, 18 de julho de 2017 13:32
  • Bom Dia Daniel,

    Muito obrigado pela atenção, coloquei codigo aqui mas esta dando erro, aparece assim pra mim, " falha na resolução da sobrecarga porque nenhum getcustomattributes acessivel aceita este numero de argumentos de tipo."

    Daniel sabe porque esta aparecendo isso???

    Desde já agradeço atenção, muito obrigado.

    Pablo Sousa.


    PabloSousa

    terça-feira, 18 de julho de 2017 14:36
  • Bom Dia Daniel,

    Muito obrigado pela atenção, coloquei codigo aqui mas esta dando erro, aparece assim pra mim, " falha na resolução da sobrecarga porque nenhum getcustomattributes acessivel aceita este numero de argumentos de tipo."

    Daniel sabe porque esta aparecendo isso???

    Desde já agradeço atenção, muito obrigado.

    Pablo Sousa.


    PabloSousa

    Posta seu codigo...
    terça-feira, 18 de julho de 2017 15:31
  • Daniel Boa Tarde,

    Segue codigo abaixo,

    Imports System.Reflection
    Imports System.Runtime.InteropServices
    
    Public Class Form5
    
        Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
    
            Dim assembly As Assembly
            assembly = assembly.GetExecutingAssembly()
    
            Dim atributos As GuidAttribute
    
            atributos = assembly.GetCustomAttributes(Of GuidAttribute).FirstOrDefault()
    
            If atributos IsNot Nothing Then
    
                MessageBox.Show(atributos.Value)
    
            End If
    
        End Sub
    End Class

    Desde já agradeço, muito obrigado

    Pablo Sousa.


    PabloSousa

    terça-feira, 18 de julho de 2017 17:01
  • Seu Framework deve ser 2.0...

             Utilize dessa maneira:

      Dim assembly As Assembly
            assembly = Assembly.GetExecutingAssembly()
    
            Dim atributos As GuidAttribute
    
            atributos = CType(assembly.GetCustomAttributes(GetType(GuidAttribute), True)(0), GuidAttribute)
    
    
            If atributos IsNot Nothing Then
    
                MessageBox.Show(atributos.Value)
    
            End If

    • Marcado como Resposta Pablo_1977 terça-feira, 18 de julho de 2017 17:44
    terça-feira, 18 de julho de 2017 17:38
  • Boa Tarde Daniel,

    Parabens garoto deu certinho, era isso mesmo que precisava.

    Muito obrigado.

    Pablo Sousa.


    PabloSousa

    terça-feira, 18 de julho de 2017 17:44