¿Cómo escribe VB archivos de recursos y ejecuta archivos en archivos de recursos?
2000-09-06 00:00 Autor: - Fuente: VB Programming Paradise Editor:
“A menudo no puedes hacerlo usted mismo Si le duele la cabeza al organizar una gran cantidad de imágenes en su programa, le presentaré un buen ayudante para la programación en VB: los archivos de recursos
Los llamados archivos de recursos se refieren a archivos que recopilan. Los recursos utilizados en la ejecución del programa. Los archivos de recursos pueden contener texto, mapas de bits, iconos, etc. Y no es necesario especificar la ruta al llamar al programa, lo que simplifica la escritura del programa y reduce la posibilidad de errores. Tome un pequeño programa como ejemplo para hablar sobre algunos métodos de uso.
Después de ejecutar este proyecto, cuando se hace clic en el botón Futuro, la imagen en el medio se convertirá a verano, otoño, invierno, primavera... Cuando se hace clic en el botón "Anterior", la imagen se rotará en orden inverso (programa fuente adjunto)
Primero cree cuatro mapas de bits de primavera, verano, otoño e invierno, y guárdelos en formato C:\TEST\ y luego abra el Bloc de notas para escribir archivos de recursos.
p>El contenido es el siguiente:
100 mapas de bits spring.bmp
200 mapas de bits verano.bmp
300 mapas de bits otoño.bmp
400 mapas de bits invierno.bmp
El número representa el número de identificación de este elemento, que ¡Es muy importante y afecta directamente la llamada! El mapa de bits se guarda como un mapa de bits y la última parte es el nombre del archivo. Guarde el archivo como prueba.
A continuación, compile este archivo de recursos. Busque el archivo RC.EXE en el directorio C:\Visual Basic\Wizards. En modo MS-DOS, guarde la clave C: \ rc/r C:\ test RC (escriba RC /? para obtener ayuda). compilación exitosa, se encontrará un archivo llamado TEST en C:\TEST\
Después de completar el trabajo anterior, puede escribir el proyecto Primero, cree un control de imagen img y dos controles de comando cmdc y cmdw. Luego cree un control de reloj y establezca su propiedad Intervalo en 1000. Declare una variable entera llamada iid:
Atenúe iid como un número entero
E inicialice img e iid:
img image = LoadResPicture(100, vbResBitmap).
iid=100
LoadResPicture(ID, modelo) es una función que llama a la imagen del archivo de recursos 100. elemento con número de identificación 100. vbResBitmap es una constante con un valor de 0, lo que indica que el mapa de bits está activado. Luego agregue el código fuente a los dos controles de comando.
Finalmente, haga clic derecho en el explorador de proyectos y seleccione Agregar-$# @ 62; Royal Economic Society
En este punto, el proyecto está completado. Presione F5 para ejecutarlo. Espero que te guste. Otro punto que hay que destacar es que un proyecto sólo puede tener un documento de proyecto. Programa fuente adjunto:
Opción explícita
Dim iid es un número entero
Private Sub comc_Click()
iid = iid - 100
Si iid$#@60100, entonces iid=400
img. imagen = LoadRespicture(iid . vbresbitmap)
Terminará si...
Finalizar conector
Sub privado comw_Click()
d = 100 + iid
Si iid$#@62400, entonces iid = 100
img.
Imagen = LoadResPicture(iid, vbResBitmap)
Terminará si...
Finalizar conector
Subform_Load() privado
img. imagen = LoadResPicture(10O, vbResBitmap)
iid = 100
Conector final
Subtemporizador privado 1_Timer()
iid = 100 + iid
Si iid$#@62400, entonces iid = 100
img. Imagen = LoadResPicture(iid, vbResBitmap)
Terminará si...
Finalizar conector