عبد الله فتحي

شكراً يا أخ محمد (f)(f) جزاك الله خيراً (f)(f)

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

شكراً :b1 وعلى فكرة ساعتك حلوة (clock) ولكن تحتاج بعض الديكور وتصير أحلى وأحلى(f)(f)(f)

(f)الكود العشرين(f) رش الألوان على الفورم Private Sub Form_Load() Me.AutoRedraw = True End Sub Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) X = Me.CurrentX Y = Me.CurrentY End Sub Private Sub Form_MouseMove(Button A…

(f)الكود التاسع عشر(f) تشغيل ملف من نوع AVI دون الحاجة إلى أي أدوات: Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback…

(f)الكود الثامن عشر(f) طريقتين لفتح صفحة إنترنت: Private Sub Command1_Click() Shell "RUNDLL32.EXE URL.DLL,FileProtocolHandler http://www.arabteam2000.com", vbNormalFocus End Sub Private Sub Command2_Click() Dim X As Object Set X = CreateObject("InternetExplore…

(f)الكود السابع عشر(f) لنسخ الملفات من وإلى أي مكان في الهارديسك: Private Sub Command1_Click() FileCopy "c:Autoexec.bat", "d:Autoexec.bat" End Sub

(f)الكود السادس عشر(f) label يعرض الزمن والتاريخ: Private Sub Form_Load() Timer1.Interval = 1000 End Sub Private Sub Timer1_Timer() Label1 = Time & Date End Sub

أشكركم أخوتي الأعزاء على تشجيعكم ... وأرجو أن لا أخيب ظنكم

(f)الكود الخامس عشر(f) برنامج لتحميل الملفات من الإنترنت إلى جهازك لتحميل ملف من على الإنترنت متطلبات البرنامج Class Module وليكن اسمه clsDownload Form وليكن اسمها frmMain CommandButton وليكن اسمه cmdDownload CommandButton وليكن اسمه cmdexit Textbox وليكن اسمه…

(f)الكود الرابع عشر(f) لمعرفة مسار مجلد الـ Temp ضع هذا الكود في Module Declare Function GetTempPath Lib "kernel32" Alias "GetTempPathA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long وهذا الكود في الـ Form Public Function TheTempDir() As Stri…

(f)الكود الثاني عشر(f) لمعرفة الفرق ما بين تاريخين باليوم Private Sub Command1_Click() On Error GoTo 1 Dim Form1Date As Date Dim Form2Date As Date Form1Date = Text1.Text Form2Date = Text2.Text Text3.Text = DateDiff("d", Text1.Text, Text2.Text) & " يوم" Exit Su…

(f)الكود الثاني عشر(f) لعمل ملف جديد من خلال برنامجك: open "c:FileName.txt" for append as #1 Print #1,"Willkommen auf die Erde" Close #1

(f)الكود الحادي عشر(f) لحذف أي ملف: Private Sub Command1_Click() Kill ("C:FileName.fnm") End Sub

صديقي العزيز (f)(f)NOP(f)(f) كيف حالك:rolleyes: يا أخي أرجو أن تكون بخير:):D لقد أجبت على سؤالك في موضوعي: (أكواد) أرجو أن تراجعه وتعطيني رأيك إذا أمكن. خالص أمنياتي بالتوفيق أخوك (f)(f) عبد الله فتحي (f)(f)

أخي العزيز (f) Nop (f) بعد التحية: بالنسبة لإجابة سؤالك السابق - وأرجو أن أكون فهمتك صح - إليك الكود التالي، علما بأنه لن يفرق مابين 1/1/2002 وبين 1-1-2002 ، ولكنه لا يسمح بدخول تاريخ خاطئ: Private Sub Command1_Click() On Error GoTo 1 Dim Form1Date As Date Dim…

صديقي العزيز (f) Nop (f) إليك تحياتي: بالنسبة لمعرفة مجلد ال Temp إليك الكود التالي، أرجو ان تجربه ثم تخبرني بالنتيجة: في الـ Module Declare Function GetTempPath Lib "kernel32" Alias "GetTempPathA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Lon…

هذه مشاركات متواضعة أرجو أن تحوز على رضاكم سأضيف كل يوم (5) مشاركات إذا أعجبتك هذه الفكرة ورغبت في استمرارها، أو حى لم تعجبك، أرجو أن تضيف صوتك وإليكم خالص تحياتي عبد الله فتحي

(f)الكود العاشر(f) لوضع صورة في الحافظة: Private Sub Command1_Click() Clipboard.Clear Clipboard.SetData Image1.Picture End Sub ولوضع نص في الحافظة: Private Sub Command1_Click() Clipboard.Clear Clipboard.SetText (Text1.Text) End Sub

(f)الكود التاسع(f) لتشغيل ملف فيديو في Picture قم بوضع اداة mmcontrol ثم قم بكتابة هذا الكود: Private Sub Form_Load() MMControl1.FileName = ("c:FileName.dat") MMControl1.Command = "open" MMControl1.hWndDisplay = Picture1.hWnd End Sub