لیبل چشمک زن دوبعدی و.......

[moustafa]

سلام دوستان
منم به نوبهء خودم فعالیت مجدد سایت را تبریک میگم هرچند این سعادت 3روز دیرتر نصیب ما شد
دست خط مبارک دوستان و همراهان را مجددا زیارت کنیم و وجود گرمشون دورا دور حس
بنابراین یه طپش قلب از نوع اکسس تقدیم همه دوستان گرام میکنم امیدوارم که قابل بدونند
اگه دیدید که زیاد باب دل نیست اینجا مطرح نکنید خصوصی به خودم بگید

کد زیر یه لیبل را چشمک زن دوبعدی میکند چیزی مثل طپش قلب بسته به خلاقیت خودتون میتونید اون نعمیم بدید و لیبل متحرک بسازید یا شناور ......
فرم tapesh را باز کنید من فراموش کردم در استارت اپ تنظیم کنم

Private Sub Form_Open(Cancel As Integer)
Text2 = Time()
End Sub

Private Sub Form_Timer()

Text7 = Time() - Text2
Text12 = Second(Text7)
lab.BackColor = IIf(Text12 Mod 2 = 0, 16777215, 12632256)
lab.FontSize = IIf(Text12 Mod 2 = 0, 8, 16)


End Sub

[moustafa]

جدا بدرد هیچکس نخورد ؟!!!!!!!!!!!!!
حتی بعنوان هشدار ؟!

[Ali_Fallah]

چرا خورد!
من به نوبه خودم از شما ممنونم.

[moustafa]

کامی جون تو که همیشه خوبی (بقیه گیر ندهند چرا از دکمه تشکر استفاده نکردی ):چشمک:

[Ali_Fallah]

خواهش میکنم
من از هردو روش استفاده کردم.

[bemilove]

چگونه می توان کاری کرد که text box به دوحالت رنگی چشمک بزند.(مثلا رنگ سفید وزرد).

[انگوران]

تو فايل بالا كد زير رو جايگزين كد مربوطه كن.

lab.BackColor = IIf(Text12 Mod 2 = 0, vbWhite, vbYellow)

[bemilove]

[[چگونه می توان کاری کرد که text box به دوحالت رنگی چشمک بزند.(مثلا رنگ سفید وزرد)]]
شرمنده ام جناب انگوران-منظورم این بود یک تکست باکس بدون هیچ ارتباطی با تکست باکس دیگر(فایل بالا چند تکست باکس روبا شرایط خاص را به هم مربوط کرده)-اگر ممکن است فایل را اصلاح بفرمایید

[انگوران]

سلام، از كد زير استفاده كن.

Me.Text0.BackColor = IIf(Second(Time()) Mod 2 = 0, vbWhite, vbYellow)