gaf58

اخي الفاضل لا ادعي اني اعرف الاجابة و لكن عندى اقتراح لا ادرى اذا كان ممكن ام لا قبل نسخ اى مجلد قم بالحث عنه اولا في السي دى ان وجدته ، اوكي قم بكتابة امر النسخ وان لم تجده فرسالة تقوم باعلام المستخدم تطلب ادخال الاسطوانة رقم 2 تحياتي

عفوا اختنا الفاضلة البرنامج يسبر بصورة ممتازة انا اقول عند الغاء عملية البحث يحدث الخطأ اضافة on error resume next حلت المشكلة Else On Error Resume Next Dim d As Date d = InputBox("", "") rs.Filter = " HireDate = #" & d & "#" عفوا حذفت منطوق الرسالة العربي يبد…

عليكم السلام ورحمة الله و بركاته رائع جدا اخونا الكريم A7med_prof يا ريت تكمل لنا المثال بحيث عند احداثيات مختلغة نعطي اوامر مختلفة مع احداث الماوس شكرا جزيلا

شكرا جزيلا اختنا الفاضلة مجهود رائع عند الغاء عملية البحث عن طريق تاريخ التعيين هناك run time error , type mismatch d = InputBox("ÇÏÎá ÊÇÑíÎ ÇáÊÚííä", "ÈÍË ÍÓÈ ÊÇÑíÎ ÇáÊÚííä") [code] اكرر شكرى

اخي الفاضل يمكنك التحايل بوضع label شفاف علي الصورة في المواضع التي تريدها وتغير شكل الماوس الي اليد في حدث label mous move و و تحت label mouse click او mouse down الخ اكتب الاوامر التي تريدها . ارجو ان اكون وفيت تحياتي

تفضل اخي مثال جميل howto_typewriter_With_SyncSound.zip

بوركت اخونا الفاضل

up

شكرا جزيلا اخونا الكريم sunny علي الرابط و علي الدرس الجميل لكن اخونا عباس رجب يريد استخدام ال list وعلي فكرة انا بليد جدا في الداتا بيز بس بحاول

كود البحث في listview Private Sub Text1_Change() ListView1.HideSelection = False Dim i As Integer For i = 1 To ListView1.ListItems.Count If Text1 = ListView1.ListItems.Item(i) Then ListView1.ListItems(i).Selected = True ListView1_Click End If Next End Sub انته…

up مرفق مثال لتوضيح سؤالي heshamPopup.zip

جميل جدا اخونا هشام هل ممكن الحفاظ علي لون ال PopupMenu مع اخفاء شريط القوائم بمعني ان mnuMenu not visible & not enabled

شكر الله لك اخونا الكريم فواز والله شرح جميل جدا

في الموديول Public db As New ADODB.Connection Public rs As New ADODB.Recordset Sub ViewRecord() With Form1 If Not rs.RecordCount = 0 Then .Text2 = "" .Text3 = "" .Text4 = "" .Text5 = "" .Text6 = "" If Not IsNull(rs![Name]) Then .Text2 = rs![Name] If Not IsNull…

هل هذا ما تريد اخونا الفاضل :rolleyes: abbas.zip

هل هذا هو منتدى vb4 ؟ http://www.arabdevelopers.com/vbb/forumdis...p?s=&forumid=14 لقد دخلت اليه بنفس اليوسرنيم و الباسوورد لكن للاسف لا يحوى غير صفحتين

شكر الله اخونا الكريم

اخي العزيز انا احدد موضع الادوات نسبة و تناسب بالنسبة للفورم بالكود كما في الكود المرفق واضعها في موديول ثم اخاطب ال function في حدث الفورم لود call position Sub Position() With Form1 .Move ((Screen.Height - .ScaleHeight) / 2), _ ((Screen.Width - .ScaleWidth) …

Private Sub Form_Load() List1.AddItem "Hani" List1.AddItem "gmaa" List1.AddItem "550" List1.AddItem "gamal" End Sub Private Sub Text1_Change() On Error Resume Next For i = 0 To List1.ListCount If Text1 = List1.List(i) Then List1.Selected(i) = True End If Next …

عذرا علي المشاركة السابقة لقد سهوت قليلا الرابط التالي سوف تجد ضالتك فيه باذن الله اعدادات مقاش الشاشة