القوانين العامة لمنتديات الخوارزمى ... مشاهدة الإدارة ونقص عدد المشرفين ... للتقدم بطلب للإشراف ... مسابقة ترشيح المشرف العام

خدمات مركز الخوارزمى

خريطة الموقع

معرض الصور

مركز تحميل الصور و الملفات

القرآن الكريـــم

تفسير القرآن الكريــم

المرجع الدينى الشامل

مكتبة البرامج

مكتبة الدروس


« آخـــر الــمــواضــيــع »
         :: كل هذه الأمراض يعالجها الزنجبيل؟ (آخر رد :تبارك)       :: ينفع اسافر عن طريق ابن خالي (آخر رد :صانع القادة)       :: ما تشوف يا خوارزمى اللى بيحصل ده (آخر رد :domokh)       :: امـــي لــم نبـــن اليــوم قصـــرا فـي الجنــه!!! (آخر رد :domokh)       :: العصائر المثلجة مضرة بالأسنان (آخر رد :تبارك)       :: الحمية النباتية تساعد مرضى الروماتيزم (آخر رد :حسناء)       :: مشروبات للصحة واللياقة (آخر رد :حسناء)       :: إبحث عن أي مرض في هذا الباحث الصحي‏ (آخر رد :Dr*.-.*GoHaRy)       :: سيارة Corvette Z06‏ (آخر رد :domokh)       :: هذي قصور داخل سفية ...روعه (آخر رد :تبارك)       :: عطورات (آخر رد :حسناء)       :: شجرة الصفصآف والإسبرين (آخر رد :domokh)       :: معلومات عامه (آخر رد :domokh)       :: رقم قياسي لحواء (آخر رد :تبارك)       :: ماأغناه رغم فقره !! .. سبحان الله (آخر رد :حسناء)       :: معجزة هيلين كيلر (آخر رد :domokh)       :: كبت الدموع يؤدي إلى إصابتك بالصداع والأمراض لماذا؟‏ (آخر رد :domokh)       :: العناية بالظهر (آخر رد :domokh)       :: اشياء عجب والله (آخر رد :domokh)       :: هل ترمى اكياس الشاى بعد استعمالها ؟؟؟!!! (آخر رد :domokh)      



العودة   :: مركز الخوارزمى للترجمة وخدمات الإنترنت العودة ركن الكمبيوتر و الإنترنت العودة قسم البرمجة وقواعد البيانات
قسم البرمجة وقواعد البيانات ASP.net SQL, ADO.net, C#, PHP , CGI , MySQL , JavaScript , Html , Delphi , Ajax ...



جعل الفورم تتلاشى عند الضغط على زر

قسم البرمجة وقواعد البيانات


 
   
أدوات الموضوع انواع عرض الموضوع
قديم 29-10-2005, 05:51 PM رقم المشاركة : 1
معلومات العضو
عضو
نحن نتطلع الى التميز
افتراضي جعل الفورم تتلاشى عند الضغط على زر

Sub Startrek(frm As Form)

GotoVal = frm.Height / 2
For Gointo = 1 To GotoVal
DoEvents
frm.Height = frm.Height - 100
frm.Top = (Screen.Height - frm.Height) \ 2
If frm.Height <= 500 Then Exit For
Next Gointo

horiz:
frm.Height = 30
GotoVal = frm.Width / 2
For Gointo = 1 To GotoVal
DoEvents
frm.Width = frm.Width - 100
frm.Left = (Screen.Width - frm.Width) \ 2
If frm.Width <= 2000 Then Exit For
Next Gointo
Unload Me
End Sub


Private Sub Command1_Click()
Call Startrek(Me)
End Sub







رد مع اقتباس
 


مواقع النشر

الذين يشاهدون محتوى الموضوع الآن : 1 ( الأعضاء 0 والزوار 1)
 
المواضيع المتشابهه
الموضوع كاتب الموضوع المنتدى مشاركات آخر مشاركة
طفلة ترفع الضغط حسناء استراحة المنتدى 4 08-09-2007 12:00 AM
عمل فقاقيع على الفورم FemTo قسم البرمجة وقواعد البيانات 7 03-05-2007 12:17 PM
طفلة ترفع الضغط مجدولين استراحة المنتدى 3 07-10-2006 03:57 PM
تشغيل الاصوات مع الفورم FemTo قسم البرمجة وقواعد البيانات 1 21-07-2006 12:35 AM
جعل الفورم شفاف FemTo قسم البرمجة وقواعد البيانات 2 21-07-2006 12:00 AM

أدوات الموضوع
انواع عرض الموضوع

تعليمات المشاركة
لا تستطيع إضافة مواضيع جديدة
لا تستطيع الرد على المواضيع
لا تستطيع إرفاق ملفات
لا تستطيع تعديل مشاركاتك

كود [IMG] متاحة
كود HTML معطلة