Red de conocimiento informático - Problemas con los teléfonos móviles - Problema del cuadro de texto

Problema del cuadro de texto

Utilice VB+.ini para implementar

'---------------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, _

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)