عبد الله فتحي

لإرسال رسائل جوال عربي: www.resalh.com

لا مانع من أن نستفيد ، ولكنك بالتالي ستفيدهم، وعندما تفيدهم ستعود هذه الفائدة إليك مرة أخرى ولكن في شكل رصاصة في قلبك، أو في قلب أخيك؟؟؟؟ هل ترضى ذلك؟؟ أعتقد لا

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

:eek: :mad::mad::mad:

اختيار موفق(f) والجميع في انتظارك

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

السؤال الأول:::: نعم طبعاً.(f)

شكرررررررررررررا(f)

شكراااااااااااااا(gift)

ألف مبروك (f)(f)(f)

ماشاء الله(f) راااااااائع(f) أخي Free جزاك الله كل خير(f)

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

(f)الكود الحادي والتسعون(f) لتحويل حالة الأحرف من كبيرة إلى صغيرة والعكس Private Sub Command1_Click() x = Text1.Text y = UCase(Left(x, Len(x))) Text1.Text = y End Sub Private Sub Command2_Click() x = Text1.Text y = LCase(Left(x, Len(x))) Text1.Text = y End Sub

(f)الكود التسعون(f) لمعرفة رمز القرص ( هل هو قرص مرن ، صلب ، سيد دي .. الخ ) Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long Private Sub Command1_Click() Me.AutoRedraw = True Select Case GetDriveType(…

(f)الكود التاسع والثمانون(f) لحفظ ما يتغير في الـ Form حتى بعد إغلاقها Private Sub Form_Load() Text1.Text = GetSetting(App.Title, "Settings", "SaveInText1") End Sub Private Sub Form_Unload(Cancel As Integer) SaveSetting App.Title, "Settings", "SaveInText1", Tr…

أخي العزيز اتبع الرابط التالي http://members.lycos.co.uk/alhosamnet/vb/s...s=&threadid=132

(f)الكود الثامن والثمانون(f) أكواد نسخ قص لصق Private Sub Command1_Click() Clipboard.Clear Clipboard.SetText text1 End Sub Private Sub Command2_Click() Clipboard.Clear Clipboard.SetText text1 text1 ="" End Sub Private Sub Command3_Click() text1 = Clipboard.Get…

(f)الكود السابع والثمانون(f) طريقة جميلة لإغلاق الفورم Private Sub Form_Load() Form1.Height = 7020 Form1.WindowState = 0 Timer1.Interval = 45 End Sub Private Sub Timer1_Timer() On Error Resume Next Form1.Height = Form1.Height - 250 Timer2.Interval = 1500 End S…

(f)الكود السادس والثمانون(f) لاستخدام مساعد الأوفيس في برنامجك قم بإدراج الأداة: Microsoft Agent control في مشروعك ثم قم بإضافة الكود التالي: Dim Genie As IAgentCtlCharacter Private Sub Command1_Click() Genie.Show End Sub Private Sub Command2_Click() Genie.Hid…

الأخ العزيز MATRIXMAN(f) الأكواد المذكورة في هذا الموضوع هي للفيجول بيسيك فقط، وبالنسبة للأكواد التي تريدها، إن شاء الله في الطريق إليك.