منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
مؤثرات جميلة على الفورم - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : الأقسام التعليمية - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=90)
+--- قسم : مكتبة أكواد المنتدى (http://vb4arb.com/vb/forumdisplay.php?fid=111)
+---- قسم : مكتبة أكواد الفيجوال بيسك 6 (http://vb4arb.com/vb/forumdisplay.php?fid=116)
+---- الموضوع : مؤثرات جميلة على الفورم (/showthread.php?tid=8506)

مؤثرات جميلة على الفورم - علاء الاكرمي - 16-04-13

السلام عليكم ورحمة الله تعالى وبركاته
معكم علاء الاكرمي
اليوم سوف اقدم لكم كود جميل
اولاً : أضف زر اوامر
ثانياً ضع الكود الاتي :
كود :
'***************************************************************|
'***************************************************************|
'***************************************************************|
'************* The Programer : Alaa Akrami *********************|
'************* The Code Made : 15 / 4 / 2013 *******************|
'************* The Group Of  : NoveltySoft   *******************|
'***************************************************************|
'***************************************************************|
'***************************************************************|
'===============================================================|
'===============================================================|

Private Sub pompon (form1 As Form)
form1.Show
dcolor = Rnd * 14
For heRnd = 1 To form1.Height Step 100
For wiRnd = 1 To form1.Width Step 100
Me.Circle (wiRnd, heRnd), 200, QBColor(dcolor)
Next
Next
End Sub
Private Sub Command1_Click()
pompon Me
End Sub
Private Sub Form_Load()
pompon Me
End Sub
Private Sub Form_Resize()
Form1.Cls
End Sub

او جرب الكود ده

كود :
'***************************************************************|
'***************************************************************|
'***************************************************************|
'************* The Programer : Alaa Akrami *********************|
'************* The Code Made : 15 / 4 / 2013 *******************|
'************* The Group Of  : NoveltySoft   *******************|
'***************************************************************|
'***************************************************************|
'***************************************************************|
'===============================================================|
'===============================================================|

Private Sub pompon(form1 As Form)
form1.Show
dcolor = Rnd * 14
For heRnd = 1 To form1.Height Step 125
For wiRnd = 1 To form1.Width Step 125
Me.Circle (wiRnd, heRnd), 200, QBColor(dcolor)
Next
Next
End Sub
Private Sub Command1_Click()
pompon Me
End Sub
Private Sub Form_Load()
pompon Me
End Sub
Private Sub Form_Resize()
form1.Cls
End Sub

او ده

كود :
'***************************************************************|
'***************************************************************|
'***************************************************************|
'************* The Programer : Alaa Akrami *********************|
'************* The Code Made : 15 / 4 / 2013 *******************|
'************* The Group Of  : NoveltySoft   *******************|
'***************************************************************|
'***************************************************************|
'***************************************************************|
'===============================================================|
'===============================================================|

Private Sub pompon(form1 As Form)
form1.Show
dcolor = Rnd * 14
For heRnd = 1 To form1.Height Step 225
For wiRnd = 1 To form1.Width Step 225
Me.Circle (wiRnd, heRnd), 200, QBColor(dcolor)
Next
Next
End Sub
Private Sub Command1_Click()
pompon Me
End Sub
Private Sub Form_Load()
pompon Me
End Sub
Private Sub Form_Resize()
form1.Cls
End Sub

وكمان ده

كود :
'***************************************************************|
'***************************************************************|
'***************************************************************|
'************* The Programer : Alaa Akrami *********************|
'************* The Code Made : 15 / 4 / 2013 *******************|
'************* The Group Of  : NoveltySoft   *******************|
'***************************************************************|
'***************************************************************|
'***************************************************************|
'===============================================================|
'===============================================================|

Private Sub pompon(form1 As Form)
form1.Show
dcolor = Rnd * 14
For heRnd = 1 To form1.Height Step 125
For wiRnd = 1 To form1.Width Step 125
Me.Circle (wiRnd, heRnd), 100, QBColor(dcolor)
Next
Next
End Sub
Private Sub Command1_Click()
pompon Me
End Sub
Private Sub Form_Load()
pompon Me
End Sub
Private Sub Form_Resize()
form1.Cls
End Sub

و اذا بدكم ده

كود :
'***************************************************************|
'***************************************************************|
'***************************************************************|
'************* The Programer : Alaa Akrami *********************|
'************* The Code Made : 15 / 4 / 2013 *******************|
'************* The Group Of  : NoveltySoft   *******************|
'***************************************************************|
'***************************************************************|
'***************************************************************|
'===============================================================|
'===============================================================|

Private Sub pompon(form1 As Form)
form1.Show
dcolor = Rnd * 14
For heRnd = 1 To form1.Height Step 125
For wiRnd = 1 To form1.Width Step 125
Me.Circle (wiRnd, heRnd), 500, QBColor(dcolor)
Next
Next
End Sub
Private Sub Command1_Click()
pompon Me
End Sub
Private Sub Form_Load()
pompon Me
End Sub
Private Sub Form_Resize()
form1.Cls
End Sub

والاجمل ده

كود :
'***************************************************************|
'***************************************************************|
'***************************************************************|
'************* The Programer : Alaa Akrami *********************|
'************* The Code Made : 15 / 4 / 2013 *******************|
'************* The Group Of  : NoveltySoft   *******************|
'***************************************************************|
'***************************************************************|
'***************************************************************|
'===============================================================|
'===============================================================|

Private Sub pompon(form1 As Form)
form1.Show
dcolor = Rnd * 14
For heRnd = 1 To form1.Height Step 325
For wiRnd = 1 To form1.Width Step 325
Me.Circle (wiRnd, heRnd), 500, QBColor(dcolor)
Next
Next
End Sub
Private Sub Command1_Click()
pompon Me
End Sub
Private Sub Form_Load()
pompon Me
End Sub
Private Sub Form_Resize()
form1.Cls
End Sub


و يمكنك ايضا التفنن بصنعها بالتعديل في الرقمين 325 في ما سبق

كود :
For heRnd = 1 To form1.Height Step 325
For wiRnd = 1 To form1.Width Step 325

والسلام عليكم

RE: مؤثرات جميلة على الفورم - ghada abd elnabe - 24-11-14

السلام عليكم ورحمة الله
من فضلكم ممكن حد يوضح الاكواد دى