gilsoft
جمعه 19 آبان 1391, 11:39 صبح
سلام دوستان
ابتدا ماجول زیر را ملاحظه بفرمایید :
Public Function Delay(ByVal Second As Double, Optional ByVal EscToCancel As Boolean = False) As Boolean
If EscToCancel = True Then
If KeyPress = ChrW(27) Then ' chrw(27) = {Esc} Key
'
' بجای KeyPress چه کدی بزارم
'
Exit Function
End If
End If
Dim Finish As Double = Second + Microsoft.VisualBasic.DateAndTime.Timer
Do While Microsoft.VisualBasic.DateAndTime.Timer < Finish : Loop
Delay = True
End Function 'Delay()
در سطر 5 چه کدی باید بنویسم ؟ :متفکر:
آیا همچین چیزی امکان پذیر هست ؟ :متفکر:
ممنون میشم یه راهنمایی کنید .... :لبخندساده:
ابتدا ماجول زیر را ملاحظه بفرمایید :
Public Function Delay(ByVal Second As Double, Optional ByVal EscToCancel As Boolean = False) As Boolean
If EscToCancel = True Then
If KeyPress = ChrW(27) Then ' chrw(27) = {Esc} Key
'
' بجای KeyPress چه کدی بزارم
'
Exit Function
End If
End If
Dim Finish As Double = Second + Microsoft.VisualBasic.DateAndTime.Timer
Do While Microsoft.VisualBasic.DateAndTime.Timer < Finish : Loop
Delay = True
End Function 'Delay()
در سطر 5 چه کدی باید بنویسم ؟ :متفکر:
آیا همچین چیزی امکان پذیر هست ؟ :متفکر:
ممنون میشم یه راهنمایی کنید .... :لبخندساده: