I knew this was coming...
Heres one I prepared earlier:
\\\\
Imports System.Runtime.InteropServices
Imports System.Text
#Region " Dll Imports "
<DllImport("kernel32", CallingConvention:=CallingConvention.Cdecl)> _
Private Shared Function LoadLibrary( _
ByVal lpFileName As String) As IntPtr
End Function
<DllImport("kernel32", CallingConvention:=CallingConvention.Cdecl)> _
Private Shared Function FreeLibrary( _
ByVal hModule As IntPtr) As Boolean
End Function
<DllImport("UxTheme", CharSet:=CharSet.Unicode, _
CallingConvention:=CallingConvention.Cdecl)> _
Friend Shared Function GetCurrentThemeName _
(ByVal pszThemeFileName As StringBuilder, _
ByVal cchMaxNameChars As Integer, _
ByVal pszColorBuff As StringBuilder, _
ByVal cchMaxColorChars As Integer, _
ByVal pszSizeBuff As StringBuilder, _
ByVal cchMaxSizeChars As Integer) As Integer
End Function
#End Region
Private Function ExtractBitmap(ByVal sFilename As String, _
ByVal sBitmapName As String) As Bitmap
Dim hInst As IntPtr = LoadLibrary(sFilename)
Dim BMP As Bitmap = Bitmap.FromResource(hInst, sBitmapName)
FreeLibrary(hInst)
Return BMP
End Function
Dim TaskBarBmp As Bitmap
Dim StartButtonBmp As Bitmap
Private Sub SetBitmaps()
Dim ThemeName As StringBuilder = New StringBuilder(256)
Dim ColorName As StringBuilder = New StringBuilder(256)
Dim ThemeSize As StringBuilder = New StringBuilder(256)
GetCurrentThemeName(ThemeName, 256, ColorName, 256, ThemeSize, 256)
TaskbarBmp = ExtractBitmap(ThemeName.ToString, _
ColorName.ToString + "_TASKBARBACKGROUND_BMP")
StartButtonBmp = ExtractBitmap(ThemeName.ToString, _
ColorName.ToString + "_STARTBUTTON_BMP")
End Sub
////
--
Mick Doherty
http://homepage.ntlworld.com/mdaudi1...nate/home.html
"Martín Heras" <mh****@fibertel.com.ar> wrote in message
news:%2***************@TK2MSFTNGP10.phx.gbl...
Mmmmm... And how can I open an unmanaged resource from a file using
VB.NET?
Thank you...
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (
http://www.grisoft.com).
Version: 6.0.701 / Virus Database: 458 - Release Date: 07/06/2004
