qushisha

أخي المشرف.. لقد اعتقدت أننا في قسم الفيجوال بيسيك فهل ضللت الطريق؟ أم أنني على صواب؟ أخي السائل.. يمكنك نسخ ملفات وقت التشغيل إلى مجلدات نظام المستخدم ويمكنك الاستعانة في ذلك ببعض دوال واجهة البرمجة للتطبيقات API مثل: Declare Function GetSystemDirectory Lib "…

الأخ العزيز عرف متغير جديد من نوع تطبيق وورد وآخر من نوع مستند وورد ثم خصص قيمته إلى الملف المطلوب كما أنه يمكنك عرضه كالتالي: Dim W As New Word.Application Dim D As New Word.Document Set D = W.Documents.Open("E:\My Documents\CV1.doc") W.Visible = True أرجو عن…

أخي السائل هذا مثال بسيط للإجابة على سؤالك في المرفقات Emp.zip

أخي السائل هذا الخطأ يعني تكرار اسم، وهو AddItemsMS ومن المعروف أن الأسماء في الفيجوال بيزيك هي عناوين توضع بدلاً من أرقام السطور في البيزيك القديمة، وذلك لتوجيه خط سير البرنامج إليها عند نقطة معينة بدلاً من تسلسل سير البرنامج الطبيعي وهو تنفيذ السطور المتتالي…

أخي الكريم هذا كود بسيط سوف يحل مشكلتك بمشيئة الله تعالى واله الموفق Test.zip

أخي الكريم kiko11 لا حاجة لوضع ملفات لحذف الدليل ولكن يمكنك وضع شرطاً كالتالي: Dim D As String D = "C:\Foldername" If Dir(D & "\") <> vbNullString Then Kill D & "\*.*" RmDir D والله ولي التوفيق

إلى المبرمجة "متشوقة للمعرفة" في الحقيقة توجد طريقة لعلاج هذه المشكلة ولكن مع قليل من الصبر أولا: عليك بإضافة أداة Microsoft Ado Data Control 6 إلى المشروع عن طريق ال Project Components ثم إضافتها إلى النموذج من شريط الأدوات Toolbox ثانياً: تعيين خصائص الأداة …

أخي الكريم aljabali2006 إذا كنت تستخدم أداة Dblist التابعة لمجموعة Microsoft bound datalist controls فيمكنك إضافة الكود التالي لحدث النقر على القائمة: Private Sub DBList1_Click() Data1.Recordset.Bookmark = DBList1.SelectedItem End Sub وبهذا يتم تحريك أداة البي…

إلى الزميل The SNiper أولا سلامة مخك من الجلطة.. الأمر يسير، فهناك أداة خاصة بعرض حقل من حقول الجدول فى قائمة وهى أداة DataList التابعة لمجموعة Microsoft Data Bound List Controls والتى تضاف عن طريق Project Components والتى يمكن ربطها بأداة البيانات مباشرة عن ط…

إلى الزميل whassan يمكنك إدراج أداة Multimedia Control مع استخدام الكود التالي: Dim lngLenth As Long With MMControl1 .FileName = "FileName" If Not .Mode = mciModeNotOpen Then .Command = "Close" .Command = "Open" lngLenth = .Length End With آمل أن يفي هذا الرد …

أخي الكريم: أولاً: لقد نسيت نقطة بسيطة جداً وهى تحريك مؤشر السجلات إلى السجل التالي .MoveNext ثانياً: هناك طريقة أسهل، وهى تعديل الكود كالتالي: Private Sub Command1_Click() Dim rsTemp As New adodb.Recordset rsTemp.Open "Select Sum(num) as Total from tbs1", db,…

إلى الزميلة ريماس: البحث الذي يقصده المشرف عن طريق الفيجوال بيزيك يمكنك مثلا استخدام الكود التالي: Dim db As Database, rs As Recordset Private Sub Form_Load() Set db = OpenDatabase("E:\My Documents\My Data\QStoresXp.mdb") Set rs = db.OpenRecordset("Items", dbO…

إلى shahrani2 لست من هواة النقد ولكني فعلا لم أفهم السؤال أرجو التوضيح حتى أستطيع مساعدتك هل تريد الطباعة من الفيجوال بيزيك؟ أم أنك تريد أن ترسل خطاباً بالبريد الإلكتروني؟ مع خالص تحياتي

أخي العزيز apprentice يمكنك استخدام الكود التالي: With Printer .RightToLeft = True .FontName = "Arial" .FontSize = 14 .FillColor = vbBlue .FontBold = True Printer.Print "Text" .EndDoc End With آمل أن يفي بالغرض إذا كان هناك أي استفسار فأنا على أتم استعداد

اخي العزيز kiko11 يجب عليك حذف كل الملفات من كل الأدلة والأدلة الفرعية أولاً كالتالي: KILL "e:\abcde\*.*" ثم تحذف الدليل الفارغ كالتالي: RmDir "e:\abcde" وذلك بعد التأكد من أنك قمت بحذف الأدلة الفرعية (بعد حذف الملفات التى بداخلها طبعا) أرجو أن يكون الأمر قد ا…

أخي العزيز يمكنك استخدام ةالكود التالي: Date = DateAdd("m", 1, #3/21/2006#)

يمكنك عمل نسخة احتياطية من أي ملف عن طريق الكود التالي: File2="FileName" If Dir(File2)=vbnullstring then kill file2 FileCopy File1, File2

أخى الكريم أبو غالب حسابك لكمية المدخلات وكمية المخرجات خلال فترة معينة لا يعطيك قيمة الأرباح أو الخسائر، لأن البضاعة الداخلة خلال تلك المدة ليست بالضرورة هى نفس البضاعة المخرجة في نفس المدة، فقد تدخل سيارة مثلا وتظل موجودة وتباع سيارة أخرى كانت موجودة قبل الم…

أخي Super_Pro يمكنك الكتابة فى خلايا الرأس لل flixgrid كالتالي: With MSFlexGrid1 .Row = 0 .Col = 1 ' أو رقم العمود المطلوب .Text = "Any Text" End With

أخي العالم: الكود الذي طلبته: السؤال الأول: SavePicture Image1, "C:\Picture.Bmp" السؤال الثاني: Clipboard.Clear أرجو أن يفي بالغرض، وإذا كان هناك أي استفسار أنا على أتم استعداد.