منتديات هندسة بلا حدود
مدير المنتدى م.نبيل الدم يرحب بكم ويتمنى لكم اجمل الاوقات
يرجى تسجيل دخولك أو التسجيل في المنتدى
عملية التسجيل سهلة جدا جدا ويمكنكم التسجيل دون الحاجة الى بريد الكتروني في حال لا يوجد لديكم,
فقط بعد التسجيل اذهب الى قسم تفعيل العضوية وطلب تفعيل حسابك مجانا, اهلا بالزوار
****************
ضع إعلانك معنا مجانا وبدون تسجيل (نحقق لك الاشهار والانتشار وزيادة الاعضاء والزوار) مجانا
****************
بسم الله . ماشاء الله..لاقوة الا بالله..اللهم صلى وسلم وبارك على سيدنا محمد
تسجيل دخول
اعلانات ادارية
  • ♥♥ ضع إعلانك معنا مجانا وبدون تسجيل (نحقق لك الاشهار والانتشار وزيادة الاعضاء والزوار) ♥♥

  • ♥♥ راسلنا لوضع اعلانك وستحصل على مميزات اعلانية خيالية ♥♥

أهلا وسهلا بك في منتديات هندسة بلا حدود .

css, html, java, games, cods, facebook, google, gmail, yahoo, hotmail, free ,للبيع, للشراء, للإيجار, عقارات, سيارات, اجهزة كهربائية , اثاث, خدمات, نقل عفش, بناء, كمبيوتر, صيانة, السياحة, وظائف, في الأردن , إعلانات, مبوبة, منتديات, ‏هندسة, اعلانات, مجاني


شاطر|


بيانات كاتب الموضوع
كود اختيار ايقونة+كود ازالة الصور من اداة الصور+كود عرض جميع انواع الصور مع تلاشي الاخطاء بالفيجوال بيسك 6 حصرياً على منتديات الاجرام هكر
كاتب الموضوعرسالة
المعلومات
الكاتب:
اللقب:
المدير العام
الرتبه:
المدير العام
الصورة الرمزية

avatar
البيانات
البلد البلد : الاردن
الاوسمة الخاصة الاوسمة الخاصة : ادارة المنتدى
الجنس الجنس : ذكر
عدد المساهمات عدد المساهمات : 2066
نقاط نقاط : 17327
السٌّمعَة السٌّمعَة : 21
تاريخ التسجيل تاريخ التسجيل : 20/07/2012
المستوى التعليمي المستوى التعليمي : Mechatronics & Control Engineering
العمل/الترفيه العمل/الترفيه : متابعة التكنولوجيا
المزاج المزاج : معتدل
تعاليق تعاليق : المدير العام لمنتديات هندسة بلا حدود
ஜ۩‎®️‎۩ஜ(م.نبيل الدم)ஜ۩‎®️‎۩ஜ

الإتصالات
الحالة:
وسائل الإتصال:
http://enging.yoo7.comhttp://www.facebook.com/Brmjyatrom3dhttps://twitter.com/Brmjyatrom3d

موضوع: كود اختيار ايقونة+كود ازالة الصور من اداة الصور+كود عرض جميع انواع الصور مع تلاشي الاخطاء بالفيجوال بيسك 6 حصرياً على منتديات الاجرام هكر الإثنين 08 سبتمبر 2014, 5:49 am

اذا احتوت المشاركة صورا - قم بالضغط عليها لعرضها بحجمها الطبيعي




كود اختيار ايقونة+كود ازالة الصور من اداة الصور+كود عرض جميع انواع الصور مع تلاشي الاخطاء بالفيجوال بيسك 6 حصرياً على منتديات الاجرام هكر


Private Sub Command1_Click()
On Error Resume Next
With CommonDialog1
.DialogTitle = "Please select an icon"
.filename = vbNullString
.DefaultExt = "ico"
.Filter = "Icon Files (*.ico) | *.ico"
.ShowOpen
End With
Text1.Text = CommonDialog1.filename
Picture1.Picture = LoadPicture(CommonDialog1.filename)
End Sub




Private Sub Command1_Click()
On Error Resume Next
    On Error GoTo ErrHndlr
    CommonDialog1.Filter = "All Picture supported|*.bmp;*.jpg;*.ico;*.cur;*.gif;*.png" & _
    "|Picture1 Files|*.bmp;*.jpg;*.gif" & _
    "|Picture2 Files|*.ico;*.cur;*.png" & _
    "|All Files|*.*"
    CommonDialog1.ShowOpen
    Text2.Text = CommonDialog1.filename
    If CommonDialog1.filename <> "" Then
     ImageName = CommonDialog1.filename
     Image1.Picture = LoadPicture(CommonDialog1.filename)
 '**'
    End If
    Exit Sub
ErrHndlr:
    If err.Number = 32755 Then Exit Sub
    MsgBox err.Number & vbCrLf & err.Description
End Sub


*********************


