Здравствуйте, 2Diamond, Вы писали:
D>Здравствуйте, PA, Вы писали:
PA>>Например так:
PA>>
D> Do While IconCount > IconIndex
D> hIcon = ExtractIcon(0, IconStorage, IconIndex)
D> Dim i As Icon = System.Drawing.Icon.FromHandle(hIcon)
D> IconsCollection.Images.Add(i)
D> IconIndex += 1
D> Loop
D>Как сие понимать: hIcon - integer, а Icon = System.Drawing.Icon.FromHandle(hIcon) требует hIcon как IntPtr.
D>Я по сути сделал то же, но значение hIcon не принимается функцией FromHandle.
D>Дуже вдячний!
[vb]
Dim i As Icon = Drawing.Icon.FromHandle(New IntPtr(hIcon))
