تقييم الموضوع :
  • 2 أصوات - بمعدل 5
  • 1
  • 2
  • 3
  • 4
  • 5
مؤثرات جميلة على الفورم
#1
السلام عليكم ورحمة الله تعالى وبركاته
معكم علاء الاكرمي
اليوم سوف اقدم لكم كود جميل
اولاً : أضف زر اوامر
ثانياً ضع الكود الاتي :
كود :
'***************************************************************|
'***************************************************************|
'***************************************************************|
'************* 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

والسلام عليكم
الرد }}}}
تم الشكر بواسطة:
#2
السلام عليكم ورحمة الله
من فضلكم ممكن حد يوضح الاكواد دى
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تـــــــــــوليد Code Barre بطريقــــــــــة جميلة وإحتـــــــــــــرافة wolf1120 2 1,115 21-02-16, 03:52 AM
آخر رد: AEDC
  الحل الأمثل لتغيير حجم الفورم حسب دقة عرض الشاشة ENG.MPROG 9 4,632 01-08-13, 06:20 AM
آخر رد: derbaliammar
  فتج الفورم بطريقة جميله جدا ولد رائع 2 1,463 23-02-13, 09:38 PM
آخر رد: Sajad
  طريقة لجعل الفورم او البرنامج في مقدمة البرامج Ahmad Jawad 0 817 28-10-12, 11:39 AM
آخر رد: Ahmad Jawad
  كود لحصر الماوس داخل الفورم RaggiTech 0 645 17-10-12, 04:40 PM
آخر رد: RaggiTech
  كود لجعل الفورم يتحرك بشكل تدريجي RaggiTech 0 802 17-10-12, 03:44 PM
آخر رد: RaggiTech
  تكبير PictureBox + تلوين الفورم بالوان قوس قزح RaggiTech 0 875 17-10-12, 03:14 PM
آخر رد: RaggiTech
  تحريك الفورم بدون Api RaggiTech 0 443 17-10-12, 02:45 PM
آخر رد: RaggiTech
  لفتح البرنامج بطريقة جميلة RaggiTech 0 514 17-10-12, 02:36 PM
آخر رد: RaggiTech
  التحكم في درجة شفافية الفورم RaggiTech 0 579 17-10-12, 02:16 PM
آخر رد: RaggiTech

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم