ايران ويج - معادل تابع delay سی در وی بی

معادل تابع زیر که در زبان سی است را در ویژوال بیسیک میخواهم
delay(10)
یه چیزی مثل wait
حلقه فور تو خالی هم گزاشته ام ولی نشد
میخواهم در برنامه ام یک وقفه چند ثانیه ای داشته باشم
برنامه من این است میخواهم مقدار یک تکست را به صورت وقفه ای در یک لیبل چاپ کنم
مثلآ اسم محمد ابتدا م بعد ح بعد مو..
پیشاپیش از راهنمایتان ممنون

توابع تايمر
تابع اسليپ

Iron_Fist نوشته است:توابع تايمر
تابع اسليپ

با تشکر
یک تابع که وقفه ایجاد کنه توابع تایمر را دارم ولی چنین چیزی در آنها ندیده ام

mrpn نوشته است:
Iron_Fist نوشته است:توابع تايمر
تابع اسليپ
با تشکر
یک تابع که وقفه ایجاد کنه توابع تایمر را دارم ولی چنین چیزی در آنها ندیده ام

اسليپ چي

کد: 
Public Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)

Public Declare Function SleepEx Lib "kernel32" Alias "SleepEx" (ByVal dwMilliseconds As Long, ByVal bAlertable As Long) As Long

اسليپ چي

کد: 
Public Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)

Public Declare Function SleepEx Lib "kernel32" Alias "SleepEx" (ByVal dwMilliseconds As Long, ByVal bAlertable As Long) As Long

[/quote]

دستت درد نکنه ولی کارم نشد یه نگاه به کد زیر بنداز بهد از صد میلی ثانیه عبارت داخل تکست یکجا در لیبل قرار میگیره ولی من میخواهم تک تک حروف با صد میلی ثانیه وقفه داخل لیبل باشه
For i = 1 To 10
Sleep (100)
Label1.Caption = Left(Text1.Text, i)
Next

بيا حتما با اين كدي كه نوشتم مشكلت حله
http://h1.ripway.com/KP/Hal_Kon.zip

اگه از سورس خوشت نيومد يه راه ديگه هم ياديم اومد
مي توني بعد از هر دستور اسليپ بنويسي

کد: 
Me.Refresh

Iron_Fist نوشته است:بيا حتما با اين كدي كه نوشتم مشكلت حله
http://h1.ripway.com/KP/Hal_Kon.zip

ای ول خیلی عالی بود امان از بی سوادی میدونستما ولی نک زبونم بود
30مر

قابل شما رو نداشت
اون

کد: 
Me.Refresh

رو هم امتحان كن

مهر هزار آفرینم کمه من دنبال یه چیزی مثل دومی بودم آفرین با با حال کردم

mrpn نوشته است:مهر هزار آفرینم کمه من دنبال یه چیزی مثل دومی بودم آفرین با با حال کردم

قابل نداشت