Hola gente, tengo un problema, genero una aplicación en
exe, pero cuando se está ejecutando se roba todos los
recursos de la PC... el programa lanza aplicaciones word,
pdf o pps externas y carga unas 150 fotitos...
Puede ser por?
a) Que cargo muchas imágenes para tenerlas a disposición...
son como 150
lo hago con:
Dim WithEvents is1_m1de3 As Image
y
Set is1_m1de3 = Controls.Add("vb.image", "is1_m1de3",
fondo1de3)
is1_m1de3.Visible = True
is1_m1de3.Height = isHeight
is1_m1de3.Left = isLeft
is1_m1de3.Width = isWidth
is1_m1de3.Appearance = 0
is1_m1de3.BorderStyle = 1
is1_m1de3.Stretch = True
is1_m1de3.MouseIcon = LoadPicture(EXEPAth
+ "Iconos\select.cur")
is1_m1de3.MousePointer = 99
2) Estoy cargando mal los mouseicon de todos los objetos:
objetos.MouseIcon = LoadPicture(EXEPAth
+ "Iconos\select.cur")
3) Abro mal los archivos externos de la aplicación...
ExecuteFile (EXEPAth + "trabajos\BASES PARA UNA
CLASIFICACION DE SUELOS.DOC")
Function ExecuteFile(FilePath As String)
On Error GoTo error
ret = Shell("rundll32.exe url.dll,FileProtocolHandler " &
(FilePath), vbMaximizedFocus)
Exit Function
error: MsgBox Err.Description, vbExclamation, "Error"
End Function
Alguien que me ayude... please!
Andrés
