I knew this was coming...
Heres one I prepared earlier:
\\\\
Imports System.Runtime. InteropServices
Imports System.Text
#Region " Dll Imports "
<DllImport("ker nel32", CallingConventi on:=CallingConv ention.Cdecl)> _
Private Shared Function LoadLibrary( _
ByVal lpFileName As String) As IntPtr
End Function
<DllImport("ker nel32", CallingConventi on:=CallingConv ention.Cdecl)> _
Private Shared Function FreeLibrary( _
ByVal hModule As IntPtr) As Boolean
End Function
<DllImport("UxT heme", CharSet:=CharSe t.Unicode, _
CallingConventi on:=CallingConv ention.Cdecl)> _
Friend Shared Function GetCurrentTheme Name _
(ByVal pszThemeFileNam e As StringBuilder, _
ByVal cchMaxNameChars As Integer, _
ByVal pszColorBuff As StringBuilder, _
ByVal cchMaxColorChar s As Integer, _
ByVal pszSizeBuff As StringBuilder, _
ByVal cchMaxSizeChars As Integer) As Integer
End Function
#End Region
Private Function ExtractBitmap(B yVal sFilename As String, _
ByVal sBitmapName As String) As Bitmap
Dim hInst As IntPtr = LoadLibrary(sFi lename)
Dim BMP As Bitmap = Bitmap.FromReso urce(hInst, sBitmapName)
FreeLibrary(hIn st)
Return BMP
End Function
Dim TaskBarBmp As Bitmap
Dim StartButtonBmp As Bitmap
Private Sub SetBitmaps()
Dim ThemeName As StringBuilder = New StringBuilder(2 56)
Dim ColorName As StringBuilder = New StringBuilder(2 56)
Dim ThemeSize As StringBuilder = New StringBuilder(2 56)
GetCurrentTheme Name(ThemeName, 256, ColorName, 256, ThemeSize, 256)
TaskbarBmp = ExtractBitmap(T hemeName.ToStri ng, _
ColorName.ToStr ing + "_TASKBARBACKGR OUND_BMP")
StartButtonBmp = ExtractBitmap(T hemeName.ToStri ng, _
ColorName.ToStr ing + "_STARTBUTTON_B MP")
End Sub
////
--
Mick Doherty
http://homepage.ntlworld.com/mdaudi1...nate/home.html
"Martín Heras" <mh****@fiberte l.com.ar> wrote in message
news:%2******** *******@TK2MSFT NGP10.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
