MSVS

السلام عليكم لا أظن أن برمجة دول TAPI بذاك الصعوبة ، أذكر في موقعنا الحبيب الغائب WWW.VB4ARAB.COM سبق و أن وضع أحد الإخوة برنامج الرد الألي على المكالمات مصمم بدوال TAPI .

هذا هو الكود وتجد في المرفق المثال كاملاً Option Explicit Private Sub Command1_Click() Dim Db As Connection Set Db = New Connection Db.CursorLocation = adUseClient Db.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db.mdb;" Dim Rs As Record…

شكراً JAAS فعلاً شرح مبسط جداً و يفتح النفس للاسمبلي . أرجو أن تنظر لحل الواجب ولا تنس التقييم :) 88.rar

ضع البرنامج وسأعدله لك بإذن الله

للأسف الـ DataReport لا يوجد به إمكانية الترقيم . ولكن يمكن الإلتفاف عليه و عمل كائن RecordSet يضاف إليه حقل للمسلسل ثم نقوم بتعبئة هذ الحقل عبر حلقة تكرارية ثم تحميل أداة التقارير DtatReport بكائن السجلات الجديد . أرجو أن تكون الصورة واضحة .

السلام عليكم أعلم أن الموضوع قديم ولكن قد يصل إليه أحد الإخوة عن طريق البحث . سبق و أن عملت برنامج لقراء رقم المتصل بواسطة VB 6 و تعبت حتى نجحت في المشروع . الموضوع غير معقد تستطيع استخدام الأداة MSComm فهي تفي بالغرض . ولكن ،،،، صحيح أن المودم من نوع V92 يدعم…

هذه الثوابت التي تستخدم مع الدالة GetSystemMetrics مع قيمها والتي سبق شرح بعضها : Public Const SM_CMETRICS = 44 Public Const SM_CMOUSEBUTTONS = 43 Public Const SM_CXBORDER = 5 Public Const SM_CXCURSOR = 13 Public Const SM_CXDLGFRAME = 7 Public Const SM_CXDOUBL…

السلام عليكم نشكر الأخ JASS على ما يقوم به من جهود في هذا المنتدى . و نتوقف عند الدالة GetSystemMetrics لنشرح بعض الثوابت المستخدمة فيها : SM_CMOUSEBUTTON = عدد أزرار الفأرة ، صفر إذا لم يكن هناك فأرة . SM_CXSCREEN = حجم الشاشة (X) SM_CYSCREEN = حجم الشاشة (Y)…

السلام عليكم يوجد كتاب (VB.NET أفكار و تقنيات) مترجم للعربية غني بالفوائد أنصحك به ، اظنه موجود في مكتبة النيل و الفرات على الإنترنت .

السلام عليكم هذا الرابط سيفيدك بإذن الله : http://www.c4arab.com/showlesson.php?lesid=737 والسلام عليكم

السلام عليكم مرفق ملف يحتوي على طريقة إيقاع حدث النقر من برنامج على أداة في برنامج أخر . يبقى عليك أن تعدل في الشفرة حتى يناسب طلبك . والله أعلم How-To.rar

المشكلة التي يقع فيها البرنامج أنه يرسل ضربات المفاتيح قبل أن يظهر زر "تالي" . وحل هذه المشكلة أظنه بواسطة API . لا أخفيك عندما قرأت مشاركتك في أول مرة حاولت أن أحل المشكلة بأكثر من طريقة ، وقمت بعمل المطلوب بواسطة API ولكن بقي عليّ أمر واحد و قد توصلت له اليو…

الحمد لله وجدت الثابت الذي يمرر للدالة SendMesaage و الذي يمثل حدث النقر على الأداة . Const BM_CLICK = &HF5 Dim S& S& = SendMessage(Command2.hwnd, BM_CLICK, ByVal 0&, ByVal 0&) المراجع : http://msdn.microsoft.com/library/default....ons/buttons.asp http://msdn.…

استخدم التالي : MSHFlexGrid1.TextMatrix(R,C)= "أدخل النص هنا" حيث R= رقم الصف و C= رقم العمود والله أعلم

السلام عليكم من المعلوم أن الوظيفة SendMessage تفيد في إرسال الرسائل إلى النوافذ و الأدوات الموجودة ، و لهذه الوظيفة عدة بارامترات ، كـ WM_GETTEXT الذي يعيد النص الموجود داخل الأداة إلخ ..... والسؤال المطروح هو : هل يوجد باراميتر يمثل نقرة على الأداة كـ (WM_CL…

يمكنك أن تعرض البيانات على شكل صورة . وبهذا تضمن أن الوظيفة SendMessage لن تسرق بياناتك والله أعلم .

أخي / seaprince46 يمكنك أن ترسل ضربة مفتاحين في مرة واحد ، وهذا يفيدك في التعامل مع أزرار نافذة المعالج و إن لم يكن التركيز على الزر المطلوب . مثلاً الزر Next المفتاح المختصر له هو Alt+N وعلى هذا يمكننا أن نرسل "%N" بعد تفعيل نافذة المعالج كي نصل إلى الزر المر…

السلام عليكم إن الأمر AppActivate يقوم بتنشيط أي نافذة في الويندوز ولا يشترط أن تكون هذه النافذة ابن للنافذة الرئيسية للبرنامج . هذا مثال بسيط : الآن النافذة التي تتصفحها أنت أسمها : منتديات الفريق العربي للبرمجة -> سؤال حول ال SendKeys - Microsoft Internet Ex…

لطباعة تقرير احذف من الكود السابق : Set DataGrid1.DataSource = Rec و اضف بدلاً منه السطرين : Set DataReport111.DataSource = Rec DataReport111.Show والله أعلم

السلام عليكم هذا الكود للداتا جرد : Dim db As Connection Set db = New Connection db.CursorLocation = adUseClient db.Open "PROVIDER=Microsoft.JET.OLEDB.4.0;Data Source=" & App.Path & "\maktaba.mdb;" Dim Rec As Recordset Set Rec = New Recordset Rec.Open "SELECT …