Red de conocimiento informático - Problemas con los teléfonos móviles - Cómo guardar la configuración modificada en un programa escrito en vb6.0

Cómo guardar la configuración modificada en un programa escrito en vb6.0

Dos funciones, primero defina la función API en un módulo.

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

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...

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

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.