كود اختيار ايقونة+كود ازالة الصور من اداة الصور+كود عرض جميع انواع الصور مع تلاشي الاخطاء بالفيجوال بيسك 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) 'عرض صورة
للمساعدة او ان اعجبك الموضوع ضع رد ولا تكن بخيل
" ======================================================= "
" انتهى الاعلان او الموضوع او الخبر "
خبير سيو تواصل معي : خبير سيو
ميز اعلانك من هنا : اعلان رابط نصي دو فلو على منتديات هندسة بلا حدود 5$ فقط لشهر واحد - متجر خدمة لي
اعلان مميز : امتلك متجر الكتروني احترافي مع منصة استقل
خدمات تحسين سيو المواقع
" فضلا وليس امرا شارك الموضع مع الجميع عبر المواقع لتعم الفائدة "
البلد
الاوسمة الخاصة
الجنس : 
عدد المساهمات : 
الإثنين 08 سبتمبر 2014, 5:49 am
هام جداً: قوانين المساهمة في المواضيع. انقر هنا للمعاينة 
