1. Este site usa cookies. Ao continuar a usar este site está a concordar com o nosso uso de cookies. Saber Mais.

vb6 - Environment Variables

Discussão em 'Programação' iniciada por psnow, 3 de Julho de 2008. (Respostas: 2; Visualizações: 1457)

  1. psnow

    psnow Power Member

    Como usar?

    Imaginando que eu quero mostrar o nome do utilizador em numa textbox txtuser, e que a variavel é %USERNAME%, como faço?

    obrigado desde já
     
  2. Armadillo

    Armadillo Folding Member

    Código:
    me.txtuser.text = Environ ("USERNAME")
    
    in MSDN
    Código:
    This example uses the [B]Environ[/B] function to supply the entry number and  length of the PATH statement from the environment-string table.  
    Dim EnvString, Indx, Msg, PathLen   ' Declare variables.
    Indx = 1   ' Initialize index to 1.
    Do
       EnvString = [B]Environ([/B]Indx[B])[/B]   ' Get environment 
                ' variable.
       If Left(EnvString, 5) = "PATH=" Then   ' Check PATH entry.
          PathLen = Len([B]Environ([/B]"PATH"[B])[/B])   ' Get length.
          Msg = "PATH entry = " & Indx & " and length = " & PathLen
          Exit Do
       Else
          Indx = Indx + 1   ' Not PATH entry,
       End If   ' so increment.
    Loop Until EnvString = ""
    If PathLen > 0 Then
       MsgBox Msg   ' Display message.
    Else
       MsgBox "No PATH environment variable exists."
    End If
    
    
     
    Última edição: 3 de Julho de 2008
  3. psnow

    psnow Power Member

    Funcionou, obrigado!
     

Partilhar esta Página