چگونه در ویژوال با کد نویسی تایمر ایجاد کنم؟؟

[_behnam_]

سلام
میخواستم در پروژه از چندین تایمر استفاده کنم . اما تعداد این تایمر ها متغیر یعنی شاید یک بار 1 عدد باشه و شاید یک بار تا 100 هم برسه
حالا خواستم راهنمایی کنید که چطور با کد نویسی این تایمر ها را در برنامه اجرا کنم ؟
و چطور تایمشون رو تمدید کنم؟
کسی میتونه کمک کنه؟:متفکر:

[javadt]

شما از اين تايمر ها مي خواي براي چي استفاده كني
دقيق تر بگو شايد راه بهتري باشه

[returnx]

فکر کنم اینطوری بشه :

While True
Sleep (100)
Print "X"
Wend
تابع sleep یک تابع API است که باید فرا خوانی بشه و بر حسب میلی ثانیه کار میکنه.

[xxxxx_xxxxx]

سلام،
میتونید از تابع SetTimer استفاده کنید. یک نمونه قبلاً در این تاپیک استفاده شده: http://barnamenevis.org/showthread.php?142791

[_behnam_]

شما از اين تايمر ها مي خواي براي چي استفاده كني
دقيق تر بگو شايد راه بهتري باشه
در اصل میخوام هر اسم رو واسه 2 دقیقه تو لیست باکس نگهدارم و وقتی که 2 دقیقه تموم شد اونهارو پاک کنم. و اگه اون اسم دوباره خواست تو لیست باکس ادد بشه تایمش تمدید بشه و دوباره 2 دقیقه تایمش از نو شروع بشه
میدونم با لیست ویو هم میشه اما فکر نکنم کاره آسونی باشه

[omidgold]

منهم همین کار را میخوام بکنم اما نمی دونم چجوری

[aria1o]

خوب منظورتون رو متوجه نشدم،ولی امید وارم این کمک کنه:قلب:


Private Declare Function GetTickCount Lib "kernel32" () As Long
Private Function Wait(How)
r = GetTickCount + How
Do Until r < GetTickCount
DoEvents
Loop
End Function

Private Sub Command1_Click()
a = InputBox("Add")
List1.AddItem a
Wait 20000
List1.RemoveItem 0
End Sub

[omidgold]

همین کد را توی وی بی 2008 چجوری میشه استفاده کرد؟

[volkswagen]

سلام-فکر کنم با vbscript بشه این کارو کرد.

اعلان شی کنترل تایمر:

<!.........Timer object defenition.........>
<object
classid="clsid:59ccB4A0-727D-11cf-Ac36-00AA00A47DD2"
CODEBASE="http://microsoft.com/workshop/activex/gallery/ms/timer/other/ietimer.ocx#version=4.70,0,1112"

id=timer1
>
<param name="interval value="5000">

<param name="enabled value="0">
</object>

[returnx]

همین کد را توی وی بی 2008 چجوری میشه استفاده کرد؟
همون کد رو در یک پروژه VB6 کپی کنید بعد Save کنید...
پروژه رو با VS2008 باز کنید VS خودش VB6 رو به VB.net با یک Wizard تبدیل می کنه که البته همیشه خروجی 100% درست نمیده اما تا 90% خروجی درسته...
موفق باشید...