- السلام عليكم ورحمة الله وبركاته
- تحية لكل الاعضاء في منتدانا منتدى الفريق العربي للبرمجة
- ارجوا منكم تكفون اعطائي كود يقوم بعمل ايقونة تتغير فيها الصورة بعد كل فترة زمنية معينه ولكم جزيل الشكر
- ( اي ان صورة الايقونه تتغير بعد كل فترة وتضهر صورة تختلف عن الصورة السابقة وهكذا)
سلام..................... ردوا علي في اسرع وقت لاني محتاج لهذا الموضوع
عمل ايقونه تتغير بعد كل فتره زمنيه محدده
السلام عليكم ورحمه الله وبركاته
اخي قصدك ايش من ايقونة؟!! جرب الكود التالي الذي يقوم بتغيير ايقونة الفورم الى Icon1.ico, Icon2.ico, Icon3.ico ... الخ
Dim i As Integer = 1
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Me.Icon = New Icon(String.Format("Icon{0}.ico", i))
i += 1
End Sub
.:: Wish to become better and better ::.
VB Helper كتب:السلام عليكم ورحمه الله وبركاته
اخي قصدك ايش من ايقونة؟!! جرب الكود التالي الذي يقوم بتغيير ايقونة الفورم الى Icon1.ico, Icon2.ico, Icon3.ico ... الخ
Dim i As Integer = 1
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Me.Icon = New Icon(String.Format("Icon{0}.ico", i))
i += 1
End Sub
مشكور يا اخي وجزاك الله خير
ومفهوم سوألي يا اخي كيف اسوي مصفوفة فيها مجموعة من الصور بحيث ان بعد كل فتره زمنيه معينه تضهر صوره مكان الايقونه ........ هذا المقصود
ومشكور على ما قمت به من جهد وجعل الله ذلك في موازين حسناتك.
تم تعديل هذه المشاركة بواسطة awadhabdullah في 24 يونيو 2011 في 10:06
السلام عليكم ورحمه الله وبركاته
اخي لم توضح سؤالك بأنك تريد استخدام مصفوفة؟!! المهم جرب الكود التالي
Dim i As Integer = 0
Dim icons() As String = {"Icon1.ico", "Icon2.ico", "Icon3.ico"}
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Me.Icon = New Icon(icons(i))
i += 1
If i=3 Then i=0
End Sub
.:: Wish to become better and better ::.