السلام عليكم ورحمة الله وبركاته ,,,
عندي اداة picture تحتوي داخلها على ادوات label واداة واحدة Picture عندما اقوم بالتعديل على label واختيار صورة لاداة Picture ومن ثم اقوم بضغط زر preview
تظهر الادوات label ولكن اداة Picture لاتظهر او انها تكون فارغة ؟؟!!!
وهذا الكود المستخدم لزر Preview
هل هناك طريقة لدمج اداة Pictureداخل picture لتظهر بشكل عادي
وشكرا جزيلا لكم
عندي اداة 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 لتظهر بشكل عادي
وشكرا جزيلا لكم