للتطبيق المطلوب منك فتح الفيجوال بيسك 6 ووضع
ازرار عدد 2
مربع نص عدد 2
اداة عرض الصور Image
اداة فتح الملفات CommonDialog1
ووضع الكودان في الفورم وشغل البرنامج


وهديتان جميلتان كود افراغ اداة عرض الصور من الصورة الموجودة بها


Image1.Picture = LoadPicture("")  'عرض صورة


وكود عرض الصور التي مسارها بمربع النص ملاحظة وضعة هذه العلامات لتدلك على مكان وضع هذا الكود وهما '**' بمجرد اختيارك للصورة يتم عرضها في مربع النص وفي ادات الصور ومع العلم ان لم تضع الكود هذا ستعرض الصورة في الاداة ولاكن لن يعرض المسار في النص


Image1.Picture = LoadPicture(Text1.Text)  'عرض صورة






للمساعدة او ان اعجبك الموضوع ضع رد ولا تكن بخيل


" شارك الموضع مع الجميع عبر المواقع لتعم الفائدة "




 الموضوع الأصلي : كود اختيار ايقونة+كود ازالة الصور من اداة الصور+كود عرض جميع انواع الصور مع تلاشي الاخطاء بالفيجوال بيسك 6 حصرياً على منتديات الاجرام هكر // المصدر : منتديات هندسة بلا حدود // الكاتب:نبيل الدم


توقيع العضو ; نبيل الدم



منتديات, ‏هندسة, اعلانات, مجانا, مجانية, الاشهار, برامج, كهرباء, برمجة, الكترونيات, التحكم, المبرمج, الحماية, التصميم, Control, Mechatronics, facebook, plc, motor, star, delta, ats, google, app, cnc,
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة]
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة]
ஜ۩‎®‎۩ஜ(م.نبيل الدم)ஜ۩‎®‎۩ஜ


كود اختيار ايقونة+كود ازالة الصور من اداة الصور+كود عرض جميع انواع الصور مع تلاشي الاخطاء بالفيجوال بيسك 6 حصرياً على منتديات الاجرام هكر

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة
الإشارات المرجعية والمشاركة عبر مواقع التواصل الاجتماعي
التعليق على الموضوع بواسطة الفيس بوك



الــرد الســـريـع



آخر المواضيع في منتديات هندسة بلا حدود
الموضوع
تاريخ ارسال المشاركة
بواسطة
الحكومة تُقرّ آليّة الدعم وتدعو للتسجيل - صحيفة الرأي ,رابط موقع تسجيل طلبات الدعم 2018
Circular pocket Gcode cnc
JUMANJI: WELCOME TO THE JUNGLE - Official Trailer (HD)
أفضل فيلم هندي شفته - دراما وكوميديا - انصح فيه بقوووة Best Indian movie of all time HD 2017
The Legend Of Hercules فيلم الاكشن الخطير والحركه الرائع مترجم
افلم 2017اقوى افلام اكشن THE PROTECTOR HD_HD
اجمل فلم هندي اكشن رومنسي في الكون جديد رؤؤؤعه كامل مترجم افلام هندية 2018 Raazi
فيلم هندي اكشن ورومنسية الرائع مترجم " القاتل المأجور " 2017 new moves
Phir Milenge | فير ميلينغي ( 2004) | بترجمة عربية | With Arabic Subtitles (HD)
لن تندم على مشاهدة هذا الفيلم الروسي القصير
الخميس 18 يناير 2018, 2:43 pm
الخميس 11 يناير 2018, 3:08 pm
الإثنين 08 يناير 2018, 12:53 pm
الإثنين 08 يناير 2018, 12:49 pm
الإثنين 08 يناير 2018, 12:47 pm
الإثنين 08 يناير 2018, 12:43 pm
الإثنين 08 يناير 2018, 12:40 pm
الإثنين 08 يناير 2018, 12:38 pm
الإثنين 08 يناير 2018, 12:36 pm
الإثنين 08 يناير 2018, 12:33 pm

Flag Counter منتديات هندسة بلا حدود


تعرف على منتديات هندسة بلا حدود

يعتبر موقع منتديات هندسة بلا حدود من المنتديات المشهورة والمهمة ومن المواقع هندسية العربية على الانترنت ،وحتى الآن عدد الأعضاء المنتسبين له في المنتديات كأكبر تجمع هندسي عربي حتى الآن .ويهدف الموقع إلى نشر المعرفة الهندسية وتقديم كل ماله فائدة للمهندسين والفنيين والمهتمين من خلال أقسامه العلمية والهندسية المتعددة ،بالإضافة إلى وجود أقسام عامة تستقطب الكثير لمختلف النقاشات الهادفة.
جميع الحقوق محفوظة 2017 © منتديات هندسة بلا حدود Powered by phpBB ® Copyright © 2012 - 2017 تصميم منتديات هندسة بلا حدود نبيل الدم