یک سوال در مورد Label

[renjerk]

با سلام
من یک لیبل دارم که در کاپشن اون اعدادی تغیر میکند مثلا 1 و2 وسه همینجور تا آخر خوب من میخوام اگه این کاپشن یک دقیقه گذشت و عدد درون اون تغیر نکرد یک دکمه کلیک بخورد. ممنون راهنمایی کنید

[fazelm]

با سلام
من یک لیبل دارم که در کاپشن اون اعدادی تغیر میکند مثلا 1 و2 وسه همینجور تا آخر خوب من میخوام اگه این کاپشن یک دقیقه گذشت و عدد درون اون تغیر نکرد یک دکمه کلیک بخورد. ممنون راهنمایی کنید

از تایمر استفاده کن

یک دکمه کلیک خوردن اصلا معنی نداره میتونی بگی یک شرط رو داشت یک کاری رو انجام بده

[renjerk]

منظورم این هست که گاهی وقتها این کاپشن لیبل تغغیر نمیکند و من میخوام اگر این کپشن یک دقیقه گذشت و تغییر نکرد یک مسیج برای من بیاید

[ameri110]

یه تایمر میزاری
با یه تکست باکس
برای تایمر این رو می نویسی
text1.text = text1.text
if text = 60000 then
msgbox "salam"
end if

برای لیبل هم یه لیبل چنج ایجاد می کنه می نویسی :
text1.text = 0

-------------
اگه موفق نشدی سورس رو بده برات درست کنم

[ahmads]

سلام دوست عزیز

یک ابزار Timer به فرمتون اضافه کنید . Interval اون فرقی نداره چون به اون وابسته نیست . میتونید 1 یا هر عدد دیگه ای رو انتخاب کنید .

این کد رو میتونید برای مطمئن شدن از عملکرد برنامه امتحان کنید :


Dim a(2) As Integer

Private Sub Form_Load()
a(1) = Second(Now)
End Sub

Private Sub Label1_change()
a(1) = Second(Now)
End Sub

Private Sub Timer1_Timer()
a(2) = Second(Now)
If a(2) - a(1) = 5 Then
MsgBox ("5sec gozasht")
End If
End Subاما اونطوری که متوجه شدم شما این کد رو لازم دارید :


Dim a(2) As Integer

Private Sub Label1_change()
a(1) = 0
End Sub

Private Sub Timer1_Timer()
a(2) = Second(Now)
If a(2) - a(1) = 59 Then
MsgBox ("payame shoma")
End If
End Subحالا اگه میخواید بعد از اینکه label شما اولین تغییر رو داشت به بعد مد نظر گرفته بشه ، نه از اجرای برنامتون اول خاصیت Enable تایمر رو روی False تنظیم کنید و بعد از کد زیر استفاده کنید :


Dim a(2) As Integer

Private Sub Label1_change()
Timer1.Enabled = True
a(1) = 0
End Sub

Private Sub Timer1_Timer()
a(2) = Second(Now)
If a(2) - a(1) = 59 Then
MsgBox ("payame shoma")
End If
End Subاینشالله که به کارتون بیاد

موفق باشید

[ali_habibi1384]

رویداد کلیک اون دکمه رو در تایمر فرا خوانی کنید

[sajjad_india]

اینطوری

call Command1_Click