Cómo guardar la configuración modificada en un programa escrito en vb6.0
Declare la función WritePrivateProfileString Lib "kernel 32 "alias" WritePrivateProfileString a "(ByVal lpApplicationname es String, ByVal LpKeyName es Any, ByVal lsString es Any, ByVal lplFilename es String) tan larga
Si lees un valor INT, puedes convertirlo en una cadena, para que no se definan otras funciones.
Declare la función GetPrivateProfileInt Lib " kernel 32 "alias " GetPriviteProfileIntA " (ByVal lpApplicationname es una cadena, ByVal LpKeyName es una cadena, ByVal nDefault es Long, ByVal lpFileName es una cadena) como Long
Alinear la función GetPrivateProfileString Lib "kernel 32 "alias" GetPrivateProfileString a "(ByVal lpApplicationname es una cadena, ByVal LpKeyName es una cadena, ByVal lpDefault es una cadena, ByVal lpReturnedString es una cadena, ByVal nSize es Long, ByVal lpFileName es una cadena de caracteres) declarada como larga
define funciones para leer y escribir archivos INI.
* * * *Leer el archivo INI* * * *
Si el nombre del archivo lpFileName no existe, lo creará él mismo. Si solo hay un nombre de archivo, el valor predeterminado es el directorio Windows\system.
[lpAppName]
LpKeyName=Valor de configuración recuperado
Valor predeterminado cuando el valor clave no existe.
Función pública ReadINI(ByVal lpFileName como cadena, ByVal lpAppName como cadena, ByVal LpKeyName como cadena) como cadena
dim Temp * 255 en forma de cadena
Dim lpDefault como cadena
lpDefault = " "
if GetPrivateProfileString(LP appname, LpKeyName, lpDefault, Temp, Len(Temp), LP filename)< Then = 0
ReadINI = " "
Otro
ReadINI = MyTrim(Temp) 'La función MyTrim es la siguiente.
Terminará si...
Finalizar función
* * * *Escribir archivo INI* * *
[lpAppName]
lpKeyName=lpString
Función pública write ini (el nombre de archivo ByVal LP es una cadena, ByVal lpAppName es una cadena, ByVal LpKeyName es una cadena, ByVal lpString es una cadena) es un valor booleano valor
Si WritePrivateProfileString(lpAppName, LpKeyName, lpString, lpFileName) = 0, entonces
WriteINI = False
Otro
WriteINI = Verdadero
Terminará si...
La función final
Contiene tres funciones, a saber, rtrim, ltrim y trim.
Puedes eliminar los caracteres del código ASC 0, 10, 13, 32, etc. de la cadena.
Función pública MyRtrim (ByVal Tmpstr como cadena)
Marcar I y S como números enteros
i = Len(Tmpstr)
If i = 0, entonces
MyRtrim = " "
Salir de la función
Terminará si...
S = Asc( Right(Tmpstr, 1))
Mientras (S = 0 o S = 13 o S = 10 o S = 32) y i & gt0
i = i - 1 p>
Tmpstr = Left(Tmpstr, I)
Si Len(Tmpstr) = 0, entonces
MyRtrim = " "
Salir de la función
Terminará si...
S = Asc(right(Tmpstr, 1))
Fila
MyRtrim = Tmpstr
Función final
Función pública my trim(ByVal Tmpstr como cadena)
Marcar I, S como enteros
i = Len(Tmpstr )
Si i = 0, entonces
MyLtrim = " "
Salir de la función
Terminará si... p>
S = Asc(Left(Tmpstr, 1))
Mientras (S = 0 o S = 13 o S = 10 o S = 32) e i & gt0
i = i - 1
Tmpstr = Right(Tmpstr, I)
Si Len(Tmpstr) = 0, entonces
MyLtrim = Tmpstr p>
Salir de la función
Terminará si...
S = Asc(Left(Tmpstr, 1))
Línea
MyLtrim = Tmpstr
Función final
Función pública MyTrim(ByVal Tmpstr como cadena)
tmp str = my trim(tmp str)
Tmpstr = MyRtrim(Tmpstr)
MyTrim = Tmpstr
Finalizar función
-
Guardar el contenido anterior en un module y luego llame según las indicaciones. Después de hacer clic en Modificar, escriba tres valores, luego lea estos tres valores en el archivo INI y muéstrelos en el comando correspondiente en el evento de carga del formulario.