جلوگیری از انتخاب تصویر بیشتر از 300*400 پیکسل

[alipoor2009]

سلام - دوستان
من می خواهم تو برنامم کاربر تصویری را انتخاب کنه و اگه طول و عرض اون بیشتر 300*400 بود یه پیغام بهش بده

[setroyd]

شما مقدار picturebox رو از twip به pixel تبدیل کن و autosize رو true کن در صورت بیشتر بودن scalewidth و height از 300 و 400 به شما بگه یا از توابع api استفاده کن که تو همینجا میتونی پیداش کنی

[alipoor2009]

دوست عزیز بی زحمت اگه می شه یه نمونه بذار - اصلا متوجه نشدم ! سپاس

[m.4.r.m]

شما مقدار picturebox رو از twip به pixel تبدیل کن و autosize رو true کن در صورت بیشتر بودن scalewidth و height از 300 و 400 به شما بگه یا از توابع api استفاده کن که تو همینجا میتونی پیداش کنی
Private Sub Command1_Click()
CMD.ShowOpen
Picture1.Picture = LoadPicture(CMD.FileName)
If Picture1.ScaleHeight > 400 Then
If Picture1.ScaleWidth > 300 Then
MsgBox "اندازه تصوير شما بيشتر از حد مجاز است" & vbCrLf & " طول : 400 " & vbCrLf & "عرض : 300", vbExclamation + vbMsgBoxRight + vbMsgBoxRtlReading, ""
Picture1.Picture = Nothing
Picture1.ScaleHeight = 400
Picture1.ScaleWidth = 300
End If
End If
End Sub

[vbhamed]

سلام
اينك يك نمونه بهتر كه اطلاعات رو از هدر فايل مي‌خونه و فايل رو لود نمي‌كنه
چون اگر سايز خيلي بزرگ باشه و لود بشه هم حافظه زيادي مصرف ميشه، هم زمان زيادي مي‌گيره و هم ممكنه برنامتون به مشكل بخوره