View Full Version : چشمک زدن لیبل
soheilbehro
چهارشنبه 08 مهر 1388, 21:12 عصر
چطوری می تونم یه کاری بکنم که لیبل من یک ثانیه دیده بشه ، یه ثاتیه دیده نشه و همین طور.....
alihassanabadi
چهارشنبه 08 مهر 1388, 21:32 عصر
سلام
میتونی از تایمر استفاده کنی و 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
چهارشنبه 08 مهر 1388, 23:26 عصر
[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
چهارشنبه 08 مهر 1388, 23:32 عصر
چرا عزیز من امتحان کردم کار میکنه .
soheilbehro
پنج شنبه 09 مهر 1388, 00:10 صبح
چرا عزیز من امتحان کردم کار میکنه .
دوست عزیز می تونی برام آپلودش کنی ممنون
اوبالیت به بو
پنج شنبه 09 مهر 1388, 00:22 صبح
دوست عزیز می تونی برام آپلودش کنی ممنون
تو Timer اينو بنويس:
Label1.Visible=NOT(Label1.Visible)
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.