Cómo cargar imágenes automáticamente al iniciar un formulario en VB

Lectura y escritura de archivos INI:

¡Crea un nuevo módulo en tu proyecto y pega el siguiente código!

Función de declaración pública WritePrivateProfileString Lib "kernel32" Alias ​​​​"WritePrivateProfileStringA" (ByVal lpApplicationName como cadena, ByVal lpKeyName como cualquiera, ByVal lpString como cualquiera, ByVal lpFileName como cadena) siempre y cuando

Función de declaración pública GetPrivateProfileString Lib "kernel32" Alias ​​​​"GetPrivateProfileStringA" (ByVal lpApplicationName como cadena, ByVal lpApplicationName como cadena, ByVal lpKeyName como cualquiera, ByVal lpDefault como cadena, ByVal lpReturnedString como cadena, ByVal nSize como larga, ByVal lpFileName como cadena ) Mientras

Sub escritura pública en Ini (nombre de archivo ByVal como cadena, sección ByVal como cadena, clave ByVal como cadena, valor ByVal como cadena)

Dim buff como cadena * 128

buff = Valor + Chr(0)

WritePrivateProfileString Sección, Clave, buff, FileName

End Sub

Función pública ReadFromIni(ByVal FileName As Cadena, sección ByVal como cadena, clave ByVal como cadena) como cadena

Dim i As Long

Dim buff como cadena * 128

GetPrivateProfileString Sección, clave, "", buff, 128, FileName

i = InStr(buff, Chr(0))

ReadFromIni = Trim(Left(buff, i - 1))

Función final

En un evento en el código del formulario, por ejemplo: evento Form_Load()

El proceso del evento Form_Load(), es decir, la primera vez que Form_Load (aparece en el código del formulario) el curso de los acontecimientos.

"Ejemplo de lectura de archivo INI

Dim p As String

p=ReadFromIni("Ruta + nombre de archivo INI", "Nombre 1", "Nombre 2 ")

Por ejemplo: p=ReadFromIni("d:\MusicPlayer.ini", "Configuración", "Ruta de la carpeta")

'Ejemplo de escritura de un archivo INI

WriteToIni "ruta + nombre de archivo INI", "nombre1", "nombre2", "cadena o variable"

Ejemplo:

Ejemplo de WriteToIni "d:\MusicPlayer. ini", "Configuración", "Ruta de la carpeta", "e:\mymusic"

O:

atenuar f como cadena

f="e: \mymusic"

WriteToIni "d:\MusicPlayer.ini", "Configuración", "Ruta de la carpeta", f