• الإعلانات

    • فيصل الحربي

      تسجيل عضوية جديدة في المنتدى   01/31/2016

      السلام عليكم ورحمة الله وبركاته  عزيزي العضو الجديد :  حاليا رسالة الإيميل لتأكيد صحة إيميلكم تذهب للبريد العشوائي ( جاري حل المشكلة )  فإذا لم تجد رسالة التحقق من إيميلكم في صندوق الوارد لديكم إتجه للبريد العشوائي ( JUNK)  وقم بتفعيل إشتراككم من هناك   

abohamed

اعضاء
  • عدد المشاركات

    85
  • تاريخ الانضمام

  • تاريخ اخر زياره

السمعه بالموقع

0 عادي

عن abohamed

  • الرتبة
    عضو
  1. تفضل أخي الكريم    هذا الكود  Private Sub Form_Load()For i = 0 To 4    Text1(i).MaxLength = 1NextEnd SubPrivate Sub Text1_Change(Index As Integer)On Error Resume Next    If Text1(Index).Text <> "" Then Text1(Index + 1).SetFocusEnd Sub
  2. تفضل أخي الكريم    حاول تجربة هذا الكود  Private Sub Computers_Name_List()On Error Resume Next'Clear List BoxComputers_List.Clear'Create file with list of network computersShell "cmd /c net view >C:\comName.txt", vbHideDim FileSystemObject, TextStream As ObjectSet FileSystemObject = CreateObject("Scripting.FileSystemObject")'Open text fileSet TextStream = FileSystemObject.OpenTextFile("C:\comName.txt")'Read in file line by line at trim it down to needed infox = 0Do Until TextStream.AtEndOfStream   x = x + 1   strLine(x) = TextStream.ReadLine   strLine(x) = Mid(strLine(x), 3, 18)   strLine(x) = Trim(strLine(x))Loop'close fileTextStream.Close'OutputFor i = 4 To x - 2 Computers_List.AddItem strLine(i)Next iEnd Sub
  3. تمت الاجابة عليك في منتديات المحيط العربي
  4. تفضل أخي الكريم If rs.State = adStateOpen Then rs.Close rs.Open "select * FROM [gen] WHERE LIKE '%" & Trim(Text8) & "%' or [num] LIKE '%" & Trim(Text8) & "%' Or [kind] LIKE '%" & Trim(Text8) & "%' Or [source] LIKE '%" & Trim(Text8) & "%' Or [tex] LIKE '%" & Trim(Text8) & "%' Or [notes] LIKE '%" & Trim(Text8) & "%'", db, adOpenStatic, adLockPessimistic والله الموفق ابو حمد
  5. بارك الله فيك أخي الكريم انا اريد الطريقة بأية لغة سواء c++ أو VbNet أو C أو php java script أو أية لغة أخرى واكون شاكراً لك ومقدر وتقبل تحياتي
  6. كل ذلك ممكن لا يوجد شيء مستحيل في البرمجة إلا المستحيل على العقل البشري
  7. أخي الكريم هذا سهل 1- اضف أداة CommonDialog على الفورم 2- أضف زر أمر Command 3- أضف مربع نص TextBox وضع هذا الكود Private Sub Command1_Click() CommonDialog1.Filter = "PowerPoint |*.ppt|PowerPoint Show |*.pps| " CommonDialog1.DialogTitle = "Open" CommonDialog1.ShowOpen Text1.Text = CommonDialog1.FileName End Sub ابو حمد
  8. السلام عليكم ورحمة الله وبركاته أقدم لكم بذه تعريفية عن النظام الشامل للعقارات وهو من تصميمي وبرمجتي هو عبارة عن نظاماً شاملاً لإدارة جميع أنشطة المكاتب العقارية من بيع واستثمار وإدارة الأملاك لجميع العروض العقارية ، وقدر روعي فيه البساطة والدقة والشمولية دون أدنى مشاكل أو معوقات ، كما أن النظام قد صمم بعد متابعة حيه للنشاط العقاري مما جعله نظاماً سهلاً ومريحاً لخدمة المستخدمين ======================================== عن قريب بإذن الله سأقوم بوضع نسخة تجريبية من النظام . ======================================== مرفق معه شرح لعمل النظام لتحميل المرفق فقط إضغط باليمين Save Target As الرابط آرائكم تهمني أعزائي الكرام أخوكم ابو حمد عبد الله الشراري
  9. أخي العزيز لماذا لا تجرب كريستال ريبورت قد يكون فيه الحل لمشكلتك
  10. وين المحترفين والخبراء ارجو المساعدة
  11. لنفرض أن أسم اللإدارة في Text1 وأن بداية التاريخ في Text2 ونهاية التاريخ في Text3 سيصبح الكود هكذا "select * from data_emp where mang='" & text1.text & "' and date>=#" & text2.text & "# and date<=#" & text3.text & "#"
  12. أخواني الأعزاء ... مشرفي واعضاء منتدانا الغالي . السلام عليكم ورحمة الله وبركاته لدي صورة من نوع (JPEG او JPG ) تحتوي على أربعة أرقام فهل يمكنني سحب هذه أرقام من هذه الصورة ووضعها داخل مربع Text . علما بأن خلفية الصور باللون الأسود والأرقام باللون الأبيض ولا تحتوي على أية رسومات . وهذه مثال مرفق للصورة آمل من الله ثم منكم أعزائي الكرام مد يد العون ومساعدتي في ذلك وجزاكم الله الجنه .
  13. سلمت يداك وبارك الله فيك أخي العقدة