Problema de VB6 al obtener el ícono EXE
Ejemplo 1
1. Cree tres botones en el formulario, denominados cPrv, cOpen y cNext.
2. Agregue un nombre de control de comando y use el valor predeterminado.
3. Copie el siguiente código en el cuadro de código del formulario:
Función de declaración privada ExtractIcon Lib "shell32.dll" Alias "ExtractIconA" (ByVal hInst As Long, ByVal ByVal y As Long, ByVal hIcon As Long) As Long
Dim lNum As Long
Dim lCount As Long
Dim astr As String
Private Sub CNext_Click()
lNum = lNum + 1
x1 = ExtractIcon(App.hInstance, astr, lNum)
Form1.Refresh< / p>
x2 = DrawIcon(Form1.hdc, 10, 10, x1)
cPrv.Enabled = True
Si lNum = lCount Entonces
cNext.Enabled = Falso