عبد الله فتحي

صديقي العزيز : أبو مشاري البرنامج جيد، وباعتباره البرنامج الأول فهو أكثر من رائع، ولكن أرجو أن تهتم قليلاً بالناحية التصميمية والشكل الخارجي فهو نصف البرنامج، وكان من المفروض أن المستخدم يستطيع عمل العمليات الحسابية باستخدام لوحة المفاتيح دون الحاجة إلى الفأرة…

منتدى جميل فعلاً، وفقك الله(f)

جزاك الله خيراً(f)(f)(f)(f)

رائع وشكرا جزيلا ياأخي (f)

جرب هذا الكود 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 I…

أهلا Private Sub Timer1_Timer() Static COL COL = COL + 10 If COL > 510 Then COL = 0 form1.BackColor = RGB(Abs(COL - 255), 0, 0) End Sub الانتر فال 10

ما شاء الله .... ألف مبروووووووووووووووك أخي محمد(f) وربنا يوفقك(f)

(f)الكود الخامس والثمانون(f) لإفراغ سلة المهملات Private Declare Function SHEmptyRecycleBin Lib "shell32.dll" Alias "SHEmptyRecycleBinA" (ByVal hwnd As Long, ByVal pszRootPath As String, ByVal dwFlags As Long) As Long Private Declare Function SHUpdateRecycleBi…

(f)الكود الرابع والثمانون(f) خلفية جميلة للفورم Private Sub Form_Click() Cls Dim t As Single, x1 As Single, y1 As Single Dim x2 As Single, y2 As Single, x3 As Single Dim y3 As Single, x4 As Single, y4 As Single Scale (-320, 200)-(320, -200) t = 0.05 x1 = -320:…

(f)الكود الثالث والثمانون(f) كود جميل لجعل خلفية النص تومض اجعل الإنترفال للتايمر 10 Private Sub Timer1_Timer() Static COL COL = COL + 10 If COL > 510 Then COL = 0 Label1.BackColor = RGB(Abs(COL - 255), 0, 0) Label2.BackColor = RGB(0, Abs(COL - 255), 0) Label3…

قم بالتصويت من فضلك

(f)الكود الثاني والثمانون(f) تغيير لون الخلفية للنص 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 = I…

(f)الكود الحادي والثمانون(f) تغيير لون النص بشكل مستمر 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 …

(f)الكود الثمانون(f) تحريك الكلام في عنوان الفورم ومربع النص Private strText As String Private Sub Form_Load() Timer1.Interval = 75 strText = "Guten Tag! Wie ght's Ihnen? Ich hoffe Ihnen alles Gutes!" strText = Space(50) & strText End Sub Private Sub Timer1_Ti…

(f)الكود التاسع والسبعون(f) لفتح الفورم بشكل رائع Sub Explode(form1 As Form) form1.Width = 0 form1.Height = 0 form1.Show For x = 0 To 5000 Step 1 form1.Width = x form1.Height = x With form1 .Left = (Screen.Width - .Width) / 2 .Top = (Screen.Height - .Height) /…

(f)الكود الثامن والسبعون(f) للاتصال من خلال الكود Private Sub Command1_Click() Dim PhoneNumber As String On Error GoTo WrongPort MSComm1.CommPort = 3 'قم بتغيير البورت من 1 إلى 8 حتى تصل إلى البورت الصحيح MSComm1.Settings = "300,n,8,1" PhoneNumber = "164883" M…

(f)الكود السابع والسبعون(f) لمعرفة اسم الكمبيوتر Private Const MAX_COMPUTERNAME_LENGTH As Long = 31 Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long Private Sub Form_Load() Dim d…

(f)الكود السادس والسبعون(f) معرفة اللون الذي يمر عليه الماوس Option Explicit Private Type POINTAPI x As Long y As Long End Type Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long Private Declare Function…

(f)الكود الخامس والسبعون(f) لتغميق وتفتيح الصورة بشكل رائع Option Explicit Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Lo…

(f)الكود الرابع والسبعون(f) للتحكم في حركة الماوس Private Type POINTAPI x As Long y As Long End Type Private Declare Function ClientToScreen Lib "user32" (ByVal hwnd As Long, lpPoint As POINTAPI) As Long Private Declare Function SetCursorPos Lib "user32" (ByVa…