Sitio web de resúmenes de películas - Doblaje en línea - Problema con el archivo de recursos de lanzamiento de VB
Problema con el archivo de recursos de lanzamiento de VB
Ejemplo:
Atenuar temp() como byte
temp = LoadResData(101, "CUSTOM") 'ico
Abrir " D:\1.ico" Para binario como #1
Coloque #1, 1, temp()
Cierre #1
temp= LoadResData(102 , "CUSTOM") 'Imagen
Abra "D:\2.jpg" para binario como #1
Coloque #2, 1, temp()
Cerrar #2
temp = LoadResData(103, "CUSTOM") 'exe
Abrir "D:\3.exe" para binario como #1
Poner #3, 1, temp()
Cerrar #3
temp = LoadResData(104, "CUSTOM") 'Cursor
Abrir "D: \4.cur" Para binario como #1
Coloque #4, 1, temp()
Cierre #4