ليبلlabel

سلام دوستان من ميخوام چند تا ليبل داشته باشم كه روي آنها از شماره 1تا5نوشته شده باشه كه بصورت تصادفي ار سمت راست صفحه به سمت چپ صفحه حركت كنه و با فشار دادن اعداد مربوط به هر ليبل بر روي كيبرد ،ليبل مربوطه حذف بشه و اين كار تا موقعي ادامه پيدا كنه كه ديگه هيچ ليبلي وجود نداشته باشه
ممنون ميشم اگه كسي كمكم كنه و سورسشو بزاره

نقل قول:

---

نوشته شده توسط abo1524 [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

سلام دوستان من ميخوام چند تا ليبل داشته باشم كه روي آنها از شماره 1تا5نوشته شده باشه كه بصورت تصادفي ار سمت راست صفحه به سمت چپ صفحه حركت كنه و با فشار دادن اعداد مربوط به هر ليبل بر روي كيبرد ،ليبل مربوطه حذف بشه و اين كار تا موقعي ادامه پيدا كنه كه ديگه هيچ ليبلي وجود نداشته باشه
ممنون ميشم اگه كسي كمكم كنه و سورسشو بزاره

---

این برنامه قدیمیه برو سراغ یک برنامه دیگه من خودم قبلا نوشتمش صبر کن تا چند وقت دیگه پیداش می کنم اپ می کنم

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

کد:

---

Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = Asc("1") Then
 Label1.Visible = False
End If
If KeyAscii = Asc("2") Then
 Label1.Visible = False
End If
If KeyAscii = Asc("3") Then
 Label1.Visible = False
End If
End Sub


Private Sub Form_Load()
Timer1.Enabled = True
End Sub


Private Sub Timer1_Timer()
Label1.Left = Label1.Left + 10
Label2.Left = Label1.Left + 10
Label3.Left = Label1.Left + 10
End Sub

---