+- Parsi Coders (http://parsicoders.com)
+-- انجمن: Software Development Programming (http://parsicoders.com/forumdisplay.php?fid=37)
+--- انجمن: Visual Basic Programming (http://parsicoders.com/forumdisplay.php?fid=39)
+---- انجمن: Visual Basic 6 (http://parsicoders.com/forumdisplay.php?fid=44)
+---- موضوع: مثال جالب برای Environ (/showthread.php?tid=2694)
مثال جالب برای Environ - Ghoghnus - 08-22-2012
سـلام دوستان یه مثال جالب برای Environ دیدم گفتم بزارم شاید بکار بقیه هم بیاد!
کد:
Private Sub Command1_Click()
Dim x As Long, v As String
'------------------------------------------------------------
' Get the first Environ Variable
'------------------------------------------------------------
x = 1
v = "" & Environ(x)
'------------------------------------------------------------
' Loop until there are no more variables
'------------------------------------------------------------
While v <> ""
'------------------------------------------------------------
' Output the value
'------------------------------------------------------------
List1.AddItem v
'------------------------------------------------------------
' Get the next value
'------------------------------------------------------------
x = x + 1
v = "" & Environ(x)
Wend
End Sub