عرض الصور من مسار

ضع هذا الكود في المكان المناسب

 Report.Picture1.FormattedPicture = LoadPicture("C:\Photo Folder\Pic.jpg")
'قم بتعديل المسار ووضع المسار المناسب

تحياتي

شكرا أخي على تجاوبك

بس ممكن تشرح شو تقصد بكلمة report هل تقصد أداة الكريستال crystalreport1

والكلمة الثانية picture1 هل هي أدرة picture الموجوده في الكريستال

أرجوا التوضيح أكثر لانه جربت ما طلع في خطا

تحياتي

اخي الكريم

نعم هنا اقصد بكلمة Report هو CrystalReport و Picture1 هو اسم الاداة Picture الخاصة بالتقرير الكريستال ريبورت وحسب الاسم اللي انته خليته

تحياتي

ضع Picture Box , DriveListBox , DirListBox , FileListBox :

الكود :

Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub

Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub

Private Sub File1_Click()
	selectedfile = File1.Path & "\" & File1.FileName
	Image1.Picture = LoadPicture(selectedfile)
End Sub

هذا , باستخدام معالجات الملفات

---------------------------------------------------------------------------------------------------------

أما بدون استخدام مستعرضات الملفات

أضف Picture Box , TextBox , Command Button :

Private Sub Command1_Click()
	Dim strpath As String
	strpath = Text1.Text
	Picture1.Picture = LoadPicture(strpath)
End Sub

---------------------------------------------------------------------------------------------------------

باستخدام Microsoft Common Dialog Control 6.0

اضغط Ctrl + T وأضف الأداة Microsoft Common Dialog Control 6.0

وسمها Cmndlg1

الكود :

Private Sub Command1_Click()
	CmnDlg1.ShowOpen
	Picture1.Picture = LoadPicture(CmnDlg1.FileName)
End Sub

---------------------------------------------------------------------------------------------------------

مع تحيات ...

علاء VB

شكرا اخوي علاء على كل هذا الشرح

بس لسه لاحد الان هذا شرح لاظهار الصورة في اداة صور على الفورم

بس انا اريد اظهر تقرير يعني اطبع تقرير بالكريستال ريبورت لهذه الصورة

وشكرا

الاخ OMANI

الكود الي انت طرحته ما يمشي يعني يجيب خطا

أخي , انت ممكن تقوم بعمل تقرير بالأكسس مثلاً , وتربطه مع الصورة بحيث مثلاً :

if pic1.picture = loadpicture ("C:Man.jpg") then
Shell ("ManReport.doc")
End if

أو

إنك تربط مربع النص مع الصورة :

إذا تم فتح الصورة :

C:\Man.jpg

فإن مربع النص الأول سيحتوي على :

----------------

----------------

----------------

أو

إنك تربطها مع جدول في قاعدة بيانات :

إذا تم فتح الصورة :

C:\Man.jpg

فإن مربع النص الأول

ستتحول خاصية DataSource له إلى ...............

ستتحول خاصية DataField له إلى ...............

ويجب طبعاً وضع أداة Data وربطها بقاعدة البيانات المطلوبة

وبالتالي تحصل على المعلومات

لكن ماذا إن لم يكن للصورة ملعومات مخزنة , عندها يجب عليك ربط مربعات النص مع مستعرضات ملفات لإظهار المعلومات المطلوبة

إن وافقت على إحدى هذه الإقتراحات , سأحاول أن أضع لك نموذج عليه

مع تحيات ....

علاء VB

bnitt كتب:

الاخ OMANI

الكود الي انت طرحته ما يمشي يعني يجيب خطا

تفضل هذا مثال بالكريستال 10

تحياتي

Image_in_Report.rar