[hannileo]

السلام عليكم ورحمة الله وبركاته ,,,

عندي اداة picture تحتوي داخلها على ادوات label واداة واحدة Picture   عندما اقوم بالتعديل على label واختيار صورة لاداة Picture ومن ثم اقوم بضغط زر preview 

تظهر الادوات label ولكن اداة Picture لاتظهر او انها تكون فارغة ؟؟!!!

وهذا الكود المستخدم لزر Preview

كود :

Dim sv as long
frmID_Preview.Picture2.AutoRedraw = True
rv = SendMessage(Picture1.hwnd, WM_PAINT, frmID_Preview.Picture2.hdc, 0)
rv = SendMessage(Picture1.hwnd, WM_PRINT, frmID_Preview.Picture2.hdc, PRF_CHILDREN + PRF_CLIENT + PRF_OWNED)
frmID_Preview.Picture2.Picture = frmID_Preview.Picture2.Image
frmID_Preview.Picture2.AutoRedraw = False

هل هناك طريقة لدمج اداة   Pictureداخل picture لتظهر بشكل عادي


وشكرا جزيلا لكم

[hannileo]

(06-08-17, 04:02 PM)hannileo كتب : السلام عليكم ورحمة الله وبركاته ,,,

عندي اداة picture تحتوي داخلها على ادوات label واداة واحدة Picture   عندما اقوم بالتعديل على label واختيار صورة لاداة Picture ومن ثم اقوم بضغط زر preview 

تظهر الادوات label ولكن اداة Picture لاتظهر او انها تكون فارغة ؟؟!!!

وهذا الكود المستخدم لزر Preview

كود :

Dim sv as long
frmID_Preview.Picture2.AutoRedraw = True
rv = SendMessage(Picture1.hwnd, WM_PAINT, frmID_Preview.Picture2.hdc, 0)
rv = SendMessage(Picture1.hwnd, WM_PRINT, frmID_Preview.Picture2.hdc, PRF_CHILDREN + PRF_CLIENT + PRF_OWNED)
frmID_Preview.Picture2.Picture = frmID_Preview.Picture2.Image
frmID_Preview.Picture2.AutoRedraw = False

هل هناك طريقة لدمج اداة   Pictureداخل picture لتظهر بشكل عادي


وشكرا جزيلا لكم

ياجماعة هل المووضع صعب يعني لايمكن عمل هذا الشيئ ؟؟

[Amir_Alzubidy]

السلام عليكم و رحمة الله و بركاته 
لا ليس صعب 
السؤال ليس واضح 
لكن ربما تستفيد من هذا الموضوع حسب ما فهمت من السؤال 
Paint Picture

[hannileo]

(07-08-17, 01:47 PM)Amir_alzubidy كتب : السلام عليكم و رحمة الله و بركاته 
لا ليس صعب 
السؤال ليس واضح 
لكن ربما تستفيد من هذا الموضوع حسب ما فهمت من السؤال 
Paint Picture

بارك الله بك استاذ امير بالضبط هذا مااريد

شكرا لك

[وائل القطاوي]

(07-08-17, 02:13 PM)hannileo كتب :

(07-08-17, 01:47 PM)Amir_alzubidy كتب : السلام عليكم و رحمة الله و بركاته 
لا ليس صعب 
السؤال ليس واضح 
لكن ربما تستفيد من هذا الموضوع حسب ما فهمت من السؤال 
Paint Picture

بارك الله بك استاذ امير بالضبط هذا مااريد

شكرا لك

ممكن الكود على فيجوال بيسك

[Taha Okla]

(05-03-23, 09:37 AM)وائل القطاوي كتب :

(07-08-17, 02:13 PM)hannileo كتب :

(07-08-17, 01:47 PM)Amir_alzubidy كتب : السلام عليكم و رحمة الله و بركاته 
لا ليس صعب 
السؤال ليس واضح 
لكن ربما تستفيد من هذا الموضوع حسب ما فهمت من السؤال 
Paint Picture

بارك الله بك استاذ امير بالضبط هذا مااريد

شكرا لك

ممكن الكود على فيجوال بيسك

المثال الموجود بأكواد VB6.0

يعني على أي إصدار آخر تريد ؟؟