معرفة حجم الصورة

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

لم أجرب لكن الطول فى العرض يعطيك المساحة بالتويب قم بتحويله لبكسل.

و للحفظ بالملف أبحث بالمنتدى.

بالتوفيق.

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

اقتباس

Dim PixelX As Long

Dim Pixely As Long

Private Sub Picture1_Click()

MsgBox ("X=" & PixelX & " Y=" & Pixely)

End Sub

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

PixelX = X

Pixely = Y

End Sub

اما عن الكتابة فيمكنك استخدام الـ Random Files

شكرا على الردوود

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

x=y

من غير ما تظهر فيه اي ارقام لترشدني على عدد البكسلات

اما الكود الثاني , لم اعرف كيف يستخدم؟؟؟

عموما انا جربت اغير scale mode الى pixels

ومن خلاله عرفت من scale hight و scale width عدد البكسلات

لاني اريد استخدمهم في قراءة الصورة

السؤال الان:

لما احدد قيمة array(500,500( لا يكفي . في حين ان حجم الصورة بالبكسل يكون 128*128

فكيف يتم تحديد قيمة array هل يحدد ب twip

وشكرا

Dim X As Long, Y As Long
X = Picture1.ScaleWidth / Screen.TwipsPerPixelX
Y = Picture1.ScaleHeight / Screen.TwipsPerPixelY

MsgBox "Pixels count = " & X * Y

و أنت عايز مصفوفة ليه :blink: ؟ هما قيمتين بس !

شكرا msayed2004 على الكود

في الحقيقة انا اريد اقرأ صورة واقوم بتسييف البكسلات في فايل حتى اقوم بفلترة الصورة ومن ثم اظهارها على السكرين

لهذا السبب احتاج كم بكسل في الصورة تحديدا كم طول وكم عرض الصورة بالبكسل

والصورة لما اسيفها بالبكسل تكون array in 2D لكن لما احدد array size(500,500) لا يكفي للقراءة في حين ان الصورة 128*128

فهل array size يعتمد على scale hight & scale width او hight & width

مع تحياااتي

نفس الرابط اللى حطيته بموضعك التانى : فلاتر للصور مفيش داعى لكل اللفة دى , الموضوع بسيط.