السلام عليكمممممممممممممممممممممممممممممممممممممممممممم
أرجوا أتباع الخطوات حرفيا لأن الفيجوال بيسك حساس جداوكأنه مركب وجه بي أم ههههههههههههههههههه
شباب هذا القليل وأنتظروووووووووووووووووووووو مني المزيد .؟
أكواد للمحترفين شباب وأرجو أن تعجبكم :
1/ الكــــــــــــــــــــــــــــــــــــــــــــــــــود الأولــــــــــــــــــــــــــــــــــــ :
أولا: ضع زر timer على الفورم .
ثانياً: ضع زر text على الفورم .
ثالثاً: أنقل هذا الكود لجميع العناصر ( فقط قص ولصق ): وعدل ما تريد
Private strText As String
'***************************************************************
'* *
'* This sample was downloaded from WWW.GeoCites.Com/Emadfathy *
'* IF YOU HAVE ANY VISUAL BASIC GOOD IDEA CONTACT ME *
'* *
'***************************************************************
Private Sub Form_Load()
strText = "Welcome to Emad Fathy WebSite this is demo for scrolling Text"
strText = Space(80) & strText
End Sub
Private Sub Timer1_Timer()
strText = Mid(strText, 2) & Left(strText, 1)
Text1.Text = strText
Me.Caption = strText
End Sub
- أرجو أن تتمتع بهذا الكود وهو عباره عن نص منزلق داخل الtext وفي رأس الفورم
2/ الكـــــــــــــــــــــــــــــــــــــــــــــــــود الثانيـــــــــــــــــــــــــــــــــــــــ :
أولا ً : ضع زر timer على الفورم.
ثانياً: ضع زر label على الفورم وكبره على مزاج .
ثالثاً : أنقل هذا الكود : ( فقط قص ولصق ) وعدل ما تريد
Private Sub Timer1_Timer()
Static Col1, Col2, Col3 As Integer
Static c1, C2, C3 As Integer
If (Col1 = 0 Or Col1 = 250) And (Col2 = 0 Or Col2 = 250) _
And (Col3 = 0 Or Col3 = 250) Then
c1 = Int(Rnd * 3)
C2 = Int(Rnd * 3)
C3 = Int(Rnd * 3)
End If
If c1 = 1 And Col1 <> 0 Then Col1 = Col1 - 10
If C2 = 1 And Col2 <> 0 Then Col2 = Col2 - 10
If C3 = 1 And Col3 <> 0 Then Col3 = Col3 - 10
If c1 = 2 And Col1 <> 250 Then Col1 = Col1 + 10
If C2 = 2 And Col2 <> 250 Then Col2 = Col2 + 10
If C3 = 2 And Col3 <> 250 Then Col3 = Col3 + 10
Label1.BackColor = RGB(Col1, Col2, Col3)
End Sub
- هذا كووووووووووووووووووود رهيب لأنه كأنه فلاش .( على خلفيه ال label )
3/ الكــــــــــــــــــــــــــــــــــــــــــــــــــــــود الثالثــــــــــــــــــــــــــــــــــــــــ : ( نفس السابق ولكن على نفس الخط )
أولاً : ضع زر lebelعلى الفورم .
ثانيا : ضع زر timer على الفورم .
ثالثاً : أنقل هذا الكود : ( قص ولصق فقط ) وعدل ما تريد
Private Sub Timer1_Timer()
Static Col1, Col2, Col3 As Integer
Static c1, C2, C3 As Integer
If (Col1 = 0 Or Col1 = 250) And (Col2 = 0 Or Col2 = 250) _
And (Col3 = 0 Or Col3 = 250) Then
c1 = Int(Rnd * 3)
C2 = Int(Rnd * 3)
C3 = Int(Rnd * 3)
End If
If c1 = 1 And Col1 <> 0 Then Col1 = Col1 - 10
If C2 = 1 And Col2 <> 0 Then Col2 = Col2 - 10
If C3 = 1 And Col3 <> 0 Then Col3 = Col3 - 10
If c1 = 2 And Col1 <> 250 Then Col1 = Col1 + 10
If C2 = 2 And Col2 <> 250 Then Col2 = Col2 + 10
If C3 = 2 And Col3 <> 250 Then Col3 = Col3 + 10
Label1.ForeColor = RGB(Col1, Col2, Col3)
End Sub
- لا تنسى ان تكبر الخط تبع ال label كي يوضح تغير الألوان الرهيب .
هذا القليل وأنتظروووووووووووووووووووووووووووووووومني المزيد أخوكم مقرش
لمن عنده ملاحظات على الماسنجر أو بالمراسله على الإيميل: mrn_2000@hotmail.com