السلام عليكم ورحمة الله وبركاتة
شباب لو عندى label وعايز ال label ده مثلا يعد ب timer بحيث كل ثانية ال label ده هيزود واحد ونا مثلا عايزه يبدأ من 1 لحد 200 بحيث لما يوصل الlabel ل 200 ثانية يقف العداد ويتنفذ حدث معين اتمنى الرد فى اسرع وقت
سؤال فى ال label
مغلق
السلام عليكم ورحمة الله وبركاته
ضع اداة تايمر وغير خاصية Interval الى 1000 ثم اكتب هذا الكود
Private Sub Form_Load() Label1.Caption="1" End Sub Private Sub Timer1_Timer() Label1.Caption=Val(Label1.Caption)+1 If Val(Label1.Caption)=200 Then Timer1.Enabled=False YourEvent End If End Sub
إن قلت قال الله قال رسولـه همزوك همز المنكر المتعالي
أو قلت قد قال الصحابة والألـى تبعاً لهم بالقول والأعمال
أو قلت قـال الشافعي وأحمد و أبو حنيفة والإمام الغالي
صدوا عن وحي الإله ودينـه واحتالوا على حرام الله بالإحلال
يا أمةً لعبت بدين نبيها كتلاعب الصبيان في الأوحال
حاشا رسول الله يحكم بالهوى تلك إذاً حكومة الضلال
هذا الموضوع مغلق.