reza1944
شنبه 16 آذر 1387, 23:08 عصر
با سلام خدمت همه دوستان
اگه فایل زیر رو دانلود کنید یک فایل اکسل وجود دارد که وقتی اون رو باز میکنید و در قسمت option برنامه developer tab رو در قسمت popular فعال کنید 6 گالری که تمامی آیکنهای برنامه office در اون قرار دارد.
به قسمت visual basic اون برید و یک فرم و یک ماژول میبینید یه نگاه بندازید حالیتون میشه روی هر آیکن گالری کلیک کنید ببینید چه اتفاقی میفته .
یه هفته میشه درگیر این فایل و add ins در vb 2008 هستم اگه یک دکمه به ribbon اضافه کنید و خاصیت officeimageid رو میبینید حالا بنویس FileSave و خاصیت controlsize رو برابر large قرار بده و یه F5 کوچلو بزن میبینی همون آیکن save آفیس اونجاست این تا انجا
دستور GetImageMso رو استفاده کنید و باهاش ور برید.
حرفه ای ها :
آیکن ها رو چطوری ذخیره کنیم ؟؟؟؟؟؟؟
Public Shared Function Convert(ByVal image As stdole.IPictureDisp) As System.Drawing.Image
Dim type As Integer = image.Type
If type = 1 Then
Dim hPal As IntPtr = CType(image.hPal, IntPtr)
Return Image.FromHbitmap(CType(image.Handle, IntPtr), hPal)
End If
Return Nothing
End Function
این رو هم داشته باشید بدردتون میخوره!
اگه فایل زیر رو دانلود کنید یک فایل اکسل وجود دارد که وقتی اون رو باز میکنید و در قسمت option برنامه developer tab رو در قسمت popular فعال کنید 6 گالری که تمامی آیکنهای برنامه office در اون قرار دارد.
به قسمت visual basic اون برید و یک فرم و یک ماژول میبینید یه نگاه بندازید حالیتون میشه روی هر آیکن گالری کلیک کنید ببینید چه اتفاقی میفته .
یه هفته میشه درگیر این فایل و add ins در vb 2008 هستم اگه یک دکمه به ribbon اضافه کنید و خاصیت officeimageid رو میبینید حالا بنویس FileSave و خاصیت controlsize رو برابر large قرار بده و یه F5 کوچلو بزن میبینی همون آیکن save آفیس اونجاست این تا انجا
دستور GetImageMso رو استفاده کنید و باهاش ور برید.
حرفه ای ها :
آیکن ها رو چطوری ذخیره کنیم ؟؟؟؟؟؟؟
Public Shared Function Convert(ByVal image As stdole.IPictureDisp) As System.Drawing.Image
Dim type As Integer = image.Type
If type = 1 Then
Dim hPal As IntPtr = CType(image.hPal, IntPtr)
Return Image.FromHbitmap(CType(image.Handle, IntPtr), hPal)
End If
Return Nothing
End Function
این رو هم داشته باشید بدردتون میخوره!