View کامل یک عکس در PictureBox

[amirreza619]

سلام ! دوباره مزاحم شدم :لبخند:
چجوری میتونم وییو کامل یک عکس رو توی یه پیکچرباکس نشون بدم ؟ یعنی کل عکس داخل picturebox با اندازه معین نشون داده بشه نه اینکه فقط یه قسمت اون نمایش داده شه !
میخام کل عکس رو نشون بده جوری که هیچ قسمتی از عکس بیرون او picturebox نباشه !
( توجه کنین که نمیخام اندازه picturebox تغییر کنه ! )

[vahid_d_0101]

وقتی عکس را لود کردی این کد را بزن

Picture1.PaintPicture Picture1.Picture, 0, 0, Picture1.ScaleWidth, Picture1.ScaleHeight

[محسن واژدی]

سلام علیکم
هم میتوانیم از کد زیر استفاده کنیم: Private Sub Command2_Click()
Dim sPicFN$
sPicFN$ = Environ("windir") & "\Web\Wallpaper\Bliss.bmp"
Picture1.AutoRedraw = True
Picture1.PaintPicture LoadPicture(sPicFN$), 0, 0, Picture1.Width, Picture1.Height
End Sub

و یا یک کنترل Image درون PictureBox قرار داده و از کد زیر استفاده کنیم: Private Sub Command1_Click()
Image1.Move 0, 0, Picture1.Width, Picture1.Height
Image1.Stretch = True
Image1.Picture = LoadPicture(Environ("windir") & "\Web\Wallpaper\Bliss.bmp")
End Sub


موفق باشید

[vahid_d_0101]

کدی که من گذاشتم دیگه نیازی به تعریف متغییر نیست و همه کارا داخل همون پیکچر باکس و با سرعت انجام میشه
شاید یکی خاست 10 تا عکس لود کنه که باید 10 تا متغیییر تعریف کنه

[محسن واژدی]

کدی که من گذاشتم دیگه نیازی به تعریف متغییر نیست و همه کارا داخل همون پیکچر باکس و با سرعت انجام میشه
شاید یکی خاست 10 تا عکس لود کنه که باید 10 تا متغیییر تعریف کنه سلام علیکم
پوزش میخوام چون پست بنده با جواب شما دوست گرامی تقریبا همزمان ارسال شده بود جوابتان را ندیدم،
در مورد بکار بردن متغیر در سورسی که بنده قرار داده ام چون یک مسیر تصویر هم برای نمونه به کد اضافه شده اگر یکجا در کد قرار میگرفت نمونه سورس برای دوستمون شلوغ میشد، یعنی بصورت زیر: Picture1.PaintPicture LoadPicture(Environ("windir") & "\Web\Wallpaper\Bliss.bmp"), 0, 0, Picture1.Width, Picture1.Height برای همین مسیر را در یک متغیر قرار دادم تا کد خواناتر باشد، وگرنه حق با شماست،

در پناه حق باشید

[amirreza619]

بسیار مفید و بدرد بخور ! ممنون از همتون

[amovahed]

نیازی به کدنویسی نیست ، به ترتیب زیر عمل کنید:
یک picturebox به اندازه ذلخواه روی فرم قرار داده و تصویری به آن اضافه نکنید. حالا روی همین picturebox یک کنترل image قرار داده و خاصیت Stretch آنرا true و خاصیت enabeld آنرا false قرار دهید(نکته اصلی). هم اکنون تصویر خود را به این image اضافه کنید. حالا شما یک picturebox با تمام ویژگیها و خاصیت Stretch true دارید.