المبرمج أحمد

جميع الحلول الكاملة لتشغيل برنامج مصمم بالفيجوال بيسك 6 على أي جهاز بأكثر من 50 صورة الرجاء استخدام خاصية البحث قبل السؤال..

جرب برنامج Recuva: www.recuva.com http://www.filehippo.com/download_recuva/

لا ألاحظ أي تغير في النت هنا ..

استخدم الأمر DoEvents بعد LoadPicture

المشكلة مذكورة بالتفصيل في رسالة الخطأ ، أحد الحقول لديك في الجدول لا يسمح بتكرار القيم فيه .. وأيضًا حل المشكلة مذكور في نفس الرسالة

MDI Taskbar

الكود الذي وضعه أخي mrx_ta7ady صحيح ، ولكن ينقصه سطر كي يعمل : IsClicked = True ضع هذا السطر في MouseDown

ما نوع قاعدة البيانات المستخدمة ؟

الرقم 1 يعني حرف واحد ، لو غيرته إلى 3 مثلاً فستقوم الدالة Mid بإرجاع ثلاثة أحرف بعد الموضع j

هذا السطر سيقوم باستخراج الحرف (ذو الترتيب j) من المتغير buf ، وتخزين قيمة الأسكي له في D(j) .. حيث أن ت هي المتغير المستخدم في الدوران for loop

تفضل الرابط: How To Use Color Dialog from COMDLG32.DLL in VB and Access

http://www.gab2001uk.com/visualbasic/daovsado/adocompact.htm

إذا كان الإغلاق عن طريق نافذة مدير المهام ( وبالتحديد من تبويب Applications وليس Processes ) ، فهذا هو الكود : انسخ الكود Private Sub Form_QueryUnload ( Cancel As Integer , UnloadMode As Integer ) If UnloadMode = 3 Then MsgBox "You killed me using task manager…

app.path &"\.\abc\db.mdb"

الأخ الكريم/الأخت الكريمة السلام عليكم ورحمة الله وبركاته مرحباً بكم في منتدى الفريق العربي للبرمجة نود تنبيهك أن العنوان غير مناسب. الرجاء اختيار عنوان مناسب أكثر في مواضيعك القادمة، وهذا بمثابة إشعار للأهمية. وفي حال التكرار سيتعرض موضوعك للإغلاق والحذف!!! ق…

فقط عدل السطر التالي : انسخ الكود Text2. Text = Format ( Text2. Text , "#.00 " )

أخي الكريم ، هذا القسم خاص بالفيجوال بيسك ولا علاقة له بالـ Metastock .. فالأفضل أن تسأل هذا السؤال في أحد المنتديات المتخصصة بالميتاستوك .

هذا هو كود الإضافة إلى Listbox انسخ الكود ListBox1. Items . Add ( TextBox1. Text & " - " & TextBox2. Text )

أخي omani ، لنفترض أننا نريد تحميل الملفات من 11211.rar إلى 11299.rar ( لنفترض أن هناك دالة اسمها DownloadURL انسخ الكود Dim i As Integer , str As String For i = 11211 To 11299 str = "www.xxxxxx.com/" & i & ".rar" DownloadURL str Next هنا الكود سيقوم بتحميل جم…

انسخ الكود Dim str As Boolean = True Dim chr As Char For Each chr In TextBox1. Text If Asc ( chr ) >= 48 And Asc ( chr ) <= 57 Then str = False Exit For End If Next If str = False Then MessageBox. Show ( "عفوًا لا يسمح بإدخال أرقام" ) End If