تنظيم icon و BackgroundImage با کد نويسي

[sima_62]

سلام

من توي پروژو يک فولدر اضافه کردم ، عکس و ايکون رو گذاشتم توش، مي خوام با کد از توي اين فولدر icon و back ground ro تنظيم کنم .

[kablayi]

شما بایستی ابتدا آیکون و تصویری رو که میخوای استفاده کنید رو به پنجره soulution اضافه کنید بعد خاصیتcopy to output directory رو برای تک تک اونا برابر Allways copy قرار بدی... بعد به صورت زیر عمل کنید ...:


Dim FRMicon AsNew Icon(Application.StartupPath & "/image/icon.ico")
Me.Icon = FRMicon
Me.BackgroundImage = Image.FromFile(Application.StartupPath & "/image/pic.jpg")


در این کد فرض بر این قرار داده شده که آیکون و تصویر در پوشه ای به نام Image قرار داده شده اند...