چشمک زدن لیبل

[soheilbehro]

چطوری می تونم یه کاری بکنم که لیبل من یک ثانیه دیده بشه ، یه ثاتیه دیده نشه و همین طور.....

[alihassanabadi]

سلام
میتونی از تایمر استفاده کنی و interval ش رو برابر 1000 قرار بدی
بعد یه متغییر از نوع intager تعریف و تو فرم لود برابر 0 قرارش بدی بعد کد زیر


Select Case n
Case 0
Command1.Visible = False
n = 1
Case 1
Command1.Visible = True
n = 0
End Select

اگه میخوای چشمک بزنه این کد کار قشنگتری رو انجام میده


Private Sub Timer1_Timer()
Label2.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
End Sub

interval رو برابر250 قرار بده
با تشکر
____________________________________
دست هایی که کمک میکنند مقدس تر از لب هایی هستند که دعا میکنند.کوروش کبیر

[soheilbehro]

[quote=alihassanabadi;818317]سلام
میتونی از تایمر استفاده کنی و interval ش رو برابر 1000 قرار بدی
بعد یه متغییر از نوع intager تعریف و تو فرم لود برابر 0 قرارش بدی بعد کد زیر


Select Case n
Case 0
Command1.Visible = False
n = 1
Case 1
Command1.Visible = True
n = 0
End Select
اگه میخوای چشمک بزنه این کد کار قشنگتری رو انجام میده


Private Sub Timer1_Timer()
Label2.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
End Sub
interval رو برابر250 قرار بده
با تشکر
____________________________________

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

[MBG73]

چرا عزیز من امتحان کردم کار میکنه .

[soheilbehro]

چرا عزیز من امتحان کردم کار میکنه .
دوست عزیز می تونی برام آپلودش کنی ممنون

[اوبالیت به بو]

دوست عزیز می تونی برام آپلودش کنی ممنون
تو Timer اينو بنويس:


Label1.Visible=NOT(Label1.Visible)