عبد الله فتحي

(f)الكود الحادي والستون(f) حساب عدد سطور ملف نصي Private Sub Command1_Click() Open "c:autoexec.bat" For Input As #1 Count: SS = SS + 1 Line Input #1, x If EOF(1) Then Label1.Caption = SS Exit Sub Else GoTo Count: End If Close End Sub

فكرة رائعة Bibo2002 (f) شكراً لك(f)

جزاك الله خيراً، وإلى الأمام دائماً.(f)

:D:D

عندي كود ثاني متقدم، ولكن ما أقدر احمله لأن الملف كبير

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

آسف ها هو الملف pictpuzzle.zip

بسم الله الرحمن الرحيم الأخ العزيز: zemzemh (f) والأخ أبو وليد (f) هذا كود بسيط للعبة الـ Puzzel أرجو أن يعجبكما. وإليكما تحياتي. عبد الله(f)(f)(f)(f)

جزاك الله خيراً يا أوس أوس

فهرس الأكواد السابقة (1) لمعرفة اسم اليوم (f) (2) لمعرفة اسم الشهر (f) (3) لإضافة نص متحرك (f) (4) هل الجهاز متصل بالإنترنت (f) (5) التأكد من وجود ملف (f) (6) حجم الملف بالبايت (f) (7) وقت تشغيل الويندوز (f) (8) تشغيل ملف صوتـMDIــي (f) (9) ملف فيديو في صورة (…

(f)الكود الستون(f) لعمل مفاتيح اختصار Private Const MOD_ALT = &H1 Private Const MOD_CONTROL = &H2 Private Const MOD_SHIFT = &H4 Private Const PM_REMOVE = &H1 Private Const WM_HOTKEY = &H312 Private Type POINTAPI x As Long y As Long End Type Private Type Msg hW…

أخوي NOP (f) مافي داعي للأسف المشكلة كانت بسيطة وحليتها الحمد لله، وإليك تحياتي:cool:

(f)الكود التاسع والخمسون(f) لنسخ الصورة أو قلبها عمودياً أو أفقياً Private Sub Command1_Click() 'الوضع الطبيعي النسخ Picture2.PaintPicture Picture1.Picture, 0, 0, _ Picture1.Width, Picture1.Height, 0, 0, _ Picture1.Width, Picture1.Height, vbSrcCopy End Sub Pri…

(f)الكود الثامن والخمسون(f) لنسخ خلفية سطح المكتب إلى نموذجك Private Declare Function PaintDesktop Lib "user32" _ (ByVal hdc As Long) As Long Private Sub Command1_Click() PaintDesktop Form1.hdc End Sub

(f)الكود السابع والخمسون(f) لمنع تشغيل أكثر من نسخة من البرنامج Private Sub Form_Load() If App.PrevInstance = True Then MsgBox "لا يمكن تشغيل أكثر من نسخة من البرنامج" Unload Me Exit Sub End If End Sub

(f)الكود السادس والخمسون(f) تأجيل تنفيذ الكود لفترة معينة Public Sub Delay(HowLong As Date) TempTime = DateAdd("s", HowLong, Now) While TempTime > Now DoEvents Wend End Sub Private Sub Command1_Click() Delay 5 MsgBox "test" End Sub

(f)الكود الخامس والخمسون(f) طلب الاتصال بالإنترنت Const FTP_TRANSFER_TYPE_UNKNOWN = &H0 Const FTP_TRANSFER_TYPE_ASCII = &H1 Const FTP_TRANSFER_TYPE_BINARY = &H2 Const INTERNET_DEFAULT_FTP_PORT = 21 ' default for FTP servers Const INTERNET_SERVICE_FTP = 1 Const…

(f)الكود الرابع والخمسون(f) لإخفاء المشيرة وإظهارها Private Declare Function ShowCursor Lib "user32" _ (ByVal bShow As Long) As Long Private Sub Command1_Click() X = ShowCursor(False) End Sub Private Sub Command2_Click() X = ShowCursor(True) End Sub

(f)الكود الثالث والخمسون(f) مؤثر جميل على الفورم Function Dist(x1, y1, x2, y2) As Single Dim A As Single, B As Single A = (x2 - y1) * (x2 - x1) B = (y2 - y1) * (y2 - y1) Dist = Sqr(A + B) End Function Sub MoveIt(A, B, t) A = (1 - t) * A + t * B End Sub Private…

(f)الكود الثاني والخمسون(f) للتجسس على لوحة المفاتيح ضع هذا الكود في الموديول Public Const DT_CENTER = &H1 Public Const DT_WORDBREAK = &H10 Type RECT Left As Long Top As Long Right As Long Bottom As Long End Type Declare Function DrawTextEx Lib "user32" Alias …