Problema del cuadro de texto
'---------------classIniFile.cls--------------
Versión 1.0 CLASE
BEGIN
Multiuso = - 1 'Verdadero< p1 'Verdadero
Persistable = 0 'NotPersistable
DataBindingBehavior = 0 ' vbNone
DataSourceBehavior = 0 'vbNone
MTSTransactionMode = 0 ' NotAnMTSObject
END
Atributo VB_Name= "classIniFile"
Atributo VB_GlobalNameSpace = False
Atributo VB_Creatable = True
Atributo VB_PredeclaredId = False
Atributo VB_Exposed = False
Opción explícita
'--------código classIniFile.cls----------------
'Aquí se define una clase classIniFile
'Código fuente absolutamente clásico, una clase universal para operar archivos .ini en VB
.
código fuente clásico absoluto del archivo ini
Private strINI As String
'Declaración de API de Windows
Función de declaración privada WritePrivateProfileString Lib "kernel32" alias "WritePrivateProfileStringA" _< / p>
(ByVal lpApplicationName como cadena, _
ByVal lpKeyName como cualquiera, _
ByVal lpString como cualquiera, _
ByVal lpFileName como cadena) Siempre
Función de declaración privada GetPrivateProfileString _
Lib "kernel32" Alias "GetPrivateProfileStringA" _
(ByVal lpApplicationName As String, _
ByVal lpKeyName como cualquiera, _
ByVal lpDefault como cadena, _
ByVal lpReturnedString como cadena, _
ByVal nSize como larga, _ p >
ByVal lpFileName As String) As Long
Función privada MakePath(ByVal strDrv As String, ByVal strDir As String) As String
' Genera un archivo INI: asegura el subdirectorio
Hacer mientras está a la derecha$(strDrv, 1) = "\"
strDrv = Izquierda$(strDrv, Len(strDrv) - 1)
Bucle
Hacer mientras queda $(strDir, 1) = "\"
strDir = Mid$(strDir, 2)
Bucle
' Ruta de retorno
MakePath = strDrv & "\" & strDir
Función final
Private Sub CreateIni(strDrv As String, strDir As String)
' Crea un nuevo archivo ini
strINI = MakePath(strDrv, strDir)
End Sub
Public Sub WriteIniKey(strSection As String, strKey As String , strValue As String)
' Escribe strINI
WritePrivateProfileString strSection, strKey, strValue, strINI
End Sub
Función pública GetIniKey ( strSection como cadena, strKey como cadena) como cadena
Dim strTmp como cadena
Dim lngRe
t como cadena
Dim I como entero
Dim strTmp2 como cadena
strTmp = String$(1024, Chr(32)
lngRet = GetPrivateProfileString(strSection, strKey, "", strTmp, Len(strTmp), strINI)
strTmp = Trim(strTmp)
strTmp2 = ""
Para I = 1 a Len(strTmp)
Si Asc(Mid(strTmp, I, 1)) <>0 entonces
strTmp2 = strTmp2 + Mid(strTmp, I.1)