• ¡Welcome to Square Theme!
  • This news are in header template.
  • Please ignore this message.
مهمان عزیز خوش‌آمدید. ورود عضــویت


امتیاز موضوع:
  • 20 رای - 3 میانگین
  • 1
  • 2
  • 3
  • 4
  • 5
Title: مثال جالب برای Environ
حالت موضوعی
#1
سـلام دوستان یه مثال جالب برای 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
rose
 
پاسخ
  


موضوعات مشابه ...
موضوع نویسنده پاسخ بازدید آخرین ارسال
  بهترین سورس برای تشخیص اتصال به اینترنت sajad-kh 0 2,070 04-08-2014، 07:33 PM
آخرین ارسال: sajad-kh
  دانلود فایل اکسس برای ساخت دیکشنری sajad-kh 0 4,024 01-28-2014، 01:24 PM
آخرین ارسال: sajad-kh
  آموزش ساخت اسپمر تبلیغاتی برای بلاگفا Amin_Mansouri 14 18,943 12-27-2013، 08:46 PM
آخرین ارسال: SnipeR
Photo کمک برای ساخت نرم افزار amolhackers 7 6,116 01-19-2013، 11:19 PM
آخرین ارسال: amolhackers
Question سورس ftp برای کیلاگر gachboy 2 3,948 11-09-2012، 12:09 PM
آخرین ارسال: gachboy
  سورس کد ایجاد حالت حرکتی برای استرینگ(ویژوال بیسیک 6) Amin_Mansouri 0 2,236 09-05-2012، 12:23 PM
آخرین ارسال: Amin_Mansouri
  گذاشتن آیکون برای InputBox Thewolf 0 2,021 07-02-2012، 12:48 PM
آخرین ارسال: Thewolf
  گرفتن تایید برای بسته شدن برنامه parvin 11 9,606 05-23-2012، 11:03 AM
آخرین ارسال: parvin
  تعریف کد برای درایو ها keyhanifar 11 7,758 05-23-2012، 08:43 AM
آخرین ارسال: Oep
  ایجاد محدودیت برای فیلد parvin 7 5,341 04-13-2012، 10:39 PM
آخرین ارسال: Amin_Mansouri

پرش به انجمن:


Browsing: 1 مهمان