عدد الرسائل : 27 العمر : 36 العمل/الترفيه : work project by vb 6.0 تاريخ التسجيل : 14/02/2008
موضوع: رد: زر جديد الخميس فبراير 14, 2008 4:16 pm
مشكور جدااااااااااااا
فوزي برزنجي عضو جديد
عدد الرسائل : 22 العمر : 48 العمل/الترفيه : استاذ جامعي الدولة : تاريخ التسجيل : 24/02/2008
موضوع: رد: زر جديد الثلاثاء مارس 04, 2008 10:11 am
بارك الله بك
فوزي برزنجي عضو جديد
عدد الرسائل : 22 العمر : 48 العمل/الترفيه : استاذ جامعي الدولة : تاريخ التسجيل : 24/02/2008
موضوع: رد: زر جديد الثلاثاء مارس 04, 2008 10:16 am
تم التحميل والإستخدام ومشكوور جداً على هذه الأداة
atheer619 عضو جديد
عدد الرسائل : 7 العمر : 40 العمل/الترفيه : مبرمج بيانات الدولة : تاريخ التسجيل : 20/03/2008
موضوع: رد: زر جديد الخميس مارس 20, 2008 7:32 am
شكر جزززززززززززززززززززززيل لكي ياستي
السندبااد عضو جديد
عدد الرسائل : 11 العمر : 44 الموقع : سوريـــ حلب ــا العمل/الترفيه : طالب الدولة : تاريخ التسجيل : 18/03/2008
موضوع: رد: زر جديد الخميس مارس 20, 2008 7:02 pm
جزاك الله خيرا على الأداة الرائعة
الابداع المتجدد عضو جديد
عدد الرسائل : 7 العمر : 31 العمل/الترفيه : عامل تاريخ التسجيل : 12/05/2008
موضوع: رد: زر جديد الإثنين مايو 19, 2008 1:48 am
تأجيل تنفيذ كود لفترة معينة 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
الابداع المتجدد عضو جديد
عدد الرسائل : 7 العمر : 31 العمل/الترفيه : عامل تاريخ التسجيل : 12/05/2008
موضوع: رد: زر جديد الإثنين مايو 19, 2008 1:52 am
تحميل جميع خطوط الكمبيوتر فيcomboBOX Private Sub Form_Load() Dim i As Integer For i = 0 To Screen.FontCount - 1 Combo1.AddItem Screen.Fonts Next i Combo1.Text = Combo1.List(0) End Sub
الابداع المتجدد عضو جديد
عدد الرسائل : 7 العمر : 31 العمل/الترفيه : عامل تاريخ التسجيل : 12/05/2008