toyoki

تفضل أخي حمل

ضع أداة Time واجعل قيمتها 100 Private Sub Timer1_Timer() If Label1.Visible = True Then Label1.Visible = False Else Label1.Visible = True End If End Sub

لم أفهم هل هذا هو المطلوب ولكن تريده عبارة عن كود

هذا سهل أخي تفضل هذا ما تقصده أليس كذالك اذا اضغط مرتين على السهم (<-) أرجو أن أكون قد ساعدتك في حل مشكلتك أي مشكل اخر فأنا في الخدمة

تريد تعطيل زر التكبير Option Explicit Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, …

تفضل أخي Private Sub Command1_Click() If Form1.Visible = True Then Unload Form1 Else Form1.Show End If End Sub --------------------------------------------------------------------------------------------- Private Sub Command2_Click() If Form2.Visible = True Th…

هذا موقع يقدم لك مجموعة كبيرة و جميلة من Skin http://www.recursosvisualbasic.com.ar/htm/...y-controles.htm

يمكنك عن طريق أدات Activeskin

بارك الله فيك أخي faresxyz وزادك من نعيمه

أنا اسف أخي romantic_boy وصلت متأخر لأني لم أرى الدرس الا اليوم :unsure: وللأسف صور الدروس الاولى اتحذفت لو ممكن حد يرفعها تاني عاوز أقلك ان كلامك زي العسل (الكلام الصادر من القلب يصل الى القلب) وانت كلامك صادر من القلب تفهم الدرس من القراءة الاولى ماشائ الله …

من المفروض عندما تحدد قاعدة البيانات في dataenvernment تحذف المسار وتترك اسم قاعدة البيانات فقط (STUDENT.mdb) جرب وان شاء الله سيعمل عادي والله أعلى وأعلم

يشرفني أن أكون أول من يرد على الموضوع بارك الله فيك اخي the programmer 1 في الحقة هذا هو البرنامج الذي أنا الان أعمل على اكماله لكن واجهتني مشكلة أرجو أن تساعدني على حلها بما أنك قد صنعته من قبل /index.php?showtopic=143104 جازاك الله خيرا

يشرفني أن أكون أول من يرد على الموضوع بارك الله فيك اخي the programmer 1 في الحقة هذا هو البرنامج الذي أنا الان أعمل على اكماله لكن واجهتني مشكلة أرجو أن تساعدني على حلها بما أنك قد صنعته من قبل /index.php?showtopic=143104 جازاك الله خيرا

بارك الله في أخي وزاد من العلم الكثير الكثير

المشكلة هي في زر الاضافة (Ajouter) و زر الحذف (Supprimer) و زر التعديل (Modifier) استعملت جميع الاكواد دون جدوى الاكواد التي استعملتها Data1.Recordset.addnew واستعملت أيضا With Data1.Recordset .AddNew !Referance = Text1 !Désignation = Text2 .Update End With Da…

حمل المشروع ستجده هناك شرح الازرار َاضافة Ajouter Modifier تعديل حذف Supprimer

السلام عليكم ورحمة الله وبركاته أنا عندي مشروع كامل لم يبقى الا زر الاضافة و التعديل و الحذف استعملت كل الطرق ولكن بدون جدوى لا تعمل الازرار مع أن الكود صحيح ولكن بدون فائدة أرجو المساعدة و الله أنا محتاج له ضروري لقد أرفقت لكم المشروع لتعديل عليه جازاكم الله …

بارك الله فيك أخي

Text مربوط مع Database

السلام عليكم ورحمة الله أنا أريد طريقة ادخال رقم تلقائي في كل مرة يعني على سبيل المثال عندما أدخل معلومات تلميذ يكتب رقمه 0001 وعندما أضيف تلميذ آخر يكتب رقمه 0002 وهاكذا دون استعمال أوامر SQL جازاكم الله خيرا