Hallo Leute,
ich versuche gerade unter Windows 10 den Icon Dialog von Windows zu verwenden. Der Aufruf klapp auch, nur gibt mir der Dialog nicht immer den Richtigen Index des Icons zurück.
Ist unter Windows 10 noch etwas zu beachten oder mache ich etwas falsch.
Hie mal mein Code:
ich versuche gerade unter Windows 10 den Icon Dialog von Windows zu verwenden. Der Aufruf klapp auch, nur gibt mir der Dialog nicht immer den Richtigen Index des Icons zurück.
Ist unter Windows 10 noch etwas zu beachten oder mache ich etwas falsch.
Hie mal mein Code:
VB.NET-Quellcode
- Declare Unicode Function PickIconDlg Lib "Shell32" Alias "PickIconDlg" (ByVal hwndOwner As IntPtr, ByVal lpstrFile As System.Text.StringBuilder, ByVal nMaxFile As Integer, ByRef lpdwIconIndex As Integer) As Integer
- Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
- Dim iconfile As String = Environment.GetFolderPath(Environment.SpecialFolder.System) + "\shell32.dll"
- Dim sb As New System.Text.StringBuilder(iconfile, 500)
- Dim iconindex As Integer
- Dim retval As Integer
- retval = PickIconDlg(Me.Handle, sb, sb.Capacity, iconindex)
- MessageBox.Show(iconindex.ToString)
- End Sub