PDA

View Full Version : پیاده سازی توابع آیکون در vb.net



afshin_6286
دوشنبه 13 آذر 1391, 18:30 عصر
سلام دوستان ... کسی برنامه پیاده سازی شده با توابع آیکون در .net رو داره ؟؟؟ اگه کسی داره لطف کنه برام ارسال کنه ... من برنامشو با ویژوال بیسیک 6 دارم ولی با دات نت میخواستم .:قلب::لبخند:

afshin_6286
سه شنبه 14 آذر 1391, 09:54 صبح
بچه ها کسی نمیتونه به ما کمک کنه ؟

ROSTAM2
سه شنبه 14 آذر 1391, 10:16 صبح
چی می خوای

از کلاس Icon توابع رو بگیرید- از ObjectBrowser هم کمک بگیرید

afshin_6286
سه شنبه 14 آذر 1391, 13:56 عصر
من نمیتونم پیاده سازیشون کنم ... توابع آیکون مثل CopyIcon و DestroyIcon و DrawIcon و DrawIconEx و DuplicateIcon و ExtractIcon و ExtractIconEx و LoadIcon و OpenIcon و SHChangeIconDialog و Shell_NotifyIcon اینها رو میخواستم به زبان دات نت پیاده سازی کنم ... این دستورت رو با ویژوال بیسیک 6 دارم ولی دات نت میخواستم ... اگه بتونی بهم کمک کنی خیلی لطف میکنی .

afshin_6286
سه شنبه 14 آذر 1391, 14:17 عصر
96005

اینا کدهای با برنامه ویژوال بیسیک 6 هست میخواستم همشون در یک برنامه با زبان دات نت باشه .:قلب::لبخند:

afshin_6286
چهارشنبه 15 آذر 1391, 22:08 عصر
کسی نیست جواب ما رو بده ؟؟؟:گریه:

اگه کسی از دوستان میتونه انجام بده هزینش رو هم میدم . فقط فوریه لطفا ...

afshin_6286
جمعه 17 آذر 1391, 09:27 صبح
اقای مدیر یکی نیست پروژه ما رو انجام بده ؟؟؟

Hossis
جمعه 17 آذر 1391, 12:53 عصر
یک نمونه اش این جوری هست
Dim Ico As Icon = Drawing.Icon.ExtractAssociatedIcon("d:\01.exe")

بقیه اش رو خودم هم کار نکردم
شما چرا از همین توابع API تو وی بی دات نت استفاده نمی کنید؟؟

shahryari
جمعه 17 آذر 1391, 16:25 عصر
با سلام
با تابع زير ميتونيد يك فايل ico را در يك پيكچر باكس نمايش بديد و در نهايت اونو با هر پسوندي كه دوست داريد ذخيره كنيد
تابع:
Public Function setbitmap(ByVal icon As Icon) As Bitmap
Dim bmp As New Bitmap(icon.Width, icon.Height)
Dim g As Graphics = Graphics.FromImage(bmp)
g.DrawIcon(icon, 0, 0)
g.Dispose()
Return (bmp)
End Function
روش استفاده اش هم توسط يك باتن به شرح زير است:
Dim icon As Icon = New Icon("c:\temp\icon.ico")
PictureBox1.Image = setbitmap(icon)
PictureBox1.Image.Save("C:\temp\test.jpg")
موفق باشيد

afshin_6286
جمعه 17 آذر 1391, 17:10 عصر
بچه ها اگه کسی میتونه کل پروژه انجام بده هزینش هم میدم !!!
بهم پیام بدین .
afshin.6286@gmail.com