عبدالفتاح حسن

الأخوة الأفاضل مازالت المشكلة قائمة فقد حاولت الإستفادة من المثال المرفق ولكن من خلال هذا المثال يمكن سحب نموزج الأوتوكاد بأبعاد صغيرة جدا يصعب معها تمييز الخطوط وعن محاولة حفظ ملف الأوتوكاد بصيغة BMP يتم حفظ الجزء الظاهر على الشاشة فقط وليس كل النموزج - علما …

جرب الود التالى مع الحدث KeyDown If keycode=13 then sendkeys "{Tab}"

استخدم الود التالى مع الحدث key_Down if Keycode=13 then sendkeys "{Tab}"

شكرا أخى الكريم سأقوم بفتح الرابط وسأوافيكم بما توصلت اليه

فكرة جيدة ولكن كنت افضل أن يقوم المستخدم بتحديد ملف الأوتوكاد فيقوم البرنامج بنقل محتوياته إلى Picture Box

لا المطلوب فقط هو سحب النموزج كصورة

الأخ الفاضل هل يمكن ارفاق مثال - لذلك

السادة الأفاضل : هل يمكن فتح ملف أوتوكاد واستدعاء محتوياته ووضعاها على PictureBox مثلا -أو أى أداه اخرى خاصة بالفيجوال بيزك بحيث يمكن التعامل مع الرسم من خلال إحداثيات X و Y الخاصين بأدوات الرسم الخاصة بالفيجوال بيزك

طيب وليه زعلان ..؟!! :angry:

الحل صحيح ولكن كما ذكرت ليست الفكرة فى الحل ولكن فى طريقة الحل وشكرا لك أخرى على المشاركة

موجز اللغز اننا نحتاج إلى اربعة مكاييل يمكن من خلالها ايجاد أى وزن صحيح من 1 حتى 40 كيلو بإستخدام ميزان ذو كفتين ... وللتوضيح أكثر نفرض أن الأربعة مكاييل هى 1 و 2 و 7 و 20 مثلا .... (وهو حل خاطئ) فيمكن ايجاد الوزن 3 عن طريق المكيالين 1 و 2 ويمكن ايجاد الوزن 4 …

الأخ الفاضل شكرا على هذا اللغز وفى انتظار المزيد اليك حل آخر بإستخدام الفيجوال بيزك For s = 987 To 100 Step -1 a = s \ 100 b = (s - a * 100) \ 10 If a = b Then GoTo 5 c = (s - a * 100 - b * 10) If a = c Or b = c Then GoTo 5 If s \ (a + b + c) = s / (a + b + c)…

السادة الأفاضل : لقد قمت بعمل كود يدمج فيه php بداخل الجافا سكريبت : <script language="javascript"> K='<? $result=mysql_query("select * from tabel1 where id=1")?>' </script> وهو يعمل جيدا بدون مشاكل ولكن اذا استبدله بالكود : <script language="javascript"> idno…

m=trim(m)

الأخ الفاضل مجهود رائع واليك هذا المرفق وهو يمكن من عمل الكود اللازم لتصميم الألوان Color.rar

شكرا للمشاركة وسوف اتابع الرابط والخص الحل حتى يسفيد الجميع

الإخوة الأفاضل : لدى مشكلة فى الإتصال بقاعدة بيانات Mysql على جهاز عليه XP وقد تم تنصيبIIS و Aptch وعن التعامل مع Localhost لا توجد مشكلة ولن المشكلة عن التعامل من القاعدة من جهاز آخر بعيد عن طريق اى بى الإنترنت والإتصال يتم عن طريق كود vb . مع العلم بأنه لاتو…

الأخ الفاضل البرنامج ممتاز وفقك الله للمزيد ولكن توجد ملحوظة مهمة يجب مراعاتها وهى أنك تحاول ان تستشف اسم الملف المراد تنزيله من اسم الوصلة For X = Len(myURL) To 1 Step -1 If Left$(Right$(myURL, X), 1) = "/" Then RealFile$ = Right$(myURL, X - 1) Next X myFile$…

الأخ الفاضل الوصلة للملف التنفيذى للبرنامج فقط وليس المشروع يرجى ان ترفق ملفات المشروع حتى تعم الفائدة

تفضل الكود بد التعديل Private Sub Command1_Click() Dim n As String, m As String, i As Integer n = List1 m = Combo1 If n = "ßÇãÑí" And m = "2000" Then Text1.Text = "42000" ElseIf n = "ßÇãÑí" And m = "2001" Then Text1.Text = "46500" ElseIf n = "ãÇßÓíãÇ" And m = …