تبلیغات
آموزش





آخرین مطالب
Last Posts
برچسب های مطالب
Post Tags
آمار وبلاگ
StatTat
دوستان
Friends
آرشیو
Archive
نظرسنجی
Poll
تبلیغات
برای دیدن تعرفه کلیک کنید
تبلیغات
برای دیدن تعرفه کلیک کنید
تبلیغات
برای دیدن تعرفه کلیک کنید
نظرات
آموزش نگه داشتن یک خط برنامه در ویژوال بیسیک (بدون هنگ کردن)
تاریخ ارسال : جمعه 30 تیر 1391 - 10:38 ق.ظ  ,  نویسنده : 

تعداد بازدید :

روشی در ویژوال بیسیک است که شما می توانید به را حتی یک قسمت از برنامه را طی یک زمانی نگه داشته بدون اینکه برنامه هنگ کند.

برای اینکار ابتدا تابع  GetTickCount را فراخوانی می کنیم:

Private Declare Function GetTickCount Lib "kernel32" () As Long

سپس تابع زیر را در قسمت General  می نویسیم:


Sub Pause(HowLong As Long)
    Dim u%, tick As Long
    tick = GetTickCount()
    Do
      u% = DoEvents
    Loop Until tick + HowLong < GetTickCount
End Sub
  

حالا می توانیم خطی از برنامه را به صورت زیر نگه داریم:

Private Sub Command1_Click()
Print "Pause"
Pause 4000 '1 sanyeh
Print "Play"
End Sub

برای دانلود نمونه پروژه به ادامه مطلب بروید...

موضوع :  آموزش