نمایش عکس بصورت گالری عکس ؟

[saeed7474]

سلام
فرض کنیم ما یه گالری عکس داریم که عکس ها بصورت کوچیک قرار داده شدن و میخوایم با رفتن موس روی عکس کوچک در سایز اصلی نمایش داده شود . باید چیکار کنیم ؟

من خودم اومدم اینطوری کردم
یه فرم گذاشتم یه کادر الفا ایمیج گذاشتم و تو رویداد موس مو نوشتم

picshow.Show
picshow.alpha.LoadImage_FromFile App.Path & "\pic\gallery\1.png"

اما این کد من مشکل داره
۱- سایز فرم ثابته و میخوام با عکس جور باشه یعنی هر عکس یه سایز داره میخوام قسمت اضافی فرم دیده نشه
۲-کنترل الفا ایمیجم هم اندازه اش ثابته و اتومات با عکس ست نمیشه و عکسو در سایز اصلی نشون نمیده

لطفا راهنمایی کنید
ممنون

[SlowCode]

سلام
کدت مشکلی نداره، خطا میده؟ یا عکس لود نمیشه؟
1- یه تصویر از محیط برنامت بزار تا ببینم چه راهی برات خوبه.
2-گزینه scalemod رو روی actualmod تنظیم کن. اگه درست نشد اون یکی رو امتحان کن.

[saeed7474]

سلام
کدت مشکلی نداره، خطا میده؟ یا عکس لود نمیشه؟
1- یه تصویر از محیط برنامت بزار تا ببینم چه راهی برات خوبه.
2-گزینه scalemod رو روی actualmod تنظیم کن. اگه درست نشد اون یکی رو امتحان کن.
نه خطا نمیده
گفتم
اما این کد من مشکل داره
۱- سایز فرم ثابته و میخوام با عکس جور باشه یعنی هر عکس یه سایز داره میخوام قسمت اضافی فرم دیده نشه
۲-کنترل الفا ایمیجم هم اندازه اش ثابته و اتومات با عکس ست نمیشه و عکسو در سایز اصلی نشون نمیده

نه با actualmod درست نمی شه

[saeed7474]

????????????

[SlowCode]

۱- سایز فرم ثابته و میخوام با عکس جور باشه یعنی هر عکس یه سایز داره میخوام قسمت اضافی فرم دیده نشه
شما اینجا گفتی که میخوای تصویرت به اندازه فرمت باشه درسته؟ پس این کد رو بنویس:

Image1.Left=0
Image1.Top=0
Image1.width=me.scalewidth
Image1.Height=Me.scaleheight

ولی اینجا یه چیز زدیگه گفتین:

۲-کنترل الفا ایمیجم هم اندازه اش ثابته و اتومات با عکس ست نمیشه و عکسو در سایز اصلی نشون نمیده
به هر حال، Autosize رو true کن. ولی اگه در حالت دیزاین true کنی خودش دوباره false میشه، نمیدونم چرا پس باید کدش رو بنویسی یعنی:

Image1.Autosize=True

[program2vb]

سلام
فرض کنیم ما یه گالری عکس داریم که عکس ها بصورت کوچیک قرار داده شدن و میخوایم با رفتن موس روی عکس کوچک در سایز اصلی نمایش داده شود . باید چیکار کنیم ؟

من خودم اومدم اینطوری کردم
یه فرم گذاشتم یه کادر الفا ایمیج گذاشتم و تو رویداد موس مو نوشتم

picshow.Show
picshow.alpha.LoadImage_FromFile App.Path & "\pic\gallery\1.png"

اما این کد من مشکل داره
۱- سایز فرم ثابته و میخوام با عکس جور باشه یعنی هر عکس یه سایز داره میخوام قسمت اضافی فرم دیده نشه
۲-کنترل الفا ایمیجم هم اندازه اش ثابته و اتومات با عکس ست نمیشه و عکسو در سایز اصلی نشون نمیده

لطفا راهنمایی کنید
ممنون

سام خدمت شما دوست عزیز شما میتونی یه سری به اینجا (http://barnamenevis.org/showthread.php?342810-%D9%86%D9%85%D8%A7%DB%8C%D8%B4-%D8%AA%D8%B5%D8%A7%D9%88%DB%8C%D8%B1-%D9%88-%D8%AC%D8%A7%DB%8C%DA%AF%D8%B2%DB%8C%D9%86-%DA%A9%D8%B1%D8%AF%D9%86-%D8%AA%D8%B5%D9%88%DB%8C%D8%B1-%D9%BE%D8%B3-%D8%B2%D9%85%DB%8C%D9%86%D9%87-........)بزنی موفق و پیروز باشی یا علی

[saeed7474]

شما اینجا گفتی که میخوای تصویرت به اندازه فرمت باشه درسته؟ پس این کد رو بنویس:

Image1.Left=0
Image1.Top=0
Image1.width=me.scalewidth
Image1.Height=Me.scaleheight

ولی اینجا یه چیز زدیگه گفتین:

به هر حال، Autosize رو true کن. ولی اگه در حالت دیزاین true کنی خودش دوباره false میشه، نمیدونم چرا پس باید کدش رو بنویسی یعنی:

Image1.Autosize=True

سلام
با این کد

Image1.width=me.scalewidth
Image1.Height=Me.scaleheight
اندازه کنترل ایمیج اندازه فرم میشه اما من میخوام اندازه فرم هم اندازه ایمیج بشه
منظورمو که متوجه این ؟
یعنی هر عکس یه سایز داره
میخوام با سایز عکس ست بشن و عکس در سایز واقعیش نمایش داده بشه

[SlowCode]

اتوسایز جواب داد؟
بفرما

width=image1.width
Height=Image1.Height

[saeed7474]

اتوسایز جواب داد؟
بفرما

width=image1.width
Height=Image1.Height

بازم کارنمیکنه !
a = image controleh
a.Left = 0
a.Top = 0
Width = a.Width
Height = a.Height
a.Width = Me.ScaleWidth
a.Height = Me.ScaleHeight
a.Stretch = False

[SlowCode]

چرا؟ مشکل چیه؟ این دو خط رو هم حذف کن:
a.Width = Me.ScaleWidth
a.Height = Me.ScaleHeight

[saeed7474]

چرا؟ مشکل چیه؟ این دو خط رو هم حذف کن:
a.Width = Me.ScaleWidth
a.Height = Me.ScaleHeight

تو فرم-لود مینوشتم
تو فرم-اکتیو نوشتم درست شد :چشمک:

[salamu]

شما اینجا گفتی که میخوای تصویرت به اندازه فرمت باشه درسته؟ پس این کد رو بنویس:

Image1.Left=0
Image1.Top=0
Image1.width=me.scalewidth
Image1.Height=Me.scaleheight

ولی اینجا یه چیز زدیگه گفتین:

به هر حال، Autosize رو true کن. ولی اگه در حالت دیزاین true کنی خودش دوباره false میشه، نمیدونم چرا پس باید کدش رو بنویسی یعنی:

Image1.Autosize=True

نه اگه scalemod رو روی actualmod بزاری و بعد اتوسایز رو true کنی false نمیشه.