Milieu variabelen worden onderhouden door het Windows-besturingssysteem . Omgevingsvariabelen worden gebruikt in scripts of Visual Basic programma te verwijzen naar een standaard directory die verschillen van de ene machine naar de andere kan zijn . Zo zal de " PATH " omgevingsvariabele waarschijnlijk anders op elke computer . " SYSTEM ROOT " is een andere omgeving variabele die is verschillend voor elk besturingssysteem . Er zijn ook vooraf gedefinieerde omgevingsvariabelen zoals " DATUM " en " TIME ". VB -toepassingen kunnen omgevingsvariabelen lezen met de functie " Environ " . Instructies 1 Maak een nieuw standaard-EXE Visual Basic -project . Een formulier met de naam " Form1 " wordt standaard gemaakt . Kopen van 2 Declare lokale variabelen in het " Form1 " load event . U zult een integer , een boolean en een string om de waarde van de omgevingsvariabele houden Dim i als Integer Dim bFound als Boolean Dim sEnvValue als String nodig . 3 Stel de " i " variabele gelijk aan een . Vervolgens leest de omgevingsvariabele op positie een in de index en op te slaan in " sEnvValue . " SEnvValue = Environ ( i ) Loop Goedkope 4 door alle omgevingsvariabelen totdat u vinden degene die je zoekt . Doe dit met een " Terwijl" statement . Deze code stelt " bFound " op true als de " PATH " variabele omgeving ligt . Terwijl Niet bFound EN sEnvValue < > " " Als UCase (Links ( sEnvValue , 5 ) ) = " PATH = " = True Else i = i + 1 sEnvValue = Environ ( i ) op bFound dan End If Wend de functie " UCase " bekeerlingen " sEnvValue " om alle hoofdletters , omdat de vergelijking is hoofdlettergevoelig . Als " PATH " niet wordt gevonden , lees de volgende omgevingsvariabele totdat we ze allemaal hebben gelezen . 5 Controleer de waarde van " bFound " om te bepalen welke stappen te volgend voeren . We hebben nu de waarde van de " PATH " omgevingsvariabele gelegen in " sEnvValue " en kan het ontleden , weer te geven , plaatst u deze in een tabel , schrijven naar een bestand of enige andere acties die u normaal zou nemen met een string variabele . < br >
|